update base de données

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 %>

Salut,

Tu as peut être un problème de format de donnée. Je ne sais pas si ca marche, mais tu peux tester ton code en modifiant cette ligne :
__________________________________________
strSQL = "Select * from flash where ID= '" & RefLot & "' "
__________________________________________

En supprimant les simples quote comme ceci :
__________________________________________
strSQL = "Select * from flash where ID= " & RefLot & " "
__________________________________________


Chez moi, la requete suivante fonctionne très bien, sans les simples quotes :
__________________________________________
REQUETE="DELETE * FROM table WHERE ID_toto="&intIDToto&""
__________________________________________

Benz