RÉCUPÉRER UN ID AU HASARD D'UNE BASE DE DONNÉE ACCESS

// mes objets de connexion à ma base de donnée
<%
	dim mydb
	dim oConn
	dim oRs
	dim varsql

	mydb = "DBQ=c:\\\\inetpub\\\\database\\\\mydatabase.mdb;Driver={Microsoft Access Driver (*.mdb)};DriverId=25" 
	set oConn = server.createobject("ADODB.Connection")
	oConn.Open mydb 
	set oRs = server.createobject("adodb.recordset")
%>


// ma boucle qui lance la fonction jusqu'à ce que l'ID obtenu existe
<%
do while id_ok = 0 'tant que l'id_ok est égal à 0 on execute la fonction
   gen_id()	
loop
response.write mygen_id & " est l'ID séléctionné au hasard de ma table"
%>

// ma fonction qui récupère l'id au hasard
<%
function gen_id()
	varsql = "SELECT max(image.id) as max_id, min(image.id) as min_id FROM image" 'la requête SQL qui selectionne l'id le plus bas et le plus haut
	oRs.open varsql, oConn 'j execute la requete
		max_id = oRs.fields("max_id") 'j attribue l'ID le plus haut à la variable
		min_id = oRs.fields("min_id") 'j attribue l'ID le plus bas à la variable

	oRs.close 'je ferme mon recordset
	Randomize   ' je genère un nombre entre max_id et min_id	MyValue = Int((max_id - min_id + 1) * Rnd + min_id)

	varsql = "SELECT id FROM image WHERE id = " & myvalue 'la requete SQL qui vérifie que le numero généré existe
	oRs.open varsql, oConn 'j execute la requete	
	if oRs.eof then 'si le recordset est vide
		id_ok = 0
	else 's il n est pas vide, l'ID existe
		id_ok = 1
		mygen_id = myvalue 'mygen_id est maintenant la variable qui contient l'ID séléctionné au hasard!!
	end if	
	oRs.close 'on ferme le recordset
end function 'fin de la fonction
%>