% pwdHTML = "" If Not(PwdCheck(pwdHTML)) Then Response.Redirect("./prof_error.asp") Response.End End If Function PwdCheck(pwdHTML) If Not(Trim(Request.Form("itsanenigma")) = "") Then If (Trim(Request.Form("itsanenigma")) = varTest) Then varTest = "LoggedInTrue" Session("ProfData") = varTest PwdCheck = True Else PwdCheck = False End If Else If isEmpty(Session("ProfData")) Then PwdCheck = False Else PwdCheck = True End If End If End Function Sub Out(strVar) Response.Write strVar End Sub %>
![]() |
![]() ![]() |
||||||||||||||||||||||||||||||||||||||
|
|