
March 4th, 2003, 02:39 PM
|
|
Junior Member
|
|
Join Date: Mar 2003
Location: Canada
Posts: 3
Time spent in forums: < 1 sec
Reputation Power: 0
|
|
confirm Login no worky.
Basically I cannot get this baby to work other than to allow the GUEST ACCESS and the ADMIN ACCESS the MEMBER ACCESS I am not even sure if it is even connecting to the databse.
Here is the code for the CONFIRMLOGIN page and also the LIBRARY.INC page.
When Logging in as a MEMBER it simply redirects to the mainview page but as a GUEST. Ishn't dat vierd?
Any suggestions would be appreciated..........
Heres the ConfirmLogin.asp
<!--#include file="Library.inc"-->
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="refer.css">
<TITLE></TITLE>
<% Response.Buffer = true %>
<%
Username = request.form("txtUserName")
Password = request.form("txtPassword")
if Password = "letmein" and Username = "admin" then%>
<%response.clear%>
<%Response.Redirect "MainView.asp?user=admin"%>
<%
session("User_Id") = ""
session("UserName") = ""
session("FirstName") = ""
session("LastName") = ""
session("Street") = ""
session("City") = ""
session("Province") = ""
session("PostalCode") = ""
session("Telephone") = ""
session("Email") = ""
session("Password") = ""
%>
<% Else %>
<%
dim objrsUsers, sql
sql = "SELECT * FROM Users WHERE UserName = 'UserName';"
set objrsUsers = Server.CreateObject("ADODB.Recordset")
objrsUsers.Open sql, objConn
if objrsUsers.EOF then
response.clear
response.redirect"MainView.asp?user=guest"
else
if UserName = txtUserName and not objrsUsers.EOF then
session("bvaliduser") = (objrsUsers.Fields.Item("txtUserName").value)
'Response.cookies("ckLoggedin") = "Loggedin"
'response.clear
response.redirect"MainView.asp?user=member"%>
<%end if%><%end if%><%end if%>
Now heres the Library.Inc page
<!-- #Include file="adovbs.inc" -->
<%
dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Library"
'if Session("bValidUser") = True and Session("UserID") = "" then
'dim rsPersonIDCheck
'set rsPersonIDCheck = Server.CreateObject("ADODB.Recordset")
'dim strSQL
'strSQL = "SELECT User_ID FROM Users WHERE E_Mail = '" & Session("E_Mail") & "';"
'rsPersonIDCheck.Open strSQL, objConn
'if rsPersonIDCheck.EOF then
'Session("bValidUser") = False
'else
' Session("UserID") = rsPersonIDCheck("UserID")
'end if
'rsPersonIDCheck.Close
'end if
%>
|