' Questo è il codice

<%
Option Explicit
dim var_utente,var_password, contatore
dim utente_database, password_database
dim connessione, rsUtente,rsPassword
dim stringaSQL

var_utente="Tony"
var_password="Tony83"

' creare connessione
set connessione = Server.createObject ("ADODB.connection")

'aprire connessione
connessione.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("password/utenti.mdb")

'creare recordset
set rsUtente = Server.CreateObject("ADODB.recordset")
set rsPassword = server.CreateObject("ADODB.recordset")

'invio comando sql
rsUtente.open "select username from utenti", connessione
rsPassword.open "select password from utenti", connessione
stringaSQL = "SELECT COUNT(*) FROM utenti"

for contatore = 1 to stringaSQL
utente_database=rsUtente.fields ("username")
utente_password=rsPassword.fields ("password")
if utente_database = var_utente and password_database = var_password then
response.write ("trovato ")
end if
rsUtente.movenext
rsPassword.movenext
next
%>

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: '[string: "SELECT COUNT(*) FROM"]'
/connessione.asp, line 27