Verificare chi è entrato nell'area protetta :dhò:

[danilob]

Mi piacerebbe integrare nello script per entarre nell'area protetta un codice che mi aggiorni sul dbase gli utenti che sono entrati.

Dopo aver creato la tabella utenti, ho provato ad integrare il codice ma non mi aggiunge nulla nella tabella.

ho già provato un mucchio di volte.

Qualcuno mi da una mano

[CODE]
<%
username=Request.Form("username")
password=Request.Form("password")

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("/mdb-database/database.mdb")
Sql="Select * from ANAGRAFICa"
Set Rs=Conn.Execute(sql)

do while not Rs.EOF
If username = Rs.Fields("username") and password = Rs.Fields("pwd") Then
session("utente") = username
session("accesso") = rs("livelloUtente")
session("nomesess")=rs("nome")
Response.Redirect rs("pagina")
Else
End if
Rs.MoveNext
loop
Response.Redirect("errore.asp")
rs.Close
Set rs = Nothing
conn.close
set conn= Nothing

'verifico le viste dei miei clienti


Set Conn2=Server.CreateObject("ADODB.Connection")
Conn2.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("/mdb-database/database.mdb")
SQL = "Select * FROM ingressi"
Set Rs2=Conn.Execute(sql)

LCID = 1040
Session.LCID = LCID
rs2.AddNew
rs2("data") = data
rs2("ora") = ora
rs2("username") = username
rs2.update

rs2.Close
set rs2 = Nothing
conn2.close
set conn2= Nothing

%>

[Roby_72]

Ovvio che non aggiunge nulla.
Se user e password sono corrette esegue questo.

Response.Redirect rs("pagina")

e quindi tutto il resto è ignorato.
Quel codice aggiunto dovresti metterlo prima del redirect.
Tieni presente che la struttura di quel file è errata. Non chiudi connessioni e oggetti recordset.
Devi rivederla da capo.

Roby

[danilob]

hai ragione Roby, ho corretto il tutto...
ora funziona:
<%
username=Request.Form("username")
password=Request.Form("password")

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("/mdb-database/database.mdb")

LCID = 1040
Session.LCID = LCID

data = date()
ora = time()


SQL = "Select * FROM ingressi"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 2

rs.AddNew
rs("data") = data
rs("ora") = ora
rs("username") = username
rs.update

rs.Close
set rs = Nothing


Sql="Select * from ANAGRAFICa"
Set Rs=Conn.Execute(sql)

do while not Rs.EOF
If username = Rs.Fields("username") and password = Rs.Fields("pwd") Then
session("utente") = username
session("accesso") = rs("livelloUtente")
session("nomesess")=rs("nome")
Response.Redirect rs("pagina")
Else
End if
Rs.MoveNext
loop
Response.Redirect("errore.asp")
rs.Close
Set rs = Nothing
conn.close
set conn= Nothing

%>