Script utile per random

[SPEED78]

Salve ragazzi ho ralizzato uno script che consente di estrapolare due record a caso dal database, facendo in modo che tali record non siano uguali(ossia due doppioni)tra loro, ma sopratutto si presta a quelle tabelle di in cui i record vengono eliminati:

SQL = "SELECT count(idprodotto)as tot  FROM catalogo"
			set rs = conn.Execute(SQL)
			quanti=rs(0)
			rs.close
			set rs=nothing
			randomize
			for x=1 to 10
			moves=cint((quanti-1)*rnd+1)-1
			moves2=cint((quanti-1)*rnd+1)-1
				if moves<>moves2 then
					exit for
				end if
			next
			SQL = "SELECT *  FROM catalogo"
			set rs = conn.Execute(SQL)			
			rs.move moves
			response.Write rs("idprodotto")&"
"
			rs.movefirst
			rs.move moves2
			response.Write rs("idprodotto")
			rs.close
			set rs=nothing

Spero possa tornare utile a qualcuno

[[trodat]]

Utilissimo, grazie

[SPEED78]

mi ha risolto un bel grattacapo