 |
" Set SQLResult = OBJdbConnection.Execute(SQLStringTest) if SQLResult.EOF = true then %> There is no user matching '<%= request.cookies("endousername") %>' Please go back to try again or to register. Help, I can not remember my username or password. <% IF (request.cookies("endousername") = "") then %>NOTE: It appears that your web browser is refusing all cookies. Endozone and many other sites require the acceptance of a cookie in order to enable login. The cookie can be a session only cookie which is safe and does not get written to your computer's hard drive. These session cookies go away automatically when the browser is closed. In Internet Explorer you may find the allow cookie setting by going to tools / internet options / privacy menu. Choose the "advanced" button and click on the checkbox to accept all session cookies. After verifying that your browser is accepting cookies and if you still see this message please contact endozone@endozone.org and notify us of the problem, providing as much detail as possible. One other thing to try is to NOT click on the remember me box when you enter your username and password. We apologize for the inconvenience and hope these instructions help. <% end if %> <% else SQLStringTest = "SELECT salutation, middlename, title, firstname, familyname, username, email FROM Members " SQLStringTest = SQLStringTest & "WHERE username = '" & request.cookies("endousername") & "' AND " SQLStringTest = SQLStringTest & " password = '" & request.form("password") & "'" ' Response.Write SQLStringTest & "" Set SQLResult = OBJdbConnection.Execute(SQLStringTest) if SQLResult.EOF = true then %> The password '<%= request.form("password") %>' is incorrect. Please go back to try again or to register. Help, I can not remember my username or password. <% else %> <% IF request.form("rememberme") <> "" THEN %> <% ELSE %> <% END IF %> <% endoOK = "true" %> EndoZone.org LoginWelcome, <% Response.Write SQLResult("salutation") & " " Response.Write SQLResult("firstname") & " " Response.Write SQLResult("middlename") & " " Response.Write SQLResult("familyname") & " " Response.Write SQLResult("title")& " " %> you are now logged in.<% end if %> <% end if %> <% ELSE %> EndoZone.org LoginPlease enter your self-assigned username and password to enter the Endometriosis Zone. If you do not share this computer feel free to check the "remember me" box below to automatically fill out the username and password and log you in the next time you return. If you have not registered since the new EndoZone.org site design (October, 2002) please register now. Registration is free and instantaneous Click here to register.
Help, I can not remember my username or password. <% END IF %> <% else %> <% Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "endozone" SQLStringTest = "SELECT salutation, middlename, title, firstname, familyname, username, email FROM Members " SQLStringTest = SQLStringTest & "WHERE username = '" & request.cookies("endousername") & "'" ' Response.Write SQLStringTest & "" Set SQLResult = OBJdbConnection.Execute(SQLStringTest) if SQLResult.EOF = true then Response.write "There is no user matching " & request.cookies("endousername") & " " else %> EndoZone.org LoginWelcome <% Response.Write SQLResult("salutation") & " " Response.Write SQLResult("firstname") & " " Response.Write SQLResult("middlename") & " " Response.Write SQLResult("familyname") & " " Response.Write SQLResult("title")& " " %> You are already logged in. If you wish to logout or login as a different person click here. <% OBJdbConnection.Close Set OBJdbConnection = Nothing %> |