[thelist] Access DB & getting random records using ASP
Christian Anderson
lists at photokyo.com
Fri Apr 2 02:31:04 CST 2004
Nevermind... I fixed it using this code:
<%
Randomize()
intRandomNumber = Int(1000*Rnd)+1
SQL = _
"SELECT TOP 7 tSMALLIMAGE, aID, Rnd(" & -1 * (intRandomNumber) &"*aID) "
& _
"FROM t_gallery " & _
"ORDER BY 3"
set conn = server.createobject("ADODB.Connection")
conn.open "photokyo-pt"
set gall_random=conn.execute(SQL)
DO WHILE NOT gall_random.EOF
Response.Write("<tr align=center>")
Response.Write("<td>")
Response.Write("<table border=0 height=60 width=80
cellpadding=1 cellspacing=0>")
Response.Write("<tr>")
Response.Write("<td bgcolor=#FFFFFF><a
href=/showpicture.asp?number=" & gall_random(1) & "><img border=0 src=" &
gall_random(0) & "></a></td>")
Response.Write("</tr></table>")
Response.Write("</td></tr>")
Response.Write("<tr height=3><td></td></tr>")
gall_random.movenext
LOOP
gall_random.close
Response.Write("</table>")
%>
Christian
More information about the thelist
mailing list