Ciao a tutti!
Sto realizzando un sito internet per un cliente e, per fargli vedere lo stato di avanzamento lavori, ho creato una login-area attraverso la quale accedere al sito.
Il problema è che una volta che inserisce i dati la pagina si presenta bianca. Poi deve "refreshare" e gli fa vedere la home! Perchè questo? Perchè non si riesce a visualizzare subito la pagina?
Questo è il codice che esegue il controllo dei codici di accesso:
codice:<% user = Session("Login") if (Session("Flag")<>true) Then Dim ut_user,ut_password,oRs_sql,user,pass ut_user = setting(Request.Form("ut_user")) ut_password = setting(Request.Form("ut_password")) oRs_sql = "SELECT * FROM UTENTI WHERE UT_USER = '" & ut_user & "' AND UT_PASSWORD = '" & ut_password & "'" Dim oRs set oRs = oConn.Execute(oRs_sql) If oRs.EOF Then Response.Redirect("index.html") Else user = oRs("UT_USER") pass = oRs("UT_PASSWORD") Session("Login") = user Session("Flag")=true End If else 'tutto il codice html end if %>![]()


Rispondi quotando
