ECCO IL CODICE MA MI DA aRGUMENTS ARE THE WRONG TYPE NELLA RIGA DEL
Objrs.open


<%

StrCognome = Request.Querystring("Cognome")

Dim ObjConn

Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ= " & Server.Mappath ("/mdb-database/db5.mdb")

Dim Objrs, StrSql



Set Objrs = Server.CreateObject("ADODB.Recordset")
Strsql= "SELECT * FROM anagrafica WHERE cognome = " & StrCognome
Objrs.Open ObjConn, StrSql, Adopenstatic, Adlockoptimistic

if Objrs("Cognome") = Strcognome then
Response.Write ("trovato")
Response.end
else
ObjRs.Close
Set Objrs = nothing
ObjConn.Close
Set Objconn = nothing
end if

Dim Objrs2, StrSql2

Strsql2= "Select * FROM anagrafica WHERE cognome = " & StrCognome

Set Objrs2 = Server.CreateObject("ADODB.Recordset")

Objrs2.Open ObjConn2, StrSql2, Adopenstatic, Adlockoptimistic

if Objrs2("Cognome") = Strcognome then
Response.Write ("trovato")
Response.end
else
ObjRs2.Close
Set Objrs2 = nothing
ObjConn2.Close
'Set Objconn2 = nothing
'end if
%>