Scusate l'ignoranza , non vorrei sembrare assillante.
quindi lo script dovrebbe essere cosi??

<%

user_form = request.form("user")
password_form = request.form("password")
response.buffer = true


dim conn
dim rs

Set conn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/utenti.mdb")

SQL = "Select * from Utenti Where login like '"&user&"' "
Set rs=conn.execute(SQL)
user_utenti=rs("login")
user_utenti=rs("password")

if rs.eof=false then user_utenti=rs("login")

%>

Correggetemi se sbaglio.....
Grazie!!!!


Roberto Polimanti

Ciao a tutti, non vorrei fare il guasta feste ma credo che ci sia un errore nel codice della query; se il codice che hai postato è corretto, salvo qualche mia errata interpretazione, la tua SQL dovrebbe essere:

SQL = "Select * from Utenti Where login like '"&user_form&"' "

Non ho capito una cosa, cos'è questo response.redirect("URL_....")

Non sono sicuro di aver compreso perfettamente il tuo ultimo post (sono al lavoro e ho letto il tutto in maniera veloce) tuttavia credo che la tua situazione è la seguente:
- L'utente del tuo sito, una volta registrato, per accedere deve indicare nome utente e password.

- La procedura preleva le informazioni e le controlla con quelle registrate nel database

a questo punto i casi sono 2:

- a) Dati corretti, l'utente accede al sito
- b) Dati errati, l'utente viene dirottato su una pagina di errore o nuovamente sul modulo del logon.

Se quello che ho scritto è corretto, allora il codice dovrebbe essere:


user_form = request.form("user")
password_form = request.form("password")

dim conn
dim rs

Set conn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/utenti.mdb")

SQL = "Select * from Utenti Where login like '"&user_form&"' and password='"&pasword_form&"'"

rs.Open SQL,conn,3,3

if rs.recordcount>0 then
user_utenti=rs("login")
password_utenti=rs("password")

response.redirect("oklogin.asp")

else

response.redirect("nologin.asp")

end if

rs.close
conn.close
set rs=nothing
set conn=nothing

%>

</body>
</html>


prova ad utilizzare questo codice così com'è;

spero di esserti stato di aiuto e di non aver commesso errori di scrittura.

Ciao

Allora innanzi tutto grazie di cuore per il vostro aiuto (esteso a tutti quelli che mi hanno "sopportato").
Per odj : ho copiato il codice che mi hai postato ma non ha funzionato e non per errori di scrittura (non credo almeno)l'errore era sempre lo stesso , mi restituiva sempre la pagina che tu hai chiamato "nologin.asp".
Dopo vari tentativi ho avuto il classico colpo di c... :-)) e mi sono scritto questo:
<%

user_form = request.form("user")
password_form = request.form ("password")
dim conn
dim rs

Set conn = Server.CreateObject("ADODB.Connection")

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

conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/clienti.mdb")

SQL = " Select * From utenti " &_
" Where user like '" & user_form & "' "

rs.Open SQL, conn,1,2

if not rs.BOF then
Do While not rs.EOF


response.redirect("oklogin.asp")
rs.movenext
loop
else

response.redirect("nologin.asp")
end if
rs.close
conn.close
set rs = nothing
set conn = nothing


%>
Funzionaaaaaa!!!!
comunque non è farina del mio sacco perchè in ogni caso ho sfruttato i vostri suggerimenti.
Spero di potervi ricambiare il favore!!
Ciao a tutti!!


Roberto Polimanti