%
Option Explicit
Dim errorMsg ' Error Mesage
errorMsg = ""
'If a session exists, then send them to the members index page
if Session("mySessionID") = Session.SessionID then
response.redirect("member_index.asp")
end if
' If there was a login error or timeout, notify the user
If Len(Request("errCode")) > 0 Then
Select Case Request("errCode")
Case 1
errorMsg = "Invalid login or password. Please try again."
Case 2
errorMsg = "Either your session timed out, or you are attempting to access a private site.
Please login below."
End Select
End If
%>