<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<%
Dim strMessage
Dim strNewMessage
Dim strType
strType = request.QueryString("type")
if strType ="login" then
if request.QueryString("message") ="1" Then
strMessage = "Incorrect Email or Password"
elseif request.QueryString("message") = "2" Then
strMessage = "Membership Expired"
End If
ElseIf strType = "newmem" Then
Select case request.QueryString("mess")
case "1"
strNewMessage ="SORRY YOUR EMAIL WAS INVALID!"
Case "2"
strNewMessage ="SORRY YOUR PASSWORDS DO NOT MATCH!"
Case "3"
strNewMessage ="SORRY EMAIL ADDRESS ALREADY IN USE!"
End select
End If
%>
Kent Dungeon Members Login
