update

Impossible de faire fonctionner ceci!!!!
C'est le where qui ne passe pas.

<% RefLot=Request.Querystring("reference")
RefLot=CINT(RefLot)

dim objConnect
dim objRecordset

set objConnect = Server.CreateObject("ADODB.Connection")
objConnect.Open "Mabase"

set objRecordset = Server.CreateObject("ADODB.Recordset")

strSQL = "Select * from flash where ID= '" & RefLot & "' "

objRecordset.Open strSQL , objConnect,3,3 %>

En fait essaie plutot ca comme chaine :

strSQL = "Select * from flash where ID="+ RefLot +""


---------------------------------------------------
Ton espoir n'est pas si désespéré à condition d'analyser que l'absolu ne doit pas être anihiler par l'illusoire précarité de nos amours et qu'il ne faut pas cautionné l'irréalité sous les aspérité


-------------------------------
Réponse au message :
-------------------------------

Impossible de faire fonctionner ceci!!!!
C'est le where qui ne passe pas.

<% RefLot=Request.Querystring("reference")
RefLot=CINT(RefLot)

dim objConnect
dim objRecordset

set objConnect = Server.CreateObject("ADODB.Connection")
objConnect.Open "Mabase"

set objRecordset = Server.CreateObject("ADODB.Recordset")

strSQL = "Select * from flash where ID= '" & RefLot & "' "

objRecordset.Open strSQL , objConnect,3,3 %>