<% ' PASSWORD.ASP Option Explicit Const DQ = """" Call Main Sub Main If Request("a") = "v" Then Validate Else ShowForm End If End Sub Sub ShowForm WriteLine "iCatholicZone System Login" WriteLine "" WriteLine "

iCatholicZone System Login

" WriteLine "
" WriteLine "" WriteLine "" WriteLine "" WriteLine "" WriteLine "" WriteLine "" WriteLine "" WriteLine "" WriteLine "" WriteLine "
User ID:
Password:
" WriteLine "" WriteLine "
" WriteLine "
" End Sub Sub Validate If Request("txtUserID") = "icatholiczone" _ And Request("txtPassword") = "zoneout" Then Response.Redirect "Default.asp" Else Response.Write "ERROR: Invalid user ID/password." End If End Sub Sub WriteLine(strData) Response.Write strData & vbCrLf End Sub %>