T
Terry On Windigo
I think I have figured out my problem but I don't know how to solve it. We
are going to start using a forums package and do not want our users to have
to login to both our site, and then again to the forums package. The
creator of the forums package provides what seems to be an easy workaround
for this. Create two session variables, one for ID, the other for Password,
and his program will take care of the rest.
I have all of my forums package off the root of the drive that has my
Inetpub directory, and within my IIS settings have a virtual directory
pointing to the actual folder. I'm wondering that since my actual forums
folder is outside my IIS, or if its a virtual directors my Session Variables
are not being picked up. I also wonder this for the following reason. On
all of my pages I have
<% If Session("LoggedIn")= "Proceed" Then
Else
Server.Transfer "LoginReturning.asp"
End If
%>
which keeps people from bookmarking and coming back in without logining back
in to the site. However on the forums default.asp page this does not work,
which leads me to believe once again it's a placement issue on my hardrive
with my folders. If I am wrong in my assumptions, and I can do this, how
would I pass the session variable to my default.asp page in my forums
folder? Here is the page that does the checking of my login verification:
<%
Option Explicit
Dim strConnect
%>
<!-- #Include File="Data.asp" -->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>
</head>
<body>
<%
Dim objconn, objrs
Dim lcsql, strName, strEmail, strPassword, Trial, Expiredate,
strCookie2
Set objconn = Server.CreateObject("ADODB.Connection")
Set objrs=Server.CreateObject("ADODB.Recordset")
objconn.open strConnect
Trial = Date
strEmail = request.form("Email")
strPassword = request.form("password")
lcsql="select * FROM results WHERE Email =
'"+request.form("Email")+"' and password = '"+request.form("password")+"'"
objrs.Open lcsql,objconn,0,1,1
'No records returned because user not found
If objrs.EOF then
%>
<Script Language=VBscript>
ReturnItem = msgbox( "Either your name or password was
incorrect, try again.", vbOKOnly, "INCORRECT ENTRY")
</Script>
<%
Server.Transfer "LoginReturning.asp"
else
Session("LoggedIn") = "Proceed"
'The next two session vars are for the forums page
Session("USER") = request.form("Email")
Session("PASSWORD") = request.form("password")
'Check to see that Session variables were indeed assigned
response.write Session("PASSWORD")
response.write Session ("USER")
Server.Transfer "Index.asp"
end if
objrs.Close
objconn.Close
%>
</body>
</html>
Terry
are going to start using a forums package and do not want our users to have
to login to both our site, and then again to the forums package. The
creator of the forums package provides what seems to be an easy workaround
for this. Create two session variables, one for ID, the other for Password,
and his program will take care of the rest.
I have all of my forums package off the root of the drive that has my
Inetpub directory, and within my IIS settings have a virtual directory
pointing to the actual folder. I'm wondering that since my actual forums
folder is outside my IIS, or if its a virtual directors my Session Variables
are not being picked up. I also wonder this for the following reason. On
all of my pages I have
<% If Session("LoggedIn")= "Proceed" Then
Else
Server.Transfer "LoginReturning.asp"
End If
%>
which keeps people from bookmarking and coming back in without logining back
in to the site. However on the forums default.asp page this does not work,
which leads me to believe once again it's a placement issue on my hardrive
with my folders. If I am wrong in my assumptions, and I can do this, how
would I pass the session variable to my default.asp page in my forums
folder? Here is the page that does the checking of my login verification:
<%
Option Explicit
Dim strConnect
%>
<!-- #Include File="Data.asp" -->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>
</head>
<body>
<%
Dim objconn, objrs
Dim lcsql, strName, strEmail, strPassword, Trial, Expiredate,
strCookie2
Set objconn = Server.CreateObject("ADODB.Connection")
Set objrs=Server.CreateObject("ADODB.Recordset")
objconn.open strConnect
Trial = Date
strEmail = request.form("Email")
strPassword = request.form("password")
lcsql="select * FROM results WHERE Email =
'"+request.form("Email")+"' and password = '"+request.form("password")+"'"
objrs.Open lcsql,objconn,0,1,1
'No records returned because user not found
If objrs.EOF then
%>
<Script Language=VBscript>
ReturnItem = msgbox( "Either your name or password was
incorrect, try again.", vbOKOnly, "INCORRECT ENTRY")
</Script>
<%
Server.Transfer "LoginReturning.asp"
else
Session("LoggedIn") = "Proceed"
'The next two session vars are for the forums page
Session("USER") = request.form("Email")
Session("PASSWORD") = request.form("password")
'Check to see that Session variables were indeed assigned
response.write Session("PASSWORD")
response.write Session ("USER")
Server.Transfer "Index.asp"
end if
objrs.Close
objconn.Close
%>
</body>
</html>
Terry