Restituisce sempre zero:
codice:
<%
Set cn = Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../mdb-database/dbtest.mdb")
cn.Open openStr
Set objRs = Server.CreateObject("ADODB.Recordset")
sqlstring = "SELECT * FROM Nomi WHERE Nomi LIKE '% Pippo %'"
objRs.Open sqlstring, cn, 3, 3
contatore = 0
Do While not objRs.EOF
contatore = contatore + 1
objRs.Movenext
Loop
response.write contatore
objRs.Close
Set objRs = Nothing
cn.Close
Set cn = Nothing
%>