Errore nel codice....

[tony83]

quindi rs sta per recordset?
tutti i record della tabella in un determinato campo.
ma come fa a sapere a quale tabella riferirsci?
.. è questo che non capisco

io ho creato 2 recordset in questa maniera:

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

...e aperti in questa maniera....

rsUtente.open "select username from utenti", connessione
rsPassword.open "select password from utenti", connessione

[dizionario]

troppo comico
sono curioso di vedere la continuazione

[asva]

stringaSQL = "SELECT * FROM utenti"

traduzione
seleziona tutte le colonne della tabella utenti

[asva]

troppo comico

a chi ti riferisci dizionario?

[rotteninside]

scusa, se ho capito bene devi controllare l'accesso di un utente tramite user name e password?
non puoi fare una sola query che ti restituisca un record se l'utente esiste e se non esiste non ti restituisce niente?

[tony83]

forse si forse no. ma ormai sono arrivato fino a qui!!!
il problema è qui....
do while not ??????? che cosa????

do while not
utente_database=rsUtente.fields ("username")
utente_password=rsPassword.fields ("password")
if utente_database = session ("var_utente") and password_database = session ("var_password") then
Session("sssUtente") = utente
Session("sssPassword") = password
response.redirect("incotec.asp")
end if
rsUtente.movenext
rsPassword.movenext
loop
response.redirect("password.asp?errore=1")
%>


devo fare in maniera tale che do while ripeta finchè non sono finiti i record nel database??? ma non so come fare....

[asva]

ti manca eof

DO while not rs.EOF(traduzione fai fino a quando non raggiungi l'ultimo record)è un ciclo che si chiude conil loop e il movenext

[tony83]

ok abbiamo risolto quella parte ma ora c'è ne è un'altro...

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

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'rs'
/password/connessione.asp, line 26

l'oggetto non è creato...
ecco il codice

-------------------------------------------------------------
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
%> ------------------------------------------------------------------

caso mai
utente_database=rsUtente.fields("username")
utente_password=rsPassword.fields ("password")

che mi dice però:
Tipo di errore:
ADODB.Field (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/password/connessione.asp, line 26

[asva]

nel codice dove hai indicato var_utente?

non mi sembra di vederla

'devi avere le variabili che confronti...
var_utente ="tony"
var_password ="quelloche vuoi" ' 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

[tony83]

scusami mi sono dimenticato di aggiornare il codice:

utente_database=rsUtente.fields("username")
utente_password=rsPassword.fields ("password")
if utente_database = session ("var_utente") and password_database = session ("var_password") then
Session("sssUtente") = utente
Session("sssPassword") = password

sono variabili session dichirate in altre pagine che chiamano codesta pagina. il problema rimane sempre qui (quel rs):
utente_database=rs("username")
utente_password=rs("password")

rs no creato nel codice ma sono usate, sono invece
rsUtente
rsPassword
qui è il problema vedi sopra...