Forums
 This topic is locked 
             Login Redirects!
 Posted 26 Sep 2001  13:38:10 
  1 
     has   voted 
  26 Sep 2001  13:38:10 Samantha Jones posted: 
 Hopefully someone can help me out here!  I have created a login page...no problem.  BUT, what i need to do is send each user to a different page once the login is verified.  I have got as far as sending to login to a "redirect" page, but i keep on getting errors like:
ADODB.Field error'800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
and the line which it refers to states this:
Session("Name"
I am pretty sure that it's something simple, but i can't see where the problem is.
Let me know if you can wrap your brain around it!
Ta
Replies
 Replied 26 Sep 2001  16:03:17 
   26 Sep 2001  16:03:17 Viktor Farcic replied: 
  Two possible answers:
1. Your recordset isn't created or
2. You don't have records that match criteria.
Send us bigger part of code.
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Hopefully someone can help me out here! I have created a login page...no problem. BUT, what i need to do is send each user to a different page once the login is verified.
I have got as far as sending to login to a "redirect" page, but i keep on getting errors like:
ADODB.Field error'800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
and the line which it refers to states this:
Session("Name"
 = TRIM(Recordset1.Fields.Item("privName"
.Value)
I am pretty sure that it's something simple, but i can't see where the problem is.
Let me know if you can wrap your brain around it!
Ta
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>
  
  1. Your recordset isn't created or
2. You don't have records that match criteria.
Send us bigger part of code.
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Hopefully someone can help me out here! I have created a login page...no problem. BUT, what i need to do is send each user to a different page once the login is verified.
I have got as far as sending to login to a "redirect" page, but i keep on getting errors like:
ADODB.Field error'800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
and the line which it refers to states this:
Session("Name"
I am pretty sure that it's something simple, but i can't see where the problem is.
Let me know if you can wrap your brain around it!
Ta
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>
 Replied 26 Sep 2001  16:10:07 
   26 Sep 2001  16:10:07 Samantha Jones replied: 
  Hiya, ok...the recordset has been created and all the fields are there..but here's the code...as requested.
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/knet2.asp" -->
<%
Dim Recordset1__varLogin
Recordset1__varLogin = "0"
if (Session("MM_valUsername"
        <> ""
 then Recordset1__varLogin = Session("MM_valUsername"
       
%>
<%
Dim Recordset1__varPass
Recordset1__varPass = "0"
if (Session("UserPass"
       <> ""
 then Recordset1__varPass = Session("UserPass"
      
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset"
Recordset1.ActiveConnection = MM_knet2_STRING
Recordset1.Source = "SELECT accessLevel, companyName, privName, privID FROM priv WHERE login = '" + Replace(Recordset1__varLogin, "'", "''"
 + "' AND password = '" + Replace(Recordset1__varPass, "'", "''"
 + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Session("Name"
 = TRIM(Recordset1.Fields.Item("privName"
.Value)
Response.Cookies("access"
 = TRIM(Recordset1.Fields.Item("accessLevel"
.Value)
Session("company"
 = TRIM(Recordset1.Fields.Item("companyName"
.Value)
Response.Cookies("cLogin"
 = Recordset1.Fields.Item("privName"
.Value
Session("ID"
 = TRIM(Recordset1.Fields.Item("privID"
.Value) 
%>
<html>
<head>
<title>Redirection</title>
<% if Recordset1.Fields.Item("accessLevel"
.Value = "admin" then %>
<meta http-equiv="Refresh" content="0; URL=adminlisting.asp">
<% END IF %>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<% IF Trim(Request.Cookies("access"
) = "admin" THEN %>
<% Response.Redirect("adminlisting.asp"
 %>
<% END IF %>
<% IF Trim(Request.Cookies("access"
) = "client" THEN %>
<% Response.Redirect("clientlisting.asp?comp="& Session("company"
) %>
<% END IF %>
<% IF Trim(Request.Cookies("access"
) = "designer" THEN %>
<% Response.Redirect("designlisting.asp"
 %>
<% END IF %>
<% IF Trim(Request.Cookies("access"
) = "accounts" THEN %>
<% Response.Redirect("acountlisting.asp"
 %>
<% END IF %>
<% IF Trim(Request.Cookies("access"
) = "ESB" THEN %>
<% Response.Redirect("www.printchannel.com/cgi-bin/xat/ELECTRICITYSB") %>
<% END IF %>
<% IF Trim(Request.Cookies("access"
) = "Mercer" THEN %>
<% Response.Redirect("www.printchannel.com/cgi-bin/xat/MERCER") %>
<% END IF %>
<% IF Trim(Request.Cookies("access"
) = "VHI" THEN %>
<% Response.Redirect("www.printchannel.com/cgi-bin/xat/VHI") %>
<% END IF %>
<br>
<%= Request.Cookies("cLogin"
 %> <%= Request.Cookies("access"
%> 
</body>
</html>
<%
Recordset1.Close()
%>
That's the entirey of it, still can't manage to wrap my head around it.
Sam
 
  <%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/knet2.asp" -->
<%
Dim Recordset1__varLogin
Recordset1__varLogin = "0"
if (Session("MM_valUsername"
%>
<%
Dim Recordset1__varPass
Recordset1__varPass = "0"
if (Session("UserPass"
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset"
Recordset1.ActiveConnection = MM_knet2_STRING
Recordset1.Source = "SELECT accessLevel, companyName, privName, privID FROM priv WHERE login = '" + Replace(Recordset1__varLogin, "'", "''"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Session("Name"
Response.Cookies("access"
Session("company"
Response.Cookies("cLogin"
Session("ID"
%>
<html>
<head>
<title>Redirection</title>
<% if Recordset1.Fields.Item("accessLevel"
<meta http-equiv="Refresh" content="0; URL=adminlisting.asp">
<% END IF %>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<% IF Trim(Request.Cookies("access"
<% Response.Redirect("adminlisting.asp"
<% END IF %>
<% IF Trim(Request.Cookies("access"
<% Response.Redirect("clientlisting.asp?comp="& Session("company"
<% END IF %>
<% IF Trim(Request.Cookies("access"
<% Response.Redirect("designlisting.asp"
<% END IF %>
<% IF Trim(Request.Cookies("access"
<% Response.Redirect("acountlisting.asp"
<% END IF %>
<% IF Trim(Request.Cookies("access"
<% Response.Redirect("www.printchannel.com/cgi-bin/xat/ELECTRICITYSB") %>
<% END IF %>
<% IF Trim(Request.Cookies("access"
<% Response.Redirect("www.printchannel.com/cgi-bin/xat/MERCER") %>
<% END IF %>
<% IF Trim(Request.Cookies("access"
<% Response.Redirect("www.printchannel.com/cgi-bin/xat/VHI") %>
<% END IF %>
<br>
<%= Request.Cookies("cLogin"
</body>
</html>
<%
Recordset1.Close()
%>
That's the entirey of it, still can't manage to wrap my head around it.
Sam