| Author |
 Topic  |
|
HuwR
Forum Admin
United Kingdom
20587 Posts |
 Posted - 22 October 2000 : 12:19:54
|
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> |
 |
|
|
Terrell
Starting Member
1 Posts |
Posted - 23 October 2000 : 12:29:44
|
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?
|
|
|
|
Aznknight
Senior Member
USA
1373 Posts |
Posted - 23 October 2000 : 14:25:38
|
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 |
|
|
|
Jeepaholic
Average Member
USA
697 Posts |
Posted - 26 October 2000 : 00:01:38
|
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 |
|
|
|
ilovemoney
Starting Member
Taiwan
27 Posts |
Posted - 28 October 2000 : 21:54:51
|
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...
|
|
|
|
Kal Corp
Average Member
USA
878 Posts |
Posted - 02 November 2000 : 20:22:13
|
Does this work, Still getting "Could not use ''; file already in use."
|
|
|
|
isuru
Junior Member
464 Posts |
Posted - 02 November 2000 : 21:37:21
|
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 |
|
|
|
HuwR
Forum Admin
United Kingdom
20587 Posts |
Posted - 03 November 2000 : 04:13:49
|
<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> |
|
|
|
isuru
Junior Member
464 Posts |
Posted - 05 November 2000 : 20:45:44
|
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 |
|
|
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
Posted - 06 November 2000 : 00:28:12
|
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. |
|
|
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
Posted - 06 November 2000 : 01:21:41
|
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>. |
|
|
|
Nam
Starting Member
36 Posts |
Posted - 06 November 2000 : 02:57:21
|
<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.
|
|
|
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
Posted - 06 November 2000 : 03:44:54
|
<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 |
|
|
|
HuwR
Forum Admin
United Kingdom
20587 Posts |
Posted - 06 November 2000 : 03:55:59
|
<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> |
|
|
|
Nam
Starting Member
36 Posts |
Posted - 06 November 2000 : 11:05:01
|
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?
|
|
|
|
Topic |
|
Topic Locked
