This is the Error I'm getting. why isn't request.session a member of the httpRequest?
Is this how I can replace the contents of session(ID)
session("ID") = ( User_Id ) and if I can could I access that from any page, especially in the server scripts in my upload.aspx? Thx in Advance
Compiler Error Message: BC30456: 'session' is not a member of 'System.Web.HttpRequest'.
Source Error:
Line 31:
Line 32:
Line 33: request.session("id")
Line 34: request.querystring("key")
Line 35: request.servervariablea("remote_addr")
Source File: c:\inetpub\wwwroot\mess\Logged_Home.aspx Line: 33
<%@ Page Language="VBScript" Debug="true" aspcompat=true %>
<%
Dim query conn, dbQuery, rs, User_Id, Password, recordsetDB,,query3
Dim old_User_Id, query2,online, useronline,userid, usernames, query1, makeonline
User_Id = request.form("User_Id")
Password = request.form("Password")
conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\mess\databases\Members.mdb")
query = "SELECT * " & _
"FROM Members " & _
"WHERE User_Id = " &" '" & User_Id & "' AND Password = " &" '" & Password & "' "
rs = conn.execute(query)
if rs.eof then
response.redirect("No_User.html")
end if
if NOT rs("user_Id").value is ("Admin") AND rs("Password").value is ("Mess") THEN
response.redirect("Admin.asp")
end if
request.session("id")
request.querystring("key")
request.servervariablea("remote_addr")
session("ID") = ( User_Id )
query1 = " UPDATE Members SET offlinenow = False WHERE offlinenow = True AND User_Id = '" & User_Id & "' "
conn.execute(query1)
Dim Timenow = Now()
query3 = " UPDATE Members SET Login_Time = Now() WHERE User_Id = '" & User_Id & "' "
conn.execute(query3)
useronline = "Yes"
query2 = " SELECT User_Id FROM Members WHERE offlinenow = False "
online = conn.execute(query2)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Logged_Home</title>
</head>
<body>
Who is logged on: <%
DO WHILE NOT online.EOF
recordsetDB = server.createObject("ADODB.recordset")
recordsetDB.Open (online)
response.write (online ("User_Id").value)
response.write(",")
online.MoveNext
Loop
%>
<br>
<br>
<br>
THIS wILL BE THE MAIN PAGE!
What session is carrying: <%response.write (session("memberID")) %>
<br></br>
<p>
<%
response.write("You Are " & Application("Numsession") & " OF " & Application ("NumVisited") & " Users")
%>
This is rs: <%response.write (query) %><br><p>
This is if you are logged on: <%
If (rs("offlinenow").value) = False Then
response.write("True")
else
response.write("False")
end if
'response.write(rs("offlinenow").value) %>
<form NAME="Update" METHOD="POST" ACTION="Update_Member_Reg.aspx">
UPDATE YOUR MEMBER INFO<p>User ID<input Name="User_Id" SIZE="20" MAXLENGTH="20" value="<%=session("member")%>"> </td>
Password<input TYPE="PASSWORD" NAME="Password" SIZE="20" MAXLENGTH="20">
<input type="submit" value="Submit" name="Update_Button"> </p>
</form>
<form method="POST" enctype="multipart/form-data" action="Upload.aspx">
<input Name="User_Id" TYPE="Hidden" SIZE="20" MAXLENGTH="20" value="<%=User_Id%>">
<p><input type="file" name="File" size="20">
<input type="submit" value="Submit" name="B1">
<input type="reset" value="Reset" name="B2"></p>
</form>
THE USER ID BEING PASSED: <%response.write(User_Id)%>
<p><a href="log_Out.aspx?User_ID=<% response.write(User_Id)%> " >Log Off</a></p>
<p><a href="View_Members.aspx">View who has signed up!</a></p>
<p><a href="Chat/Default.asp">Go and chat!</a></p>
<p><a href="Upload.aspx?User_ID=<% response.write(User_Id)%> " >Upload a pic</a></p>
</body>
</html>