%
If Request.Form("page") = "1" Then
If CheckLogin (Request.Form("username"), Request.Form("pass")) Then
Session("scnews") = strusername
Response.Redirect "http://www.globalsup.it/2010/amministrazione.html"
Else
strprompt = "Failed Login. Please try again."
displaylogin (strprompt)
End If
Else
strprompt = ""
displaylogin (strprompt)
End If
%>
<%
Sub displaylogin (iprompt)
%>
GLOBALSUP S.R.L. - CONSULENZA INFORMATICA - VENDITA - ASSISTENZA - INSTALLAZIONEPersonal Computer ~ Assemblaggio, riparazione, assistenza e vendita personal computers