[ASP] Problema con variabile Session

[hunt]

Ciao ragazzi...ho un problema!!! Sto effettuando un login con un modulo che sottostante non è riportato...in pochissime parole, quando invio l'user con la pass giusta, continua a caricare a vuoto e non si reindirizza nella index.asp!!!

<%
	dim strUser
		strUser = request.Form("user")
	dim strPass
		strPass = request.Form("pass")
		
	if (strPass <> "") AND (strUser <> "") then
		strSql = "SELECT * FROM USER WHERE USER='" & strUser & "' AND PASSWORD='" & strPass & "'"
		Set rsUser = Server.CreateObject("ADODB.Recordset")
		rsUser.Open strSql, conn ,3,3
		if not(rsUser.eof) then
			session("accesso") = "si"
			response.redirect("index.asp")
		else
			strOutput = "
Nome utente e/o password errati
"
		end if
	end if
%>

Se invece provo a commentare "session("accesso") = "si"", dopo aver inviato l'user e la pass giusta, si reindirizza tranquillamente alla index.asp...

<%
	dim strUser
		strUser = request.Form("user")
	dim strPass
		strPass = request.Form("pass")
		
	if (strPass <> "") AND (strUser <> "") then
		strSql = "SELECT * FROM USER WHERE USER='" & strUser & "' AND PASSWORD='" & strPass & "'"
		Set rsUser = Server.CreateObject("ADODB.Recordset")
		rsUser.Open strSql, conn ,3,3
		if not(rsUser.eof) then
			'session("accesso") = "si"
			response.redirect("index.asp")
		else
			strOutput = "
Nome utente e/o password errati
"
		end if
	end if
%>

...come mai ? ? ?

[vaargard]

prova così:

<%response.buffer=true%>

<%
	dim strUser
		strUser = request.Form("user")
	dim strPass
		strPass = request.Form("pass")
		
	if (strPass <> "") AND (strUser <> "") then
		strSql = "SELECT * FROM USER WHERE USER='" & strUser & "' AND PASSWORD='" & strPass & "'"
		Set rsUser = Server.CreateObject("ADODB.Recordset")
		rsUser.Open strSql, conn ,3,3
		if not(rsUser.eof) then
			session("accesso") = "si"
			response.redirect("index.asp")
		else
			strOutput = "
Nome utente e/o password errati
"
		end if
	end if
%>

[hunt]

nn va...invio il modulo e carica lentamente...in realtà nn carica niente perchè la barra blu (sulla barra di stato) arriva fino alla fine e continua a caricare!!!

[vaargard]

non vedo nulla di sbagliato nel codice ... comunque aggiungi sempre la chiusura degli oggetti e la loro pulizia :

<%response.buffer=true%>

<%
	dim strUser
		strUser = request.Form("user")
	dim strPass
		strPass = request.Form("pass")
		
	if (strPass <> "") AND (strUser <> "") then
		strSql = "SELECT * FROM USER WHERE USER='" & strUser & "' AND PASSWORD='" & strPass & "'"
		Set rsUser = Server.CreateObject("ADODB.Recordset")
		rsUser.Open strSql, conn ,3,3
		if not(rsUser.eof) then
			session("accesso") = "si"
                        rsUser.close
                        set rsUser = nothing
                        conn.close
                        set conn = nothing
			response.redirect("index.asp")
		else
                        rsUser.close
                        set rsUser = nothing
                        conn.close
                        set conn = nothing
			strOutput = "
Nome utente e/o password errati
"
		end if
	end if
%>

[hunt]

niente da fare...grazie per il suggerimento cmq!!!

[vaargard]

ma continua a rimanere appeso ????


sei in locale? SE SI FAI UN IISRESET E fai ripartire il sito ....