Cookie , riconosciemento automaico

[SAMPEI.asp]

Salve ragazzi,

vi espongo il mio problemino =P

La mia " esigenza " sarebbe quella di saltare il login se l'utente ha gia effettuato altri ingressi nel "portale".
Mi avete consigliato di utilizzare i cookie ho provato a modificare la mia pagina , attualmente riesco a scrivere e leggere il cookie creato ma non so come fare l'automatismo che lo riconsce e mi fa entrare.. vi posto il codice...
se potete darmi una mano vi rigrazierei di cuore...

<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer=TRUE%>

 
 


<% 
If Request.querystring("mode") = "login" then 
Dim rsCheckUser   
Dim strSQL          
Dim strUserName 	

strUserName = Request.Form("txtUserName")
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT password, username, admin, ID FROM tblusers WHERE username ='" & strUserName & "'"
rsCheckUser.Open strSQL, adoCon
If NOT rsCheckUser.EOF Then
	If (Request.Form("txtUserPass")) = rsCheckUser("password") Then
     	Session("userName") = rsCheckUser("username")
	Session("userAdmin") = rsCheckUser("admin")
	Session("userGood") = True
	Session("userID") = rsCheckUser("ID")
	
'-------------------------CooKieS-beta 0.1-Scrittura------------------------------
dim intAnni
intAnni = 1
dim dtScadenza
dtScadenza = dateAdd("yyyy",intAnni, date)
Response.cookies("UserName").expires = dtScadenza
Response.cookies("UserName") = rsCheckUser("username")
Response.Cookies("userID") = rsCheckUser("ID")

'Response.Write(Request.Cookies("UserName"))
'Response.Write(Request.Cookies("userID"))
'----------------------------fine------------------------------------------------------
	End If
	rsCheckUser.Close
	Set rsCheckUser = Nothing
	Set adoCon = Nothing
	Response.Redirect"index.asp?mode=main"


End If
rsCheckUser.Close
Set rsCheckUser = Nothing
Set adoCon = Nothing
Session("userAdmin") = 0
Response.Redirect"default.asp"
Else
%>
<form name="Login" method="post" action="default.asp?mode=login">
  <table width="320" border="0" align="center" cellspacing="0" cellpadding="0" bgcolor="#CCCCCC">
    <tr> 
      <td align="right" height="47" valign="bottom" width="94">User name: </td>
      <td height="47" valign="bottom" width="172"> 
        <input type="text" name="txtUserName">
      </td>
    </tr>
    <tr>
      <td align="right" width="94">Password: </td>
      <td width="172"> 
        <input type="password" name="txtUserPass">
      </td>
    </tr>
    <tr> 
      <td align="right" height="44" width="94"></td>
      <td height="44" width="172"> 
        <input name='Submit' type='image' value='Enter' src='images/go2.png' alt='Entra!' width="64" height="64">

<input name='Reset' type='image' value='Reset' src='images/reset.png' alt='Reset!!!' width="64" height="64"> 
      </td>
    </tr>
    </table></form>
<%
End If
%>
<%
if Request.ServerVariables("HTTP_COOKIE") = "" then
  Response.Write "Attenzione, Cookie non abilitati!"
  else 
  Response.Write "CooKie Abilitati Grazie!!!"
end if


Set rsCookie = Server.CreateObject("ADODB.Recordset")
strCookieSQL = " SELECT password, username, admin, ID FROM tblusers"
rsCookie.Open strCookieSQL, adoCon





dim strCode
strCode = request.cookies("UserName")("userID")
'Response.Write(Request.Cookies("UserName"))
'Response.Write(Request.Cookies("userID"))
'Response.Write rsCookie("username")
'Response.Write rsCookie("ID")
if strCode = rsCookie("username") then
'Pagina Area Riservata
Response.Redirect"index.asp?mode=main"
else
'Pagina Iniziale
Response.Redirect"default.asp"
end if


	rsCookie.Close
	Set rsCookie = Nothing
	Set adoCon = Nothing


%>

[F84]

se fai una condizione se il cookies esiste lo leggi e passi i dati con un response.redirect alla pagina di login?

[SAMPEI.asp]

volevo fare un controllo se il cookie c'e leggo i dati username e id li confronto con quelli del mio db se sono uguali lo faccio entrare con i suoi diritti che ha l'utente...

[F84]

é quello che intendevo ma da come lo dici c'é un MA...

[SAMPEI.asp]

Un MA ??? l'unica cosa chiedo un aiuto visto che non ci salto fuori

[F84]

una cosa del genere?

 
if  (Request.Cookies("UserName")<>"" AND Request.Cookies("userID")<>"")then

//connessione database e controllo

Response.Redirect"index.asp?mode=main"
end if

[SAMPEI.asp]

ho fatto varie prove ma non riesco a verificare che l'id sia corretto.
Volevo porre la condizione che se l'id e l'username sono corretti passa se no torna nella home

<%
if Request.ServerVariables("HTTP_COOKIE") = "" then
  Response.Write "Attenzione, Cookie non abilitati!"
  else 
  Response.Write "CooKie Abilitati Grazie!!!"
end if
Response.Write(Request.Cookies("UserName"))
Response.Write(Request.Cookies("UserID"))
Dim strUserNameCookie
Dim strUserCookieID
strUserNameCookie = request.cookies("UserName") 
strUserCookieID = request.Cookies("userID")
Set rsCookie = Server.CreateObject("ADODB.Recordset")
strCookieSQL = "SELECT password, username, admin, ID FROM tblusers WHERE username ='" & strUserNameCookie  & "'"
rsCookie.Open strCookieSQL, adoCon
If NOT rsCookie.EOF Then
if  (Request.Cookies("UserName")<>"" AND Request.Cookies("UserID")<>"") Then
If (Request.Cookies("UserName")) = rsCookie("username") Then
If (Request.Cookies("UserID")) = rsCookie("ID") Then

'Pagina Area Riservata
Session("userName") = rsCookie("username")
Session("userAdmin") = rsCookie("admin")
Session("userGood") = True
Session("userID") = rsCookie("ID")

   
    End If
	rsCookie.Close
	Set rsCookie = Nothing
	Set adoCon = Nothing
	Response.Redirect"index.asp?mode=main"

    rsCookie.Close
	Set rsCookie = Nothing
	Set adoCon = Nothing
	'Pagina Iniziale
    Session("userAdmin") = 0
    Response.Redirect"default.asp"
end if
end if 
end if 
%>

Adesso praticamente sembra che l'id non lo controlla e ggli basta solo l'username...
Non capisco dove sia l'errore potete aiutarmi perfavore
grazie
:master:

[Roby_72]

Nella query l'ID non lo controlli... quindi aggiungilo:

strCookieSQL = "SELECT password, username, admin, ID FROM tblusers WHERE username ='" & strUserNameCookie  & "'"

Roby

[SAMPEI.asp]

ho provato ad ggiungerlo ma non so la sintassi corretta...
mi dai un aiutino ^^

[Roby_72]

strCookieSQL = "SELECT password, username, admin, ID FROM tblusers WHERE username ='" & strUserNameCookie  & "' AND ID = '"& strUserCookieID &"'"

Roby