<%@ Language=VBScript %>
<% option explicit %>
<%
CONST HEADER_BG_COLOR = "#FE9800"
CONST CELL_BG_COLOR = "#eeeeee"
CONST ALERT_TEXT_COLOR = "#FF0000"
CONST ALERT_BORDER_COLOR = "#000000"
CONST TITLE_TEXT_COLOR = "#ffffff"
Dim error, strErrorMessage
error = false
strErrorMessage = "Attenzione: "
Dim login
login = ( len(trim(Request.Form("dologinAdmin"))) > 0 )
if login then
Dim username, pwd
username = trim(Request.Form("username"))
pwd = trim(Request.Form("pwd"))
Dim result
result = Array(0, 0)
result = checkLogin(username, pwd, 2)
error = ( result(0) <> 0 )
select case result(0)
case 0
call doLogin(true, Cint(result(1)), username)
'sapere dove va fatti il redirect
response.redirect("general/ingresso.asp")
%><%
'se l'utente rifiuta di entrare, si chiama il logout
'call doLogout(true)
case 1
strErrorMessage = strErrorMessage &"Inserire il valore di Username."
case 11, 12
strErrorMessage = strErrorMessage &"Il valore di Username inserito non è esatto."
case 13
strErrorMessage = strErrorMessage &"Il valore di Username contiene caratteri non validi."
case 2
strErrorMessage = strErrorMessage &"Inserire il valore della Password."
case 21, 22
strErrorMessage = strErrorMessage &"Il valore della Password inserito non è esatto."
case 23
strErrorMessage = strErrorMessage &"Il valore della Password contiene caratteri non validi."
case 3
strErrorMessage = strErrorMessage &"I valori di Username e Password inseriti non sono validi."
end select
end if
Dim logout
logout = ( len(trim(Request.Querystring("dologout"))) > 0 )
if logout then
call doLogout(true)
end if
%>
Pagina di amministrazione - Login