<!--#include file="Connessione\connVerifica.asp"-->
<% 
'Se la sessione login è diversa da uno allora esegue la verifica 
if session("login") <> 1 then 
      
     'Richiama i valori inseriti nel form di Login.asp usando un replace per evitare errori dovuti ad apici
      Username =replace(request("Username"),"'","''")
     Password =replace(request("Password"),"'","''") 
   
   
      
     'Stringa SQL che seleziona l'username e la password dalla tabella del database 
     SqlVerifica = "select * from Utenti where Username = '" & Username & "' and Password = '" & Password & "'" 
     set recVerifica = ConnVerifica.execute(SqlVerifica) 
           
    
        
          'Se i dati sono presenti nella tabella, session("login") assume il valore di uno altrimenti viene eseguito il reindirizzamento alla pagina Login.asp 
              if not recVerifica.eof then 
               session("login") = 1
          else 
               response.redirect "Login.asp" 
          end if 
      
      session("login2")=Username
    
     recVerifica.close 
     set recVerifica = nothing 
  ConnVerifica.close 
    Set ConnVerifica = nothing 
  


end if 
%>