<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Dungillie Pipe band Members Only
<%
Response.Expires = -1000 'Make sure the browser doesn't cache this page
Response.Buffer = True 'enables our response.redirect to work
%>
Dungillie Pipe band Members only
<%
If Request.Form("submit") ="Login" Then
CheckLoginForm
Else
ShowLoginForm
End If
%>
<%
Sub CheckLoginForm
'check if the value of the text field 'username' and 'password' are correct
If Request.Form("username") = "gillie" AND Request.Form("password") = "golddigger" Then
Session("BlnLoggedIn") = True
Response.Redirect "memberspage.asp"
Else
'if the values entered are incorrect then display the message below
Response.Write " you are not logged in.
"
ShowLoginForm
End If
End Sub
%>
<% Sub ShowLoginForm %>
<% End Sub %>