<% Option Explicit %> <% Dim intLogonForced Dim intErrorOccurred Dim strDestPage Dim strLoginID Dim strPassword Dim ckbSavePsw Dim intID Dim intOriginal Dim qs Dim sParams strLoginID = Request.Cookies("Profile")("LoginID") strPassword = Request.Cookies("Profile")("UserPsw") ckbSavePsw = Request.Cookies("Profile")("SavePsw") intOriginal = Request("oid") strDestPage = Request("destpage") If strDestPage = "" then strDestPage = strRootPath & "default.asp" intLogonForced = Int(Request("fcd")) intErrorOccurred = int(Request("e")) 'Pass any number of extra parameters to this Wait For routine For Each qs In Request.QueryString sParams = sParams & "&" & qs & "=" & Request.QueryString.Item(qs) Next sParams = "?verify=1" & sParams Dim strHTML %>

	Home  Member Login

	MEMBER LOGIN ><% '--------------------------------------------------------------- 'User has been forced to login If intLogonForced then Response.Write "" Response.Write "The area of the Site you requested requires you to be signed in. " '--------------------------------------------------------------- 'User has tried to login and there was a database error ElseIf intErrorOccurred = 1 then Response.Write "" Response.Write "The YACMAMEZION Database is momenterily executing maintenance. Please try again. If problem persists contact YACMAMEZION Webmaster " '--------------------------------------------------------------- 'Has user entered wrong member name or password ? ElseIf intErrorOccurred = 2 then Response.Write "" Response.Write "You have entered and incorrect Member Name or an incorrect password " End If %> To log in enter your member name and password then press "Enter" "> Login ID   name="username" <% WriteIE("size='18'")%><% WriteNetscape("size='9'") %> maxlength="20" VALUE="<% If ckbSavePsw="on" then Response.Write strLoginID %>"> Password    name="password" <% WriteIE("size='18'")%><% WriteNetscape("size='9'") %> maxlength="18" Value="<% If ckbSavePsw="on" Then Response.Write strPassword %>"> type="checkbox" name="savepsw" <% IF ckbSavePsw="on" then Response.Write "CHECKED" %>> Save Password <% WriteNetscape("") %> type="submit" value="Enter">    Forgot your password?  Not a registered member? If you are not a member, register here If you had previously registered with us and have not had any activity on this Site for the past 240 days, chances are your membership with us has expired. Otherwise, type the member name and password in the spaces provided to the left.   For security reasons, if your visit is idle for more than 20 minutes this Site will require you to log in again.