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

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") = "STSchool" _ And Request("txtPassword") = "WebSite" Then Response.Redirect "Default.asp" Else Response.Write "ERROR: Invalid user ID/password. Please contact WebMaster!" End If End Sub Sub WriteLine(strData) Response.Write strData & vbCrLf End Sub %>