Visualizzazione dei risultati da 1 a 4 su 4
  1. #1

    reindirizzare l'utente alla propria pagina

    !!! sono principiante o forse meno !!! chiedo, mi trovo da dover indirizzare un utente registrato alla propria pagina riservata, ho un codice di questo tipo:
    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
    %>
    la pagina che si apre quando un utente si logga è sempre "pippo.asp" chiunque sia..
    sapete dirmi dovè l'errore?? grazie

  2. #2
    questo gli dici

    Response.Redirect("pippo.asp")


    quello lui fa


  3. #3
    e come lo dovrei impostare..

  4. #4
    al posto di "pippo.asp" andrebbe il nome della pagina dell'utente (nomeutente.asp?)

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.