Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 New feature: How many using your forum now
 New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 6

HuwR
Forum Admin

United Kingdom
20587 Posts

Posted - 22 October 2000 :  12:19:54  Show Profile  Visit HuwR's Homepage
If you download the whos_online_setup.zip and the whosonline.zip, it works fine with 3.1sr2.

<font color=blue>'Resistance is futile'</font id=blue>
Go to Top of Page

Terrell
Starting Member

1 Posts

Posted - 23 October 2000 :  12:29:44  Show Profile  Send Terrell a Yahoo! Message
I'm having the same problem as Kal. Everytime I add this in I keep getting File already in use. The forum works fine until I add it.

Has anyone had a similar problem adding this code?

Go to Top of Page

Aznknight
Senior Member

USA
1373 Posts

Posted - 23 October 2000 :  14:25:38  Show Profile  Send Aznknight an AOL message  Send Aznknight an ICQ Message
I had to change the name of the <b>date</b> variable to something else because it was overwriting the build in vbscript date() method and my dates were all messed up.

<pre id=code><font face=courier size=2 id=code>
'###############################################
Dim objConn, strConn, CheckInTime, SQL, User, Timedout, <b><font color=red>Date</font id=red></b>
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 = '" & <b>Date</b> & "' WHERE UserID = '" & User & "'"
objConn.Execute SQL



TimedOut = CheckInTime - 3600 'time out the user

SQL = "DELETE FROM FORUM_ONLINE WHERE CheckedIn < '" & TimedOut & "'"
objConn.Execute SQL
'###############################################
</font id=code></pre id=code>

I like this mod alot. Thanks slemieux for the code.

- Alan
www.calvsa.net


Edited by - aznknight on 23 October 2000 14:27:23
Go to Top of Page

Jeepaholic
Average Member

USA
697 Posts

Posted - 26 October 2000 :  00:01:38  Show Profile  Visit Jeepaholic's Homepage
Definitely cool... Anyone having an issue where they're signing in and showing up as a guest? When I logged in (I was the only one on-line, I showed up as a guest whether I was logged in or not. I had a friend log in, and they showed up as a member. I don't know if it's my account for some reason, or if maybe it's the first person to log in? The database is showing the same thing the board is...
Thoughts?

Al Bsharah
Jeepaholics Anonymous
Go to Top of Page

ilovemoney
Starting Member

Taiwan
27 Posts

Posted - 28 October 2000 :  21:54:51  Show Profile
Thanks all !!

I can work in 3.1final sr2...<img src=icon_smile_big.gif border=0 align=middle>

but i have the same problem...

Go to Top of Page

Kal Corp
Average Member

USA
878 Posts

Posted - 02 November 2000 :  20:22:13  Show Profile  Visit Kal Corp's Homepage
Does this work, Still getting "Could not use ''; file already in use."

Go to Top of Page

isuru
Junior Member

464 Posts

Posted - 02 November 2000 :  21:37:21  Show Profile
Is it possible to display the members who are logged in and online on the statistics bit.

For example it could say:

"There are currently X members and Y guest on the board"

"The members are: blah blah"

-=-=-=-=-=-=-=-
Isuru Amarasena
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20587 Posts

Posted - 03 November 2000 :  04:13:49  Show Profile  Visit HuwR's Homepage
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Is it possible to display the members who are logged in and online on the statistics bit.

For example it could say:

"There are currently X members and Y guest on the board"

"The members are: blah blah"

-=-=-=-=-=-=-=-
Isuru Amarasena
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>

Here's what you need to do, open online2.asp. remove all the code after the closing </script> tag, and replace it with this

<pre id=code><font face=courier size=2 id=code>
<TR>
<td align="center" bgcolor="<% =strForumCellColor %>" valign="middle">
<a HREF="javascript:pop_online()">[img]online.gif" border="0"></a>
</td>
<TD valign=top bgcolor="<% =strForumCellColor %>" colspan="<% if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then Response.Write("6") else Response.Write("4")%>">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" size="+1">
<A HREF="whos_online.asp"><b>Currently Browsing the Boards</b></A> (<% =onlinecount %>)</FONT><br>
<% if Request.Cookies(strCookieURL & "User")("Name") = "" Then %>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strActiveLinkColor %>">
<b>Welcome Guest</b> - There are <% =Members %> members, and <% =Guests %> guests on the boards
</font>
<% else %>
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strActiveLinkColor %>">
<b>Welcome <% if strAuthType="nt" then %>
<% =session("username")%> (<% =session("userid") %>)</b>
<% else %>
<% if strAuthType = "db" then %>
<% =Request.Cookies(strCookieURL & "User")("Name") %>[/b]
<% end if %>
<% end if %> - There are <% =Members %> members, and <% =Guests %> guests on the boards
</font>
</TD>
</TR>
<% end if

