%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Expires = -1500 strCSSUserPassword = "WC-326" strCSSAdminPassword = "WC-326RICKMILLER" strCSSUserPassword = UCase(strCSSUserPassword) strCSSAdminPassword = UCase(strCSSAdminPassword) strSubmittedPassword = UCase(Request.Form("strPassword")) If Request.Form() <> "" Then If strSubmittedPassword = strCSSUserPassword Then Session("LoginStatus") = "USER" ElseIf strSubmittedPassword = strCSSAdminPassword Then Session("LoginStatus") = "ADMIN" ElseIf Request.Form("btnLogout") <> "" Then Session("LoginStatus") = "" Response.Redirect("http://corvettesupersports.com/frame/frameset.html") Else Session("LoginStatus") = "" End If Response.Redirect("LoginPage.asp") End If %>
|
|