Ciao a tutti,
ho una pagina che verifica i dati di autenticazione passati da un form controllandoli con il DB ma nonostante non abbia alcun errore, la pagina è lentissima a caricare e va sempre in timeout. Ora ho modificato la pagina in modo da poter assegnare i dati di autenticazione come costanti senza la ricezione da form, giusto per testare la pagina.
Il sorgente del controllo dati è questo:
<%
'user = request("user")
'pass = request("pass")
user = "colde"
pass = "colde"
dim conn
set conn=server.createobject("ADODB.connection")
strConn="driver={MySQL ODBC 3.51 Driver};server="& request.servervariables("localhost") &";database=dps;Uid=root;Pwd=root;"
conn.open strConn
Set RS = Server.CreateObject("ADODB.Recordset")
With RS
.LockType = 3
.CursorType = 3
.CursorLocation = 3
.ActiveConnection = conn
.Open "select idutente, user, pass, admin from autenticazione"
End With
Do while NOT RS.EOF
idutente = RS("idutente")
userDB = RS("user")
passDB = RS("pass")
admin = RS("admin")
if userDB = user AND passDB = pass AND admin = "n" then
Session("autenticazione") = "OK"
session("user") = user
Set RSsocieta = Server.CreateObject("ADODB.Recordset")
With RSsocieta
.LockType = 3
.CursorType = 3
.CursorLocation = 3
.ActiveConnection = conn
.Open "select societa from anagrafica_cliente where IDanagrafica = '"&IDutente&"'"
End With
Do while NOT RSsocieta.EOF
nomesocieta = RSsocieta("societa")
RSsocieta.MoveNext
Loop
RSsocieta.Close
Set RSsocieta = Nothing
session.timeout = 360
session("idutente") = idutente
session("nomesocieta") = nomesocieta
response.redirect "home_area.asp"
elseif user = userDB AND pass = passDB AND admin = "y" then
Session("autenticazione") = "OK"
session.timeout = 360
session("nomesocieta") = "Admin"
response.redirect "admin_elenco_societa.asp"
end if
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
if session("autenticazione") = "" then
response.Redirect "sessione_scaduta.asp"
end if
%>
Io non vedo errori e fino a qualche mese fa la pagina funzionava perfettamente, ora invece sembra di no. Pensavo che fosse un problema legato a IIS e Skype ma ora ho risolto il conflitto e la pagina non si carica ugualmente.
Qualche consiglio?
Grazie

Rispondi quotando