objConn.close%>
</font id=code></pre id=code>

Then open default.asp, move your <!--#include file="online2.asp"--> line to the last line of the WriteStatistics SubFunction, just before the end SUB.

Still in the WriteStatistics sub, change this line
<pre id=code><font face=courier size=2 id=code>
<td rowspan="<% if ShowLastHere then Response.Write("5") else Response.Write("4") end if %>" bgcolor="<%= strForumCellColor %>"> </td>
</font id=code></pre id=code>
to this
<pre id=code><font face=courier size=2 id=code>
<td rowspan="<% if ShowLastHere then Response.Write("4") else Response.Write("3") end if %>" bgcolor="<%= strForumCellColor %>"> </td>
</font id=code></pre id=code>

They you go.

<font color=blue>'Resistance is futile'</font id=blue>
Go to Top of Page

isuru
Junior Member

464 Posts

Posted - 05 November 2000 :  20:45:44  Show Profile
HuwR,

Does this code actually show the members on the board and links to their profiles?

-=-=-=-=-=-=-=-
Isuru Amarasena

Edited by - isuru on 06 November 2000 00:15:34
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 06 November 2000 :  00:28:12  Show Profile
Looks like all the above code does, is to integrate it with the Detailed Statistics.

I've been working on getting it to display the online users instead of the <b>There are
# members, and # guests on the boards</b>.

I should have a demo of it up tonight.
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 06 November 2000 :  01:21:41  Show Profile
Ok, here is the demo:

http://www.cfm-resources.com/r/richard/beta/

I heavily modified the files to fit in with the theme I was doing and I set the timeout down to 3 minutes (it normally is 60 minutes).

I can provide the files for download you if you want them. Basically what I did was copied the code from <b>whos_online.asp</b> that lists the online users and modified it to show them in <b>online2.asp</b>.
Go to Top of Page

Nam
Starting Member

36 Posts

Posted - 06 November 2000 :  02:57:21  Show Profile  Visit Nam's Homepage
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>I heavily modified the files to fit in with the theme I was doing and I set the timeout down to 3 minutes (it normally is 60 minutes).

I can provide the files for download you if you want them. Basically what I did was copied the code from whos_online.asp that lists the online
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>

Please provide the files, Richard, as I don't have time and don't know how to modify it. If you can just make your that file and direction of how to install (peharps overwrite the default.asp?) that will be wonderful.

Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 06 November 2000 :  03:44:54  Show Profile
<font color=red>NOTE: this file was posted for Nam. It also included some other mods that were included with another file I posted for Nam to download. If you are getting errors it's probably because of another mod that you don't have installed</font id=red>

http://www1.domaindlx.com/dssdbs/files/whos.zip

this .zip file includes a <b>default.asp</b> and a <b>forum.asp</b>. You will need to overwrite your current ones with these.

Edited by - Richard Kinser on 12 November 2000 19:44:16
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20587 Posts

Posted - 06 November 2000 :  03:55:59  Show Profile  Visit HuwR's Homepage
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
HuwR,

Does this code actually show the members on the board and links to their profiles?

-=-=-=-=-=-=-=-
Isuru Amarasena

Edited by - isuru on 06 November 2000 00:15:34
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>

Sorry. had a nice relaxing weekend at the see side dodging storms. Although the code does is as Richard says, it just moves online stats and puts it with the rest of statistics

<font color=blue>'Resistance is futile'</font id=blue>
Go to Top of Page

Nam
Starting Member

36 Posts

Posted - 06 November 2000 :  11:05:01  Show Profile  Visit Nam's Homepage
Richard, it didn't work, do I need to change anything? After overwritting and uploading all files. The error appeared, something with Database not found. Could you check those files again, please?

Go to Top of Page
Page: of 6 Previous Topic Topic Next Topic  
Previous Page | Next Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.13 seconds. Powered By: Snitz Forums 2000 Version 3.4.07