
Estraggo i record
codice:
<%
Set objConn = server.createObject("ADODB.Connection")
objConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("/mdb-database/mpdb.mdb")
Set Rs1 = Server.CreateObject("ADODB.Recordset")
sql1 = "SELECT COUNT(*) FROM locale where Homepage=true"
Rs1.open sql1, objConn
dim max
max = RS1(0)
if max=0 then
response.write("database vuoto!")
else
Set objConn = server.createObject("ADODB.Connection")
objConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("/mdb-database/mpdb.mdb")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
sql2="SELECT * FROM locale where Homepage=true"
Rs2.Open sql2, objConn
Randomize()
dim k, casual(1000), check, numero
numero = 4 'questo è il numero dei record che vuoi pescare a caso!!
cont = 0
check=false
do while not cont>(numero - 1)
rs2.movefirst
casual(cont) = Int(Rnd() * Max)
' //// routine per evitare doppioni ////////////////////////////////
' (se trova un record già estratto torna su senza incrementare cont)
' //////////////////////////////////////////////////////////////////
for k=0 to (cont-1)
if casual(cont) = casual(k) then
check = true
end if
next
' ///////////////////////////////////////////////////////////////////
If Not (Rs2.EOF OR check) Then
Rs2.Move casual(cont)
ID = RS2("ID")
foto = RS2("Foto")
nome = RS2("Nome")
nome1 = Server.URLEncode (nome)
indirizzo = RS2("Indirizzo")
%>
...
qui stampo i record
...
e qui creo il ciclo e chiudo l'if
codice:
<%
cont=cont + 1
end if
check = false
'end if
loop
%>
Grazie