|
bugzy
Junior Member
USA
147 Posts |
 Posted - 22 November 2000 : 03:34:28
|
so i would add the following into for example my /index.asp file
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Dim objConn, strConn, CheckInTime, SQL, User, Timedout, Date
Dim objRS, strSQL, houron, minon, Datec
Dim OnlineLocation
OnlineLocation = "<a href=forum.asp?" & Request.QueryString & ">" & Request.QueryString("Forum_Title") & "</a>"
if Request.cookies("User")("Name") = "" then
User = Request.ServerVariables("REMOTE_ADDR") & "Guest"
else
User = Request.cookies("User")("Name")
end if
Date = DateToStr(strForumTimeAdjust)
CheckInTime = DateDiff( "s", CDate("01/01/1970"), Now)
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
strSql = "SELECT " & strTablePrefix & "ONLINE.UserID "
strSql = strSql & " FROM " & strTablePrefix & "ONLINE "
strSql = strSql & " WHERE " & strTablePrefix & "ONLINE.UserID = '" & user & "'"
set rsWho = my_Conn.Execute (strSql)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = strConnString
objConn.Open
SQL = "UPDATE FORUM_ONLINE SET M_BROWSE = '" & OnlineLocation & "' , DateCreated = '" & Date & "' WHERE UserID = '" & User & "'"
objConn.Execute SQL
TimedOut = CheckInTime - 3600 'time out the user
SQL = "DELETE FROM FORUM_ONLINE WHERE CheckedIn < '" & TimedOut & "'"
objConn.Execute SQL
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>
and which is the variable i need to edit to tell the code the name of the page ?!
i was guessing "forum_title" ... but not how id give the value
|
 |
|
Topic Locked
