Errore nel codice....

[tony83]

' 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

[asva]

prova a fare senza il count

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 * FROM utenti" 
DO while not rs.EOF

utente_database=rs("username") 
utente_password=rs("password") 


if utente_database = var_utente and password_database = var_password then 
response.write ("trovato ") 
password="ok"
end if
rs.Movenext
loop

if password<>"ok" THEN%>
response.write ("non trovato ") 

end if 
%>

[Shagrat]

stringaSQL = "SELECT COUNT(*) FROM utenti" 

for contatore = 1 to stringaSQL

ma che senso ha questa cosa?

non puoi dire ad un contatore di andare da 1 a "stringa"

[tony83]

1.) che vuol dire:

rs("username")

:master:

2.) cosa fa?
DO while not rs.EOF

3.) allora non serve più questo:

stringaSQL = "SELECT * FROM utenti"

:master:

GRAZIE ANTICIPATAMENTE

[tony83]

ps.

stringaSQL = "SELECT COUNT(*) FROM utenti"

for contatore = 1 to stringaSQL

StringaSQL volevo trasformarlo in intero per avere il numero esatto dei record e utilizzarlo nel record....

[asva]

guarda che come ti ho indicato funziona

[tony83]

non ne dubito, ma devo imparare!!!!

[asva]

1) ti colleghi al database
2)crei una sql sulla tua tabella
3)recuperi i campi pass e user dalla tua tabella rs("user")o come hai chiamato i tuoi campi

4)cicli tutti i record
Do while.... (trad fino a quando non raggiungi l'ultimo record)
se trovi una corrispondenza con la pass e la user inserita nel form allora scrivi trovato
se non la trovi allora scrivi non trovato
etc......

il codice che ti ho postato devi solo verificarlo se corretto nei nomi dei campi del tuo db....per il resto funziona...lo uso normalmente

[tony83]

ma l'istruzione:

rs("user")

user è il campo ma l'istruzione rs che vuol dire?

[asva]

recordset


eof (end of file)