Aiuto!!!

diego06 ha scritto:

ciao,
esattamente come dovrei fare?
mi scrivi proprio la riga dello script x favore (non è che me ne intendo molto!!)
La devo mettere nella pagina di validazione dell'utente (x intenderci quella che è collegata alla pagina di login)?
Grazie mille x l'aiuto!!

Clicca per allargare...

sql = "select * from utenti where username = '"&variabile&"' and password = '"&variabile&"'"
if Rs.eof then
response.write"Dati errati"
else
'cominci la sessione da utente autenticato, riesegui una query di aggiornamento dati e fai...
Rs("ultimo_accesso") = Now()
end if

Clicca per allargare...

diego06 ha scritto:

No no... qualcosa capisco dai !!!

Il problema è che anche se aggiungo il campo che hai detto ( Rs("ultimoacesso") = Now() ) il campo del mio database (ovviamente ho cambiato il nome!!) non si aggiorna (anzi per la precisione rimane vuoto!) e non riesco a capire il perchè!???
Grazie
Ciao

Clicca per allargare...

<%
Username = Replace(Request.Form("username"), "'", "''")
Password = Replace(Request.Form("password"), "'", "''")

IF Username <> "" and Password <> "" then
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti where username = '" & username &"' and password = '" & password & "' and attivo = 1"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
IF Not RecSet.Eof Then
Session("Loggato") = True
Session("Username") = Username
Else
Session("Loggato") = False
End IF
RecSet.Close
Set RecSet = Nothing

'Conn.Close
'Set Conn = Nothing
IF Session("Loggato") = True then
'cambio il valore nel campo del database
'ovvamente devi aggiungerlo tu il campo "ultima_visita" di tipo data e ora
Dim RsUltima, SqlUltima
Set RsUltima = Server.CreateObject("ADODB.Recordset")
RsUltima.ActiveConnection = Conn
RsUltima.Open "SELECT * FROM Utenti where username = '" & username&"'", ,1,3
RsUltima("ultima_visita") = Now()
RsUltima.Update
Conn.Close
Set Conn = Nothing

Response.Redirect "protetta_home.asp"
Else
%>
<hr>
<p align="center"><b><font face="Verdana" size="2">Username/Password non corretti!</font></b></p>
<hr>
<%
End IF

Else
%>
<hr>
<p align="center"><b><font face="Verdana" size="2">Compila correttamente tutti i campi!</font></b></p>
<hr>
<%
End IF
%>

Clicca per allargare...

diego06 ha scritto:

Grazie e scusa il ritardo (non avevo la connessione internet)...
In questi giorni provo e poi ti farò sapere!

Grazie ancora

Clicca per allargare...