Cookies non letti

[Grinder]

Devo scrivere un cookie che faciliti il login agli utenti del mio sito, così una volta loggati la prima volta non debbano più rifarlo. Il cookie viene scritto, al suo interno ci sono username e password, ma quando viene l'ora di leggerli li ignora ! Perchè?

pwd = Request.form("txtUserPass")
salva = request.form("ricorda")
strUserName = Request.form("txtUserName")
'pwd = request.Cookies("www.bersagliomobile.com")("password")
'strUserName = request.Cookies("www.bersagliomobile.com")("utente")

if salva <> "" then
response.cookies("www.bersagliomobile.com")("utente") = strUserName
response.cookies("www.bersagliomobile.com")("password") = pwd
response.cookies("www.bersagliomobile.com").expires = dateAdd("yyyy",1, date)
response.cookies("www.bersagliomobile.com").Secure = true
end if

e così li leggo

dim utente
utente = request.Cookies("www.bersagliomobile.com")("utente")
if (Session("blnIsUserGood") = True) then 
response.write ""&utente
else
response.write " Login"
end if

In pratica se i dati contenuti nel cookie corrispondono a quelli nel database, a video viene mostrato il nome utente altrimenti viene mostrato un link per la pagina del login. Peccato che il cookie non sia preso in considerazione!!! Mostro anche il contenuto del cookie

www%2Ebersagliomobile%2Ecom
password=riccardo&utente=Grinder
localhost/
1025
3672299520
29771505
2502358768
29698217
*

[^ohiaia^]

ci risiamo???

o ti sei dimenticato di postare codice?

in quello che hai scritto (secondo blocco di codice)

dim utente
utente = request.Cookies("www.bersagliomobile.com")("utente ")
dichari la variabile e la valorizzi col valoe preso dal cookie

if (Session("blnIsUserGood") = True) then
-se la sessione "blnisUserGood = true allora devi -
response.write " "&utente
- scirvere il nome dell'utente -
else
-altrimenti-
response.write " Login"
-scrivi un link alla pagina del login-
end if
-basta-

la domanda è come e dove valorizzi la sessione?


CAZPITA che scorbutico oggi... scusa ma mi sto alzando adesso

praticamente mi sa ceh ti manca la parte di codice dove interroghi il database... a quel punto in base all'interrogazione ti conviene fare l'if... non con la condizione di adesso...

[Grinder]

La query con la connessione e il login è in un'altra pagina inclusa, e funziona...il cookie è pieno e ho anche provato a fare una pagina di prova dove visualizzo semplicemente i dati del cookie...che ovviamente non mostra niente a video!! Ho provato anche a fargli scrivere nel cookie "ciao belli" e me l'ha letto! A questo punto non capisco dove stia il mio errore

[^ohiaia^]

nell'if... i presume

il fatto sta nel dove e come valorizzi la sessione che usi come condizione...

posta anche quel pezzo di codice la

[Grinder]

Questo è il codice che scrive il cookie e si occupa del primo login

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim rsCheckUser, salva, pwd, strUserName

pwd = Request.form("txtUserPass")
salva = request.form("ricorda")
strUserName = Request.form("txtUserName")
'pwd = request.Cookies("www.bersagliomobile.com")("password")
'strUserName = request.Cookies("www.bersagliomobile.com")("utente")

if salva <> "" then
response.cookies("www.bersagliomobile.com")("utente") = strUserName
response.cookies("www.bersagliomobile.com")("password") = pwd
response.cookies("www.bersagliomobile.com").expires = dateAdd("yyyy",1, date)
response.cookies("www.bersagliomobile.com").Secure = true
end if

Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
rsCheckUser.Activeconnection = MM_bm_STRING
rsCheckUser.Source = "SELECT utenti.Password FROM utenti WHERE utenti.username ='" & strUserName & "'"
rsCheckUser.Open()

If NOT rsCheckUser.EOF Then
	If pwd = rsCheckUser("Password") Then
		Session("blnIsUserGood") = True
		Set MM_bm_STRING = Nothing
		rsCheckUser.Close()		
		Set rsCheckUser = Nothing
		
		Response.Redirect("notifica.asp?id=27")
	End If
End If

rsCheckUser.Close()		
Set rsCheckUser = Nothing
	
Session("blnIsUserGood") = False

Response.Redirect("notifica.asp?id=25")
%>

E questo il codice che viene incluso nelle altre pagine per ricordare il login effettuato

<%
Dim rsCheckUser, pwd

pwd = request.Cookies("www.bersagliomobile.com")("password")
userid = request.Cookies("www.bersagliomobile.com")("utente")

Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
rsCheckUser.Activeconnection = MM_bm_STRING
rsCheckUser.Source = "SELECT utenti.Password FROM utenti WHERE utenti.Username ='" & userid & "'"
rsCheckUser.Open()

If NOT rsCheckUser.EOF Then
	If (pwd = rsCheckUser("Password")) Then
		Session("blnIsUserGood") = True
	End If
End If
%>

[^ohiaia^]

fai così... stampa a video la sessione e vediamo un pò cosa ci dice

[Grinder]

La sessione non centra, perchè quando faccio il login normalmente dal form la condizione viene rispettata, e non perchè i dati vengono letti da un cookie. E' proprio il cookie che da fastidio alla pagina!

[^ohiaia^]

aspe ho visto una cosa... hai messo l'apice per

'strUserName = request.Cookies("www.bersagliomobile.com")("utente ")

dopodiche fai una query usando un valore che visto che risulta invalidato sarà = "" ragion per cui la query sarà anche ei vuota... rs.eof... e quindi l'if che valorizza la sesisone come true è fregata...

prova a togliere quegli apici e controllare altre "contraddizioni"...

[Grinder]

Ma quella parte è quella che si occupa di verificare la password, come faccio senza? Io ho provato anche a fare una pagina così

<%
'Dichiarazione variabili
dim strValore, scrivi

strValore= request.Cookies("www.bersagliomobile.com")("utente")

response.write strValore
%>

e a video non viene niente, anche se il cookie è pieno!

[^ohiaia^]

aspe ho un'idea migliore... mandami un zip con i file alla mia email... alberthial@virgilio.it oppure dimmi da dove scaricarlo :P
cpsì me lo guardo meglio... se vuoi...