<% dim n(6)
dim o(200)
randomize
numcat=int(4*rnd)
select case numcat
case 0
campo="foto1"
cat="01"
case 1
campo="foto2"
cat="02"
case 2
campo="foto3"
cat="03"
case 3
campo="foto3"
cat="04"
end select
set con=server.createobject("adodb.connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/web_asociados.mdb")&";"
sql1="SELECT asociados." & campo & ", Count(1) AS Mx FROM asociados GROUP BY asociados." & campo & " HAVING asociados." & campo & "=Yes;"
set rs=con.execute(sql1)
max=rs("Mx")
sql2 = "select * from asociados where " & campo & "=yes"
set rs=con.execute(sql2)
for i=1 to 6
n(i)=int(max*rnd)
if o(n(i))=1 then i=i-1
o(n(i))=1
next
rs.move n(1)
%>
<%=cat%>.jpg" width="128">
