<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
Session("UserLoggedIn") = ""
If Request.Form("login") = "true" Then
CheckLogin
Else
ShowLogin
End If
Sub ShowLogin
%>
<%
End Sub
Sub CheckLogin
If LCase(Request.Form("username")) = "pelco" And LCase(Request.Form("userpwd")) = "gallery" Then
Session("UserLoggedIn") = "true"
Response.Redirect "0054.asp"
Else
Response.Write("")
ShowLogin
End If
End Sub
%>
A-Plus Signs: Fresno and Central Valley Neon and Electric Sign Solution
