<% If Request.Form("page") = "1" Then If CheckLogin (Request.Form("username"), Request.Form("pass")) Then Session("scnews") = strusername Response.Redirect "admin.asp" Else strprompt = "Failed Login. Please try again." displaylogin (strprompt) End If Else strprompt = "Please Login." displaylogin (strprompt) End If %> <% Sub displaylogin (iprompt) %> Area Amministrazione <%= iprompt %>
Username:
Password: 
<% End Sub %>