Random visning af billede
Hej.Jeg har følgende kode hvor jeg viser de 10 seneste billeder i min database, men vil gerne have det ændret til at være random fra alle billeder (Tilfældige billeder).
Nogle der kan hjælpe mig med hvordan jeg ændre det?
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM foto WHERE picnew = 3 ORDER BY tid DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/dbaaa/base.mdb")
rs.Open strSQL, strDSN, 1
i = 0
Do While Not RS.EOF and (i < 10)
if i mod 5 = 0 then
response.write "</tr><tr>"
end if
i = i + 1
%>
<img border="1" src="http://www.hyggestedet.dk/myimages/small_<%=rs("picture")%>
<%
rs.MoveNext
Loop
%>
Mvh.
Henrik
