| Author |
 Topic  |
|
MotoX
Junior Member
201 Posts |
 Posted - 02 August 2001 : 14:08:04
|
This is foolish, why would post.asp still pass it on, but not forum.asp or topic.asp??? In order to put that in there it will take me a million years! How about if I used a SQL query in the line that goes:
If lcase(Right(strOnlinePathInfo, 9)) = "forum.asp" Then
strOnlineLocation = "<a href=""forum.asp?" & strOnlineQueryString & """>" & Request.QueryString("Forum_Title") & "</a>"
But instead of using "Forum_Title" I used a query that got the title FROM the ID, because if I change the above from "Forum_Title" to "Forum_ID" I DO get the correct ID. I just don't know how I would put a query into a statement like that.... |
 |
|
|
Cyber Paladin
New Member
55 Posts |
Posted - 02 August 2001 : 14:08:39
|
It will have to be re coded to access the database and grab the correct info depending on the new ID that were implemented in 3.3. I wouldn't be that hard, I think I'll do that when I get some free time.
|
|
|
|
MotoX
Junior Member
201 Posts |
Posted - 02 August 2001 : 14:13:49
|
| If you Do do this, remember that this problem exists in more than one place. It would be awfully kind of you to help me get this fixed... |
|
|
|
enkabe
Starting Member
26 Posts |
Posted - 05 August 2001 : 17:40:15
|
Well I found the code snippets for this MOD.
I got Richards active_Users2.asp addon, asswell as the Mod_db setup.
I found big9erfan's code to replace the original code (that I did not
find BTW) in INC_top.asp .
My Guess is that I'm missing the code that should be here
http://www.dsilvera.com/forum/mods/active_users.zip the link is not working at
the moment I'm getting the this error.
===
The Microsoft Jet database engine cannot find the input table or query 'FORUM_ONLINE'. Make sure it exists and that its name is spelled correctly.
===
Am I missing files here, wich files are they, can someone post them somewhere or mail them?
Thanks,
Enkabe@planet.nl
|
|
|
|
Cygnus
Starting Member
28 Posts |
Posted - 06 August 2001 : 19:13:22
|
The brinkster link is giving an error.
"This file cannot be directly accessed, but must be linked through the Brinkster Member's site."
If someone would e-mail me a copy I'll host it.
|
|
|
|
E*DAVE
Starting Member
USA
49 Posts |
Posted - 06 August 2001 : 22:59:37
|
quote:
The brinkster link is giving an error.
"This file cannot be directly accessed, but must be linked through the Brinkster Member's site."
If someone would e-mail me a copy I'll host it.
Copy the link and launch a new browser. Paste the link into that. It will work
|
|
|
|
Cyber Paladin
New Member
55 Posts |
Posted - 07 August 2001 : 00:27:43
|
Here is the updates active users code: Just the portion that finds the forum and topic they are reading bit. I updated it to search the database for the data that is required.
' TRY AND FIND OUT WHAT PAGE THEY ARE ON
If lcase(Right(strOnlinePathInfo, 9)) = "forum.asp" Then
ID = request.Querystring("FORUM_ID")
strSQL = "SELECT FORUM_ID, F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & ID
set rst = my_conn.execute(strSQL)
strOnlineLocation = "<a href=""forum.asp?FORUM_ID=" & ID & """>" & rst("F_SUBJECT") & "</a>"
ElseIf lcase(Right(strOnlinePathInfo, 11)) = "default.asp" Then
strOnlineLocation = "<a href=""default.asp"">Home</a>"
ElseIf lcase(Right(strOnlinePathInfo, 9)) = "topic.asp" Then
ID = request.Querystring("TOPIC_ID")
strSQL = "SELECT TOPIC_ID, T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID = " & ID
set rst = my_conn.execute(strSQL)
strOnlineLocation = "Viewing Message ' <a href=""topic.asp?TOPIC_ID=" & ID & """>" & rst("T_SUBJECT") & "</a> '"
ElseIf lcase(Right(strOnlinePathInfo, 8)) = "post.asp" Then
If Request.QueryString("method") = "Reply" Then
strOnlineLocation = "Replying To Message ' <a href=""topic.asp?" & strOnlineQueryString & """>" & Request.QueryString("Topic_Title") & "</a> '"
ElseIf Request.QueryString("method") = "Topic" Then
strOnlineLocation = "Posting New Topic in ' <a href=""forum.asp?" & strOnlineQueryString & """>" & Request.QueryString("Forum_Title") & "</a> '"
Else
strOnlineLocation = "Unknown"
End If
ElseIf lcase(Right(strOnlinePathInfo, 10)) = "active.asp" Then
strOnlineLocation = "<a href=""active.asp"">Active Topics</a>"
ElseIf lcase(Right(strOnlinePathInfo, 11)) = "members.asp" Then
strOnlineLocation = "<a href=""members.asp"">Members</a>"
ElseIf lcase(Right(strOnlinePathInfo, 10)) = "search.asp" Then
strOnlineLocation = "<a href=""search.asp"">Search</a>"
ElseIf lcase(Right(strOnlinePathInfo, 7)) = "faq.asp" Then
strOnlineLocation = "<a href=""faq.asp"">FAQ</a>"
ElseIf lcase(Right(strOnlinePathInfo, 15)) = "pop_profile.asp" Then
If Request.QueryString("mode") = "Display" Then
strOnlineLocation = "<a href=""pop_profile.asp?" & strOnlineQueryString & """>Members Profile</a> '"
Else
strOnlineLocation = "Profile"
End If
ElseIf lcase(Right(strOnlinePathInfo, 11)) = "pm_view.asp" Then
strOnlineLocation = "<a href=""pm_view.asp"">Private Message Inbox</a>"
ElseIf lcase(Right(strOnlinePathInfo, 14)) = "pm_options.asp" Then
strOnlineLocation = "<a href=""pm_view.asp"">Private Messages Options</a>"
ElseIf lcase(Right(strOnlinePathInfo, 15)) = "privatesend.asp" Then
strOnlineLocation = "<a href=""privatesend.asp"">Sending Private Message</a>"
ElseIf lcase(Right(strOnlinePathInfo, 16)) = "active_users.asp" Then
strOnlineLocation = "<a href=""active_users.asp"">Active Users</a>"
Else
strOnlineLocation = "Unknown Page"
End If
----------------------------------------------------------------
The two red areas are the ones that I edited, the other parts are un changed.
Remember... Amateurs built the Ark, but professionals built the Titanic. |
|
|
|
GnatRat
Starting Member
2 Posts |
Posted - 07 August 2001 : 04:04:28
|
Hmmmmmm...
I know..I know...it's been asked hundreds of times...
BUT
Does ANYONE have a GOOD WORKING URL to download the working code for V3.3?
If not...send it to me via email and I'll try and host the file somewhere.
PLEASE!
mailto:gnatrat@sega.net
|
|
|
|
greedo
Starting Member
France
31 Posts |
|
|
MotoX
Junior Member
201 Posts |
Posted - 07 August 2001 : 07:53:53
|
Cyber,
AWESOME job. Works like a champ. Thank you thank you thank you!!
 |
|
|
|
Cygnus
Starting Member
28 Posts |
Posted - 07 August 2001 : 11:58:09
|
Ok, I've got active_users_setup.zip, active_users_addons.zip, and active_users_addons2.zip. . . . does someone have active_users.zip?
|
|
|
|
GnatRat
Starting Member
2 Posts |
Posted - 07 August 2001 : 12:05:50
|
Same problem here Cyg...and the dsilva link doesn't work anymore for the activeusers zip.
You think with everyone that has it working they would zip it up and share the wealth...
|
|
|
|
@tomic
Senior Member
USA
1790 Posts |
|
|
Cygnus
Starting Member
28 Posts |
Posted - 07 August 2001 : 12:39:25
|
Thanks a million tomic 
|
|
|
|
GnatRat
Starting Member
2 Posts |
Posted - 07 August 2001 : 12:48:03
|
Yeah..Thanks @tomic
|
|
|
|
Topic |
|
Topic Locked
