!!! sono principiante o forse meno !!! chiedo, mi trovo da dover indirizzare un utente registrato alla propria pagina riservata, ho un codice di questo tipo:
la pagina che si apre quando un utente si logga è sempre "pippo.asp" chiunque sia..codice:<% Dim strUserid, strPassword, strCookie strUserid = Request.Form("frmUserid") strPassword = Request.Form("frmPassword") strCookie = Request.Form("frmCookie") %> <% Dim objRso, strSql, bolError Set objRso = Server.CreateObject("ADODB.Recordset") strSql = "SELECT id, strPassword, bolAdmin, strSessione " & _ "FROM tblUtenti " & _ "WHERE strUserid = '" & strUserid & "' And bolConferma = True And bolAttivato = True" objRso.Open strSql, objCon, adOpenKeyset, adLockReadOnly, adCmdText If objRso.Recordcount = 1 Then If objRso("strPassword") = strPassword Then If objRso("bolAdmin") = True Then If objRso("id") = 1 Then Session("SuperAdmin") = True Session("admin") = True Session("user") = False Else Session("user") = True Session("admin") = False ' ********************************* ' SCRITTURA DATI PER LE STATISTICHE ' ********************************* Dim idUtente idUtente = objRso("id") Call WriteStats(idUtente) End If Session("id") = objRso("strSessione") ' ******************************************* ' CONTROLLO ED EVENTUALE SCRITTURA DEL COOKIE ' ******************************************* If Request.Form("frmCookie") = "Y" Then Response.Cookies("user") = Session("id") Response.Cookies("user").Expires = Date() + 60 End If ' ************************************** ' REINDIRIZZAMENTO ALLA PAGINA DEL MENU' ' ************************************** Response.Redirect("pippo.asp") Else Response.Write "<font class=""normal"">ATTENZIONE !! PASSWORD NON VALIDA</font> " bolError = True End If Else Response.Write "<font class=""normal"">ATTENZIONE !! USERNAME INSERITA NON VALIDA</font> " bolError = True End If objRso.Close Set objRso = Nothing If bolError Then Response.Write "Torna al Login" End If %>
sapete dirmi dovè l'errore?? grazie

Rispondi quotando
