| Her på siden finder over 1.000 stk. legetøj, spil og andre materialer
med en kort beskrivelse samt billede til hver post. |
|
 |
Nyheder: |
<% showNum = 0
SetOrderBy = "id"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open session("databaseConnection")
showDate = now()
SQL = "SELECT TOP 5 * FROM legetekDB ORDER BY id DESC"
set RS = conn.execute( SQL )
if RS.EOF then
anbefalShow = False
Else
RS.movefirst
Do While Not RS.EOF
anbefalShow = True
faust = rs("faust")
ajourDate = rs("ajourDate")
title = rs("title")
title = Replace(title, "((", "")
title = Replace(title, "))", "")
legeText = rs("legeText")
if legeText <> "" then
legeText = Replace(legeText, vbCrLf, " ")
legeText = Replace(legeText, "((", "")
legeText = Replace(legeText, "))", "")
end if
linkURL= rs("linkURL")
imageSmall = rs("imageSmall") %>
>
<%if imageSmall <> "" then%> <%end if%><%=title%>
<%=legeText%>. |
|
|
<%if faust <> "" then%> • Faustnr.: <%=faust%><%end if%>
<%if linkURL <> "" then%> • Bestil, klik her<%end if%> |
Næste
|
<% showNum = showNum + 1
RS.movenext
Loop
End if
Set RS = Nothing
Conn.Close
%>
|
|
Opdateret
16. august 2010. Redigeret af
Christina H. Jespersen
|