Login forse impossibile?

[AltF4]

Buongiorno, vorrei riuscire a trovare una soluzione ad un problema che mi assilla da un pò.

Ho alcune pagine ASP che prendono i dati da un database. Queste pagine sono protette attraverso una pagina di login che funziona così:

Controlla se nei campi userid e password ci sono i dati inseriti e a risposta affermativa accede. (credo sia una semplice pagina di login)

Il mio problema è: come faccio a riconoscere l'accesso? Nel senso che nella pagina dove ci sono i dati deve uscire anche il nome dell'utente che ha eseguito l'accesso.

Non so se riesco a spiegarmi bene, questo è il db:

Nome - Cognome - email - userid - password

Diciamo che ce ne sono 10, io effettuo il login con il numero 3 e nella pagina dove entro c'e scritto, ad esempio, Benvenuto NUMERO 3!

Questa è lo script del login:

<%
passok = true

If request.form("submit") <> "" Then

	' setup variables
	userid = Request.Form("userid")
	passwd = Request.Form("passwd")

	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/mdb-database/login.mdb") & ";"
	Set rs = conn.Execute( "Select * from [login] where [Utente] = '" & UCASE(userid) & "'")
	If not rs.eof then
		If ucase(rs("Password")) = ucase(passwd) Then
			passok = true
		Else
			passok = false
		End If
	Else
		passok = false
	end if

	rs.Close
	Set rs=Nothing
	conn.Close
	Set conn=Nothing

	If passok Then
		Session("status") = "loginok"
		response.redirect "/home.asp"
	End If

End If
%>

Grazie in anticipo!

[santino83]

Session("status") = "loginok"
session("Utente")=userid
response.redirect "/home.asp"

e nelle altre pagine fai

benvenuto <%= session("Utente") %>

[Roby_72]

<%
passok = true

If request.form("submit") <> "" Then

	' setup variables
	userid = Request.Form("userid")
	passwd = Request.Form("passwd")

	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/mdb-database/login.mdb") & ";"
	Set rs = conn.Execute( "Select * from [login] where [Utente] = '" & UCASE(userid) & "'")
	If not rs.eof then
		If ucase(rs("Password")) = ucase(passwd) Then
			passok = true
			nominativo = rs("Cognome") &" "& rs("Nome") 
		Else
			passok = false
		End If
	Else
		passok = false
	end if

	rs.Close
	Set rs=Nothing
	conn.Close
	Set conn=Nothing

	If passok Then
		Session("status") = "loginok"
		Session("nominativo") = nominativo 
		response.redirect "/home.asp"
	End If

End If
%>

Nella pagina home.asp:

<%="Benvenuto "& session("nominativo")%>

Roby

[AltF4]

Siete GRANDISSIMI !!!

Ho aggiunto anche l'indirizzo email facendo così:

			nominativo = rs("Nome") &" "& rs("Cognome")
			email = rs("email")

		Session("status") = "loginok"
		Session("nominativo") = nominativo
		Session("email") = email

Funziona!!!

Secondo voi con lo stesso sistema riesco anche ad inserire una info del tipo:

"il tuo ultimo accesso risale al (data) alle ore (ora) ??? "

Che ne pensate?

[Roby_72]

Si ma devi prevedere un campo con la data e l'ora che aggiorni quando uno entra...

Roby

[AltF4]

Potrei aggiornarlo in questo modo?

	RecSet.AddNew

	RecSet("Date")= date()

	RecSet.Update
	RecSet.Close

ma in che punto della pagina devo inserirlo? e lo inserisco direttamente nella pagina di login?

[Roby_72]

Devi inserirlo una riga prima oppure una riga dopo aver creato le session.

Roby

[AltF4]

Ho fatto in questo modo:

	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/mdb-database/login.mdb") & ";"
	Set rs = conn.Execute( "Select * from [login] where [Utente] = '" & UCASE(userid) & "'")
	Set RecSet = Server.CreateObject("ADODB.Recordset")

e poi:

	If passok Then
			RecSet.Open
			RecSet.AddNew
			RecSet("Data")= date()
			RecSet("Ora")= time()
			RecSet.Update
			RecSet.Close
		Session("status") = "loginok"
		Session("nominativo") = nominativo
		Session("email") = email
		response.redirect "/home.asp"
	End If

ma non mi funziona, mi da questo errore:

ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/start_login.asp, line 32


cosa ho sbagliato?

[Roby_72]

		If ucase(rs("Password")) = ucase(passwd) Then
			passok = true
			nominativo = rs("Cognome") &" "& rs("Nome") 
			sql = "UPDATE [login] SET data = #"& now ()&"# WHERE id ="& rs("id")
			conn.Execute(sql)
		Else
			passok = false
		End If

Roby

[AltF4]

Ti ringrazio! Funziona!

Ma la data me la da in formato americano e cioè mese/giorno/anno (05/09/06) ho anche provato a cambiare il formato del campo in access (gg mm aaaa), ma niente da fare.

Che faccio? Lascio perdere?