[thelist] Access DB & getting random records using ASP

[Christian Anderson]

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