Calling A Field content via ASP

Example:

Example:

<%

Sub gotoPage(startpage)
      Select Case startpage
      case "Manage Contents"
            Session("mainpage") = "contents.asp"
            Response.redirect("contents.asp")
      case "Manage Users"
            Session("mainpage") = "users.asp"
            Response.redirect("users.asp")
      case "Account Details"
            Session("mainpage") = "accdetails.asp"
            Response.redirect("accdetails.asp")
      case "SiteTrack"
            Session("mainpage") = "sitetrack.asp"
            Response.redirect("sitetrack.asp")
      case "Activity Logs"
            Session("mainpage") = "activitylogs.asp"
            Response.redirect("activitylogs.asp")
      case "Help"
            Session("mainpage") = "help.asp"
            Response.redirect("help.asp")
      case else
            Session("mainpage") = "welcome.asp"
            Response.redirect("welcome.asp")
      End select                        
End Sub

Userid = Replace(Request("userid"), "'", "''")
      
Session.TimeOut = 100

set rs = Server.CreateObject("ADODB.Recordset")
SQLStr = "Select * from admin where userid ='" & Userid & "'"
Rs.Open SQLStr, conn, 1, 1

IF Not Rs.Eof Then
      IF Rs("pwd") = request("pwd") Then
            call gotoPage(Rs("startpage"))                                    
      Else
            Response.redirect("index.asp?error=1")
      End IF
Else

      Response.redirect("index.asp?error=1")
End IF
Rs.close
Conn.close
Set Rs = Nothing
Set Conn = Nothing


%>

Apply and customize this to suit your requirement.

regards

It would be easier if you added a UserID to the database table and a UserID session.  The position would be irrelevant. So it would go something like this:

<%
'rst is your recordset
'conn is your database connection
'If your UserID is just a number change the WHERE to: WHERE UserID = "& Session("UserID") &""

set rst = Server.CreateObject("adodb.recordset")
SQL = "SELECT UserID, Path  FROM Web_Path WHERE UserID = '"& Session("UserID") &"'"
rst.Open SQL, conn, 3
     If rst.eof Then 'If we can't find a session UserID that matches the table UserID Then redirect to this page.
          response.redirect("not_found.asp")
     Else
          response.redirect rst("Path")
     End If
rst.close
set rst = nothing
%>

arznek..

i tried the code above but it doesn't work..an error was generated during execution. The error was in this line :

rst.Open SQL, conn, 3

what does the 3 means?tx..

If you don't use Sessions then set a cookie called UserID... it change Session("UserID") to Request.Cookies("UserID")


you can set a cookie during authentication using the lines below:

response.Cookies("UserID") = request.form("UserID")
response.Cookies("UserID").Expires = DateAdd("d", 1, Date)