Dim Pseudo,Mail Pseudo = Request.QueryString("MonCHampPseudo") Mail = Request.QueryString("MonCHampMail")
Dim objConn,Result Set ObjConn = CreateObject("ADODB.Connection") objConn.open Provider** Set Result=objConn.Execute (("SELECT * FROM NomTable WHERE NomCHampPseudo='" & Pseudo & "' AND NomChampMail='" & Mail & "'") If Result.EOF Then 'Le mail et le pseudo n'appartiennent pas ua meme mec Else 'C bonc'est bien son mail et son pseudo tu peux lui filer son pwd End If