<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")

Dim allievo
if (nome_ut = "studenteEIS") and pass = "qwe123098poi" then
  allievo = true
else
  allievo = false
end if

if allievo = true then
  Session("allievo") = "OK"
  Session.timeout=5
  Response.Redirect("lezioni_scaricabili.asp")
else
  Response.Redirect("autenticazione.asp")
end if
%>