Web Wiz Forums Modifications

Print Page | Close Window

Chat Room

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=20433
Printed Date: 29 March 2026 at 9:21am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Chat Room

Posted By: Imperator
Subject: Chat Room
Date Posted: 26 June 2006 at 4:39am

I am intrested in making a chat room for my forum, visible only to moderators. How may I go about doing this?

How do I integrate 3rd party chat applications to the forum?

Replies:

Posted By: VBScript
Date Posted: 26 June 2006 at 6:33am

Thats probably a good idea. If your looking for a good 3rd party chatrrom try this one:
http://www.aspchatnow.com

[edit]
I have been using this chatroom on my site for the past 2 weeks or so, its great.

-------------
http://www.james-r.co.uk" rel="no follow - James
http://www.gotrillian.com/?4498-20" rel="no follow - Trillian - M

Posted By: Imperator
Date Posted: 26 June 2006 at 8:28pm

Any hints as to how that can be integrated with V8?

Posted By: VBScript
Date Posted: 26 June 2006 at 8:56pm

A simple search turned this us:

http://forums.webwiz.net/forum_posts.asp?TID=13001

-------------
http://www.james-r.co.uk" rel="no follow - James
http://www.gotrillian.com/?4498-20" rel="no follow - Trillian - M

Posted By: jckruger
Date Posted: 27 June 2006 at 6:20am

Download ASPChatNow-v1.zip-81081.zip from http://www.aspchatnow.com/ - http://www.aspchatnow.com/ and unzip to your WWF in a folder called chat. Inside that should have some folders like "Functions and images and files like default.asp and chatroom.asp etc If different just amend the path to the code below

Try this in includes/navigation_buttons_inc.asp. Only add what is in red

---------------------------------------------------%>------------------------------------

'Dispaly a welcome message to the user in the top bar
If blnBanned = False Then Response.Write ("  <a href=""member_control_panel.asp" & strQsSID1 & """ class=""nav""><img src=""" & strImagePath & "admin_icon.gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtMemberCPMenu & """ />" & strTxtSettings & "</a>")
If blnModerator OR blnAdmin Then Response.Write ("  <a href=""chat/chatroom.asp?txtUsername=" & strLoggedInUsername & """ target=""_blank"" class=""nav"" accesskey=""2""><img src=""" & strImagePath & "chat1.gif"" align=""absmiddle"" border=""0"" alt=""Chat"" />Chat</a>")
Response.Write ("  <a href=""log_off_user.asp" & strQsSID1 & """ class=""nav""><img src=""" & strImagePath & "log_off_icon.gif"" alt=""" & strTxtLogOff & """ border=""0"" align=""absmiddle"" />" & strTxtLogOff & " [" & strLoggedInUsername & "]</a>")

---------------------------------------------------%>------------------------------------

Change the gif image to whatever you wanted but copy the gif to forum_images. I think that would work.

NOT TESTED SO BACK UP YOUR FILES FIRST.

You could also follow the above post

Posted By: k6irk
Date Posted: 27 June 2006 at 8:17pm

I just tried the info below, which worked, but I had to manually type in my user name.

What else needs to be done to get it to transfer the user name to the chatroom?

I am missing something here ;-)

Rob

jckruger wrote:

Try this in includes/navigation_buttons_inc.asp. Only add what is in red

---------------------------------------------------%>------------------------------------

Change the gif image to whatever you wanted but copy the gif to forum_images. I think that would work.

NOT TESTED SO BACK UP YOUR FILES FIRST.

You could also follow the above post

Posted By: jckruger
Date Posted: 28 June 2006 at 12:57am

Does your chat folder contain a file called chatroom_engine.asp?. If not try downloading it from http://downloads.invisionportal.com/mods/wwf/7.9/chatmod.zip - http://downloads.invisionportal.com/mods/wwf/7.9/chatmod.zip . Delete all files and folders in the chat folder and then use the new ones. If so you need to add a bit more: You need to add the room name that you want to go to as setup in functions/setup.asp at about line 70

This is what I originally posted and below are the change from this in Blue.

Change the italic text to the room name. If there is a space in the name then put an underscore _ in.

---------------------------------------------------%>------------------------------------

Changes below.

---------------------------------------------------%>------------------------------------

'Dispaly a welcome message to the user in the top bar
If blnBanned = False Then Response.Write ("  <a href=""member_control_panel.asp" & strQsSID1 & """ class=""nav""><img src=""" & strImagePath & "admin_icon.gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtMemberCPMenu & """ />" & strTxtSettings & "</a>")
If blnModerator OR blnAdmin Then Response.Write ("  <a href=""ARFchat/chatroom.asp?txtUsername=" & strLoggedInUsername & "&Room=roomname" & """ target=""_blank"" class=""nav"" accesskey=""2""><img src=""" & strImagePath & "chat1.gif"" align=""absmiddle"" border=""0"" alt=""Chat"" />Chat</a>")
Response.Write ("  <a href=""log_off_user.asp" & strQsSID1 & """ class=""nav""><img src=""" & strImagePath & "log_off_icon.gif"" alt=""" & strTxtLogOff & """ border=""0"" align=""absmiddle"" />" & strTxtLogOff & " [" & strLoggedInUsername & "]</a>")

Posted By: k6irk
Date Posted: 28 June 2006 at 3:22pm

Hi Justin,

I have all the files listed in that zip file.

I am running v8.03 now and the chat room is only for those users who are logged in.

When I click on the link, it doesn't take me directly into the chatroom, but asks me to put in my username.

The chatroom in general does appear to work with no problems, just the part of it not transferring the user name to the program doesn't appear to work.

Any thoughts on this?

Thanks for your help,

Rob

jckruger wrote:

This is what I originally posted and below are the change from this in Blue.

Change the italic text to the room name. If there is a space in the name then put an underscore _ in.

Posted By: k6irk
Date Posted: 28 June 2006 at 4:39pm

It is working now, for some reason I thought I had the room on it, but didn't.

Rechecked the code and added, now it works in 8.03

Thanks again.

Rob

Posted By: k6irk
Date Posted: 29 June 2006 at 7:58pm

Now that the chatroom works like a champ, how can we put something at the bottom of the page to launch the chat room and/or see who might be in it?

I have the icon on the top to launch the room, but nothing to see if someone was already in it or not.

Rob

Posted By: k6irk
Date Posted: 30 June 2006 at 4:23pm

Thanks for the info.

I forgot entirely about this code, I use to use it with the 7.x forum.

I managed to place the code right after the RSS code so it was near the top of the page instead of the bottom.

It works in regards to who is in the chatroom, but there is an error when you try to use the launch button (I have temp removed it).

Also, it is all text, the text below is what I am still having problems in the nice boxes (I did put in some Dim statements too)

The info below mostly works, just no nice boxes, all text at this time.

Response.Write(vbCrLf & " <tr>")
Response.Write(vbCrLf & " <td bgcolor=""" & strTableTitleColour & """ width=""100%%"" class=""tHeading"" background=""" & strTableTitleBgImage & """>Chatroom</td>")
Response.Write(vbCrLf & " </tr>")
Response.Write(vbCrLf & " <tr>")
Response.Write(vbCrLf & " <td bgcolor=""" & strTableColour & """ background=""" & strTableBgImage & """ class=""smText"" valign=""top"">")
Response.Write(vbCrLf & " Users in chatroom (" & UBound(saryActiveChatUsers, 2) & "):")
Response.Write(vbCrLf & " ")

If UBound(saryActiveChatUsers, 2) = 0 Then
Response.Write(vbCrLf & "No one is currently in the chatroom.")
Else
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
  If saryActiveChatUsers(0, intArrayPass) = True Then blnAdminInChat = True
  Response.Write(vbCrLf & saryActiveChatUsers(1, intArrayPass))
  If NOT UBound(saryActiveChatUsers, 2) = intArrayPass Then Response.Write(", ")
Next
End If

Response.Write(vbCrLf & " ")
If blnAdminInChat Then Response.Write("<blink>Administrator Online!</blink> ")

I removed the guest one, I don't want guests in the chatroom

If blnGuest Then
Response.Write(vbCrLf & " [ <a href=""javascript:openWin('chat/default.asp','ChatRoom','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"" class=""smLink"">Launch Chatroom</a> ]")
Else

This part (launch chatroom) has a problem and so far I have not figured out why, so for the time being it is disabled

Response.Write(vbCrLf & " [ <a href=""javascript:openWin('chat/chatroom.asp?txtUsername=" & strLoggedInUsername & "&Room=" & strDefaultChatroom & "','ChatRoom','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"" class=""smLink"">Launch Chatroom</a> ]")
End If

Response.Write(vbCrLf & " </td>")
Response.Write(vbCrLf & " </tr>")

Good thing I do have the Chat button in the menu, so that one works, if I can (or someone can) figure out what needs to be changed, I can add it and see if it works ok or not.

Rob

Posted By: jckruger
Date Posted: 02 July 2006 at 4:20am

Maybe you could change the reference from what you have here and remove the java script and make it the same as the menu button:

This is what you have now:

--------------------------------------------------%>--------------------------------------

Response.Write(vbCrLf & " </td>")
Response.Write(vbCrLf & " </tr>")

--------------------------------------------------%>--------------------------------------

Change it to something like this:

--------------------------------------------------%>--------------------------------------

Response.Write(vbCrLf & "<a href=""chat/chatroom.asp?txtUsername=" & strLoggedInUsername & "&Room=" & strDefaultChatroom & """ target=""_blank"" />Launch Chatroom</a>")
End If

Response.Write(vbCrLf & " </td>")
Response.Write(vbCrLf & " </tr>")

--------------------------------------------------%>--------------------------------------

Remember I have not tested this.

When I can I will figure out how to make it look like the statistics

Posted By: k6irk
Date Posted: 02 July 2006 at 4:53am

Perfect, that code worked!!!!!!

Thank you. I was trying different things, but miss that one.

I'm still not very good at this, so thank you for the help on that!

jckruger wrote:

Maybe you could change the reference from what you have here and remove the java script and make it the same as the menu button:

This is what you have now:

--------------------------------------------------%>--------------------------------------

Response.Write(vbCrLf & " </td>")
Response.Write(vbCrLf & " </tr>")

--------------------------------------------------%>--------------------------------------

Change it to something like this:

--------------------------------------------------%>--------------------------------------

Response.Write(vbCrLf & "<a href=""chat/chatroom.asp?txtUsername=" & strLoggedInUsername & "&Room=" & strDefaultChatroom & """ target=""_blank"" />Launch Chatroom</a>")
End If

Response.Write(vbCrLf & " </td>")
Response.Write(vbCrLf & " </tr>")

--------------------------------------------------%>--------------------------------------

Remember I have not tested this.

When I can I will figure out how to make it look like the statistics

Posted By: jckruger
Date Posted: 02 July 2006 at 8:07am

This is what I have quickly come up with in editing maddog's default.asp MOD code to show the chat statistics down in the forum statistics.

-------------------------------------------------------------------------------%>-------------------------------

<%
'##########################################################################################
'##########################################################################################
'######################### START MADDOG MOD HERE ##########################################
'##########################################################################################
'##########################################################################################
'Copyright 2005 - Drew Gauderman - http://www.iportalx.net - http://www.iportalx.net - http://www.aspinvision.com - http://www.aspinvision.com
Dim saryActiveChatUsers
Dim blnAdminInChat
CONST ApplicationUsers = "ChatUsers"
Const strDefaultChatroom = "Arf_Discussion"
blnAdminInChat = False
'Get the array
If IsArray(Application(ApplicationUsers)) Then
saryActiveChatUsers = Application(ApplicationUsers)
Else
ReDim saryActiveChatUsers(9, 0)
End If
'Remove inactive users first
If UBound(saryActiveChatUsers, 2) <> 0 Then
Application.Lock
'Iterate through the array to remove old entires
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
'Check the last checked date. If user wasnt updated 15 seconds ago then they must be gone
If CDate(saryActiveChatUsers(3, intArrayPass)) < CDate(CDbl(DateAdd("s", -60, Now()))) Then
 'Swap this array postion with the last in the array
 saryActiveChatUsers(0, intArrayPass) = saryActiveChatUsers(0, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(1, intArrayPass) = saryActiveChatUsers(1, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(2, intArrayPass) = saryActiveChatUsers(2, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(3, intArrayPass) = saryActiveChatUsers(3, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(4, intArrayPass) = saryActiveChatUsers(4, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(5, intArrayPass) = saryActiveChatUsers(5, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(6, intArrayPass) = saryActiveChatUsers(6, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(7, intArrayPass) = saryActiveChatUsers(7, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(8, intArrayPass) = saryActiveChatUsers(8, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(9, intArrayPass) = saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2))
 'Remove the last array position as it is no-longer needed
 ReDim Preserve saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2) - 1)
 'Exit for loop to prevent errors
 Exit For
End If
Next
Application(ApplicationUsers) = saryActiveChatUsers
Application.UnLock
End If
const strChatTableHeading = "Currently in Instant Chat "
%>
<tr class="tableSubLedger">
<td colspan="2"><%=strChatTableHeading%> - [<%=UBound(saryActiveChatUsers, 2)%>]</td>
</tr>
<tr class="tableRow">
<td width="4%" align="center"><img src="<% = strImagePath%>chat1.gif" alt="Users in Chatroom" border="0"
/></td>
<td width="96%">
 
<%
If UBound(saryActiveChatUsers, 2) = 0 Then
Response.Write(vbCrLf & "No one is currently in the chatroom.")
Else
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
If saryActiveChatUsers(0, intArrayPass) = True Then blnAdminInChat = True
Response.Write(vbCrLf & saryActiveChatUsers(1, intArrayPass))
If NOT UBound(saryActiveChatUsers, 2) = intArrayPass Then Response.Write(", ")
Next
End If
Response.Write(vbCrLf & " ")
Response.Write ("  <a href=""chat/chatroom.asp?txtUsername=" & strLoggedInUsername & "&Room=" & strDefaultChatroom & """ target=""_blank""><align=""absmiddle"" border=""0"" alt=""Launch Chat"" />[Launch]</a>")

Response.Write(vbCrLf & " </td>")
Response.Write(vbCrLf & " </tr>")
'Copyright 2005 - Drew Gauderman - http://www.iportalx.net - http://www.iportalx.net - http://www.aspinvision.com - http://www.aspinvision.com
'##########################################################################################
'##########################################################################################
'########################### END MADDOG MOD HERE ##########################################
'##########################################################################################
'##########################################################################################
%>

-------------------------------------------------------------------------------%>-------------------------------

This adds the details below active users in the forum statistics.

It currently works in my development v8.03 forum.

Cheers

Justin

Posted By: Imperator
Date Posted: 02 July 2006 at 4:07pm

Thanks for the responese, guys.

Posted By: jckruger
Date Posted: 02 July 2006 at 11:47pm

Did it work for you as I found that when locally connecting to the web page it worked but when connecting remotely to my production box I was getting a problem with the CDate function. Can't remember the exact message as I rolled back the changes to my production box.

Is anyone else having problems?

Posted By: Imperator
Date Posted: 03 July 2006 at 5:42pm

I'm getting this error when there's someone logged in. I think it's because I'm placing the chat script on the forum_topics.asp instead of the default.asp. How should I modify the code so that it work on forum_topic.asp?

Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'intArrayPass'

EDIT: Nevermind. It turns out you just need to add "Dim intArrayPass" to the page.

Posted By: jckruger
Date Posted: 04 July 2006 at 12:03am

I never thought to put it at the top of every page using forum_topic.asp, Nice work

Please show the code placement in forum_topic.asp that you sucessfully added so others can see where you put it.

Just show a few lines above and below so people can see where to put it

Also maybe you could dress it up with this code to change. This is the replacement inside Maddog's MOD.

BACKUP YOUR FILE FIRST BEFORE ATTEMPTING CHANGES

--------------------------------------------------------%>--------------------------------------------

<%
If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 Then 'Hides this from anyone not logged in
'##########################################################################################
'##########################################################################################
'######################### START MADDOG MOD HERE ##########################################
'###################### Edited by JCKRUGER 04/07/2006 #####################################
'##########################################################################################
'Copyright 2005 - Drew Gauderman - http://www.iportalx.net - http://www.iportalx.net - http://www.aspinvision.com - http://www.aspinvision.com Dim saryActiveChatUsers
Dim blnAdminInChat
CONST ApplicationUsers = "ChatUsers"
Const strDefaultChatroom = "General Chit Chat"

blnAdminInChat = False
'Get the array
If IsArray(Application(ApplicationUsers)) Then
saryActiveChatUsers = Application(ApplicationUsers)
Else
ReDim saryActiveChatUsers(9, 0)
End If
'Remove inactive users first
If UBound(saryActiveChatUsers, 2) <> 0 Then
Application.Lock
'Iterate through the array to remove old entires
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
'Check the last checked date. If user wasnt updated 15 seconds ago then they must be gone
If CDate(saryActiveChatUsers(3, intArrayPass)) < CDate(CDbl(DateAdd("s", -60, Now()))) Then
 'Swap this array postion with the last in the array
 saryActiveChatUsers(0, intArrayPass) = saryActiveChatUsers(0, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(1, intArrayPass) = saryActiveChatUsers(1, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(2, intArrayPass) = saryActiveChatUsers(2, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(3, intArrayPass) = saryActiveChatUsers(3, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(4, intArrayPass) = saryActiveChatUsers(4, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(5, intArrayPass) = saryActiveChatUsers(5, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(6, intArrayPass) = saryActiveChatUsers(6, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(7, intArrayPass) = saryActiveChatUsers(7, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(8, intArrayPass) = saryActiveChatUsers(8, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(9, intArrayPass) = saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2))
 'Remove the last array position as it is no-longer needed
 ReDim Preserve saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2) - 1)
 'Exit for loop to prevent errors
 Exit For
End If
Next
Application(ApplicationUsers) = saryActiveChatUsers
Application.UnLock
End If
const strChatTableHeading = "Currently in Chat "
%>
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
<tr class="tableLedger">
<td colspan="2"><%=strChatTableHeading%> - [<%=UBound(saryActiveChatUsers, 2)%>]</td>
</tr>
<tr class="tableRow">
<td width="96%">
 
<%
If UBound(saryActiveChatUsers, 2) = 0 Then
Response.Write(vbCrLf & "No one is currently in the chatroom.")
Else
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
If saryActiveChatUsers(0, intArrayPass) = True Then blnAdminInChat = True
Response.Write(vbCrLf & saryActiveChatUsers(1, intArrayPass))
If NOT UBound(saryActiveChatUsers, 2) = intArrayPass Then Response.Write(", ")
Next
End If
Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " [ <a href=""#"" onclick=""javascript:window.open('chat/chatroom.asp?txtUsername=" & strLoggedInUsername & "&Room=" & strDefaultChatroom & "','ChatRoom','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=0,width=590,height=500')"">Launch Chat</a> ]")

Response.Write(vbCrLf & " </td>")
Response.Write(vbCrLf & " </tr>")
End If 'Additional End IF for above "If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 Then" Statement
'Copyright 2005 - Drew Gauderman - http://www.iportalx.net - http://www.iportalx.net - http://www.aspinvision.com - http://www.aspinvision.com
'##########################################################################################
'##########################################################################################
'########################### END MADDOG MOD HERE ##########################################
'####################### Edited by JCKRUGER 04/07/2006 ####################################
'##########################################################################################

--------------------------------------------------------%>--------------------------------------------

Hopefully it works also in forum_topic.asp

Cheers

Justin

Posted By: Imperator
Date Posted: 04 July 2006 at 6:16am

Code can be placed anywhere in the forum_topics, as long as you add "Dim intArrayPass" somewhere to the page. More specifically, you can also place the chat on specific chat forum sections. Example of a chat room in a specific forum section in code in the forum_topics, placed above the subforum comment:

If strForumName = "[SPECIFIC FORUM NAME]" Then

Dim intArrayPass

(HERE YOU PLACE THE MADDOG CODE)

End If

'******************************************
'*** Display Sub Forums ***
'******************************************

Posted By: jckruger
Date Posted: 07 July 2006 at 3:13am

I have since found out that it all works but when someone goes to a new page on the forum the chat window says that you have just entered the chat again and again as pages are viewed or refreshed.

So I have made a bit more of a change as follows. I have included a few lines above and below so you can see where it goes.

Top of default.asp. intArrayPass statement is quoted out.

-------------------------------------------------------------------------------------------------------------------------------------%>--------------------------------------------------------------------------

Dim lngSubForumNumberOfTopics 'Holds the number of topics in the subforum
Dim intTotalRecords  'Holds the number of records
Dim intCurrentRecord  'Holds the current record position
Dim intTempRecord  'Holds a temporary record position for looping through records for any checks
Dim blnSubRead   'Holds if the user has entry to the sub forum
Dim lngNoOfMembers  'Holds the number of forum members
'Dim intArrayPass  'Active users array counter ########## Removed to make my chat work correctly. DIM Statement is now in navigation_buttons_inc.asp ###########
Dim strBirthdays  'String containing all those with birtdays today
Dim dtmNow   'Now date with off-set
Dim intBirtdayLoopCounter 'Holds the bitrhday loop counter
Dim intLastForumEntryID  'Holds the last forum ID for the last entry for link in forum stats
Dim intTotalViewingForum 'Holds the number of people viewing the forum, including sub forums

'Initialise variables

Same with member_profile.asp

Dim strSignature  'Holds the signature
Dim strSkypeName  'Holds the users Skype Name
'Dim intArrayPass  'Active users array counter ########## Removed to make my chat work correctly. DIM Statement is now in navigation_buttons_inc.asp ###########
Dim intAge   'Holds the age of the user
Dim strAdminNotes  'Holds the admin notes on the user
Dim blnAccSuspended  'Holds if the user account is suspended

Further down still in default.asp

<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
<tr class="tableLedger">

<td colspan="2">Current Details</td>
</tr>
<tr class="tableRow">
<td width="96%">
<%
 Response.Write(strTxtTheTimeNowIs & " " & TimeFormat(now()) & " ")
 Response.Write(" Your IP Address: " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & " ")
 If strLoggedInUsername = "Guest" then
 Response.Write(" <center><BIG>***** Only Authorised users can log into this forum *****</BIG></center> ")
 Else
 Response.Write("Welcome: " & strLoggedInUsername & " ")
 End If
 If strLoggedInUsername <> "Guest" then
Response.Write(vbCrLf & "Email Address:" & " " & strLoggedInEmail & " ")
End If
'If this is not the first time the user has visted the site display the last visit time and date
If IsDate(Request.Cookies(strCookieName)("LV")) Then
If dtmLastVisitDate < CDate(Request.Cookies(strCookieName)("LV")) Then
 Response.Write(strTxtYouLastVisitedOn & " " & DateFormat(dtmLastVisitDate) & " " & strTxtAt & " " & TimeFormat(dtmLastVisitDate))
End If
End If

%>
</table>
<table class="basicTable" cellspacing="1" cellpadding="3" align="center">
<tr>
<%

Posted By: jckruger
Date Posted: 07 July 2006 at 3:16am

I have since tested it and it works on my Dev box and now have it on my live forum and have had great responses from my members.

Only a few glitches in the chat code now but I'll figure them out soon.

Justin

Posted By: jckruger
Date Posted: 09 July 2006 at 10:56am

Also comment out Dim intArrayPass in:

active_users.asp

member_profile.asp.

Posted By: chorn
Date Posted: 09 July 2006 at 6:08pm

Anyone here able to share a complete working default.asp for 8.03 ?

I have been screwing with this forever and cant seem to get it working properly

Thanks if someone can do that

Posted By: jckruger
Date Posted: 10 July 2006 at 12:36am

chorn,

I can't as I have a lot of other mods specific to my forum and wish to keep them to myself. The above coding from me has worked for myself and another that has tried it.

Maybe someone else can provide the entire files if you have made my work.

Posted By: k6irk
Date Posted: 10 July 2006 at 4:19pm

Chorn,

Use the code that jckruger has provided above as it does work with version 8.03 very well.

Rob

Posted By: chorn
Date Posted: 10 July 2006 at 4:46pm

thats not the complete page, and it doesnt say where to insert it or where everything starts or ends.

All i get is error after error,

I mean, the code doesnt work at all for me, it doesnt even get past line 120. I could probably figure it out if it worked even a little so maybe im not copying the right code ?

If i use his code I get this

Microsoft OLE DB Provider for SQL Server error '80040e14'

Could not find stored procedure 'CategoryAll'.

/chatdefault.asp, line 126

Posted By: jckruger
Date Posted: 10 July 2006 at 11:40pm

chorn,

I have shown my code with a few lines above and below so you can search for where it is to go. I cannot give line numbers either as I have made other customizations and therefore the line numbers would not match.

Can someone explain how he can go about inserting my code and making it work.

Why do you have a file called chatdefault.asp??

Can you post about a dozen lines above and below line 126 from chatdefault.asp so we may know what the filename should be.

Cheers

Justin

Posted By: jckruger
Date Posted: 10 July 2006 at 11:53pm

chorn,

Also download http://downloads.invisionportal.com/mods/wwf/7.9/chatmod.zip - http://downloads.invisionportal.com/mods/wwf/7.9/chatmod.zip if you haven't already and unzip to a chat folder within your forum.

The folder structure should look like:

[Forum Folder]

avatars - >

chat - > audio - > chat-inbound.mp3

- > chatroom_engine.asp

- > default.asp

css_styles - >

functions - >

includes - >

default.asp

...

and so on.

Hope that helps.

Cheers

Justin

Posted By: Ali Bilgrami
Date Posted: 11 July 2006 at 8:00am

i've tried the aspchatnow script...doesnt work :S after logging in all it shows is the number in the msg bar :S and it increases everytime i press enter or click on submit...cant even write a msg in the msg bar

-------------
Lets!

Posted By: jckruger
Date Posted: 11 July 2006 at 9:57am

Just use the chat folder and disregard the rest of the install procedure from the chatmod.zip file. It is for v7x.

What version of WWF are you using?

All that I have written is for 8.03. I have not tested this on other versions.

Works perfectly for me.

PS. some of the code probably will not work for anything other than MS Access version. The queries could be changed to suit.

Posted By: Ali Bilgrami
Date Posted: 11 July 2006 at 1:53pm

I am using 8.03 as well...but its not the chatmod i tried just the ASPchatNow application by uploading the folder and runnng the default file

-------------
Lets!

Posted By: chorn
Date Posted: 11 July 2006 at 6:56pm

well, I got it to work, I guess maybe I was overcomplicating things. I thought the chat would actually be embedded into my page. Perfect how it is.

If anyone wants to see the working copy feel free to PM me and I will give you the link and could help you set it up if your having trouble.

and thanks http://forums.webwiz.net/member_profile.asp?PF=23591&FID=19 - jckruger for helping me

Posted By: chorn
Date Posted: 11 July 2006 at 7:51pm

The only thing I need now is the code I would need to add to the actual chat room so thaqt a savvy person cannot just put in th full URL to the chat and start talking with a made up name. Because if oyu put the full URL you can still chat anonymously

Posted By: jckruger
Date Posted: 11 July 2006 at 11:35pm

Just rename the chat folder to something else other than "chat" and update your links to suit. If you "#" the href then no one can see your url.

An example would be in includes\navigation_buttons_inc.asp

Response.Write ("  <a href=""#Chat_Window#"" onclick=""javascript:window.open('zzzzzchat/chatroom.asp?txtUsername=" & strLoggedInUsername & "&Room=" & strDefaultChatroom & "','ChatRoom','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1,width=1000,height=620')""class=""nav"" accesskey=""2""><img src=""" & strImagePath & "chat1.gif"" border=""0"" align=""absmiddle""/>Instant Chat" & " [" & UBound(saryActiveChatUsers, 2) & "]" & "</a>")

shows in the address bar and bottom menu like"

http://yourdomain.com/forum/#Chat_Window - http://yourdomain.com/forum/#Chat_Window #

Posted By: jckruger
Date Posted: 11 July 2006 at 11:44pm

Ali Bilgrami,

The one that you download from aspchatnow is a different version. I don't think it contains a file called chatroom_engine.asp.

Download this one and see how you go: http://downloads.invisionportal.com/mods/wwf/7.9/chatmod.zip - http://downloads.invisionportal.com/mods/wwf/7.9/chatmod.zip

If you have no luck with this then visit http://www.iportalx.net - www.iportalx.net as there may be someone posting about a mod for his chat for WWF.

Posted By: chorn
Date Posted: 12 July 2006 at 4:03am

I jsut threw in an if statement checking for the login. was no big deal i guess.

The chat works ok, seems a little slow at times and drops alot of conversation.. Like you hit enter and theres a delay, then your message never shows up. And this is with only like 4 people so far.

Anyone else have any experience with this chat if it actually gets a decent amount of load ?

Posted By: jckruger
Date Posted: 12 July 2006 at 4:14am

I have that problem too with about 3 or four people connected at the same time. I don't know exactly how the refresh rate is determimed so I would assume that you should go to http://www.iportalx.net - www.iportalx.net to check out the specs of the chat and how it works.

I'm just waiting for v2 of the chat to come out and see what it can do.

Posted By: chorn
Date Posted: 12 July 2006 at 4:23am

I wonder if I would be better to moving to some sort of IRC based chat. The scripting would be alot harder though im guessing. The one really good thing about this one is how simple it is to setup and use.

And it doesnt seem to have any major server load although Id like to see it with 50 people logged in. I could see my forum getting bigger down the road. During the school year i get about 50k visitors a day to my site and the forum should start growing. I guess we shall see

Posted By: engla001
Date Posted: 15 July 2006 at 1:27pm

Here is a chat icon you can place in your nav_buttons. It fits in nicely with the Invision skin.

Posted By: engla001
Date Posted: 15 July 2006 at 2:24pm

Here is a simplified version of MadDogs Mod I am currently using in 8.03. It doesnt Launch the Chatroom from the "What's Going On Box" and it doesnt display if Admin is in chat BUT it works perfectly fine for me. It simply shows - right below "Members Online" - who is in the chat and nothing else. I've included a few lines above and below so you can place it in the Default.asp file. This should make it really easy for Noobs. Cut and paste the red part.

'Calculate the number of members online and total people online
intActiveUsers = UBound(saryActiveUsers, 2)
intActiveMembers = intActiveUsers - intActiveGuests

Response.Write(strTxtInTotalThereAre & " " & intActiveUsers & " <a href=""active_users.asp" & strQsSID1 & """>" & strTxtActiveUsers & "</a> " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuestsAnd & " " & intActiveMembers & " " & strTxtMembers)
If strMembersOnline <> "" Then Response.Write(vbCrLf & " " & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline)

'actually cut and paste from this line <---

Response.Write(vbCrLf & " ")

'###########################################

'###########################################
'############ START MADDOG MOD HERE #############
'###########################################
'#########################################
'Copyright 2005 - Drew Gauderman - http://www.iportalx.net - http://www.iportalx.net - http://www.aspinvision.com - http://www.aspinvision.com
Dim saryActiveChatUsers
CONST ApplicationUsers = "ChatUsers"
Const strDefaultChatroom = "General Chit Chat"
'Get the array
If IsArray(Application(ApplicationUsers)) Then
saryActiveChatUsers = Application(ApplicationUsers)
Else
ReDim saryActiveChatUsers(9, 0)
End If
'Remove inactive users first
If UBound(saryActiveChatUsers, 2) <> 0 Then
Application.Lock
'Iterate through the array to remove old entires
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
'Check the last checked date. If user wasnt updated 15 seconds ago then they must be gone
If CDate(saryActiveChatUsers(3, intArrayPass)) < CDate(CDbl(DateAdd("s", -60, Now()))) Then
 'Swap this array postion with the last in the array
 saryActiveChatUsers(0, intArrayPass) = saryActiveChatUsers(0, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(1, intArrayPass) = saryActiveChatUsers(1, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(2, intArrayPass) = saryActiveChatUsers(2, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(3, intArrayPass) = saryActiveChatUsers(3, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(4, intArrayPass) = saryActiveChatUsers(4, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(5, intArrayPass) = saryActiveChatUsers(5, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(6, intArrayPass) = saryActiveChatUsers(6, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(7, intArrayPass) = saryActiveChatUsers(7, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(8, intArrayPass) = saryActiveChatUsers(8, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(9, intArrayPass) = saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2))
 'Remove the last array position as it is no-longer needed
 ReDim Preserve saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2) - 1)
 'Exit for loop to prevent errors
 Exit For
End If
Next
Application(ApplicationUsers) = saryActiveChatUsers
Application.UnLock
End If

Response.Write(vbCrLf & " Users in chatroom (" & UBound(saryActiveChatUsers, 2) & "):")
If UBound(saryActiveChatUsers, 2) = 0 Then
Response.Write(vbCrLf & "No one is currently in the chatroom.")
Else
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
Response.Write(vbCrLf & saryActiveChatUsers(1, intArrayPass))
If NOT UBound(saryActiveChatUsers, 2) = intArrayPass Then Response.Write(", ")
Next
End If

'Copyright 2005 - Drew Gauderman - http://www.iportalx.net - http://www.iportalx.net - http://www.aspinvision.com - http://www.aspinvision.com
'#####################################
'#####################################
'#########END MADDOG MOD HERE#############
'#####################################
'#####################################

</td>
</tr><%

'If birthdays is enabled show who has a birthday today
If strBirthdays <> "" Then

Posted By: jckruger
Date Posted: 16 July 2006 at 1:32am

Here is the icon I am using for the button at the top in navigation_buttons_inc.asp

http://www.arforum.homedns.org/Arf/#Chat_Window#">

Posted By: ecollier
Date Posted: 17 July 2006 at 8:20pm

Engla001,

This is what shows up when I use your code:

Member(s) online: http://www.enfield-rifles.com/member_profile.asp?PF=3 - Eric Users in chatroom (0): No one is currently in the chatroom.

Everything shows up in one line. How do I seperate the lines so the Users in chatroom is below the members online?

This is the code I'm using:

If strMembersOnline <> "" Then Response.Write(vbCrLf & " " & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline)

'###########################################
'###########################################
'############ START MADDOG MOD HERE #############
'###########################################
'#########################################
'Copyright 2005 - Drew Gauderman - http://www.iportalx.net - http://www.iportalx.net - http://www.aspinvision.com - http://www.aspinvision.com
Dim saryActiveChatUsers
CONST ApplicationUsers = "ChatUsers"
Const strDefaultChatroom = "General Chit Chat"
'Get the array
If IsArray(Application(ApplicationUsers)) Then
saryActiveChatUsers = Application(ApplicationUsers)
Else
ReDim saryActiveChatUsers(9, 0)
End If
'Remove inactive users first
If UBound(saryActiveChatUsers, 2) <> 0 Then
Application.Lock
'Iterate through the array to remove old entires
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
'Check the last checked date. If user wasnt updated 15 seconds ago then they must be gone
If CDate(saryActiveChatUsers(3, intArrayPass)) < CDate(CDbl(DateAdd("s", -60, Now()))) Then
 'Swap this array postion with the last in the array
 saryActiveChatUsers(0, intArrayPass) = saryActiveChatUsers(0, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(1, intArrayPass) = saryActiveChatUsers(1, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(2, intArrayPass) = saryActiveChatUsers(2, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(3, intArrayPass) = saryActiveChatUsers(3, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(4, intArrayPass) = saryActiveChatUsers(4, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(5, intArrayPass) = saryActiveChatUsers(5, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(6, intArrayPass) = saryActiveChatUsers(6, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(7, intArrayPass) = saryActiveChatUsers(7, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(8, intArrayPass) = saryActiveChatUsers(8, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(9, intArrayPass) = saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2))
 'Remove the last array position as it is no-longer needed
 ReDim Preserve saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2) - 1)
 'Exit for loop to prevent errors
 Exit For
End If
Next
Application(ApplicationUsers) = saryActiveChatUsers
Application.UnLock
End If
Response.Write(vbCrLf & " Users in chatroom (" & UBound(saryActiveChatUsers, 2) & "):")
If UBound(saryActiveChatUsers, 2) = 0 Then
Response.Write(vbCrLf & "No one is currently in the chatroom.")
Else
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
Response.Write(vbCrLf & saryActiveChatUsers(1, intArrayPass))
If NOT UBound(saryActiveChatUsers, 2) = intArrayPass Then Response.Write(", ")
Next
End If
'Copyright 2005 - Drew Gauderman - http://www.iportalx.net - http://www.iportalx.net - http://www.aspinvision.com - http://www.aspinvision.com
'#####################################
'#####################################
'#########END MADDOG MOD HERE#############
'#####################################
'#####################################

End If

That's showing a line befor and a line after.

Thanks,

Eric

Posted By: jckruger
Date Posted: 17 July 2006 at 11:41pm

Who's code?. Mine(jckruger) or engla001's.

If it's mine, go back to page 3 and work your way forward from there.

Mine looks like this:

Each name is then seperated by a comma to the right.

Cheers

Justin

Posted By: jckruger
Date Posted: 18 July 2006 at 12:09am

Once v2 of ChatNow comes out I will be looking into how to integrate it into WWF.

I have asked to be a tester but have had no response so far.

If someone else does before I do then can someone PM me so I can get the code and start working on the integration.

Cheers

Justin

NOTE: PLEASE DISREGARD THIS REQUEST AS MADDOG DOESN"T AGREE.

I now have had a response from MADDOG and he has declined my access to be a tester.

Posted By: MadDog
Date Posted: 18 July 2006 at 12:11am

That�s not cool. Anyone asking for something that is not released to the public would be considered illegal and possibly warez. That�s not cool!

-------------
http://www.iportalx.net" rel="nofollow">

Posted By: jckruger
Date Posted: 18 July 2006 at 12:14am

What do you mean Drew. I would be doing a service. I would not be sharing this untill it was released to the public. I am mearly trying to find out how to integrate it.

I would only share the integration with WWF on your permission.

I have no mallice intentions

Posted By: MadDog
Date Posted: 18 July 2006 at 12:19am

v2 is already built to use WWF. Going behind someones back and trying to get a copy of something that has not been released to the public is not cool. Its like going to a find and copying one of their games, thats called warez and illegal. If you want to discuss this more, you can email me. I dont want to hi-jack this thread anymore.

-------------
http://www.iportalx.net" rel="nofollow">

Posted By: jckruger
Date Posted: 18 July 2006 at 12:30am

Hey man I didn't know that it was already done for WWF. I know your portal is based on it but I didn't know you also had a mod to display the chat statistics on the default page which is what I was going to try to do.

I have PM'd you.

Posted By: jckruger
Date Posted: 18 July 2006 at 2:09am

I will wait till it is publically released.

Posted By: engla001
Date Posted: 18 July 2006 at 12:57pm

Eric, go back and insert the blue line.....It's actually in my original post this way but I didn't think to move the "Start Mod Here" up a few lines. Sorry.

If strMembersOnline <> "" Then Response.Write(vbCrLf & " " & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline)

Response.Write(vbCrLf & " ")

'###########################################
'###########################################
'############ START MADDOG MOD HERE #############
'###########################################
'#########################################
'Copyright 2005 - Drew Gauderman - http://www.iportalx.net/ - http://www.iportalx.net - http://www.aspinvision.com/ - http://www.aspinvision.com
Dim saryActiveChatUsers
CONST ApplicationUsers = "ChatUsers"
Const strDefaultChatroom = "General Chit Chat"
'Get the array
If IsArray(Application(ApplicationUsers)) Then
saryActiveChatUsers = Application(ApplicationUsers)
Else
ReDim saryActiveChatUsers(9, 0)
End If
'Remove inactive users first
If UBound(saryActiveChatUsers, 2) <> 0 Then
Application.Lock
'Iterate through the array to remove old entires
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
'Check the last checked date. If user wasnt updated 15 seconds ago then they must be gone
If CDate(saryActiveChatUsers(3, intArrayPass)) < CDate(CDbl(DateAdd("s", -60, Now()))) Then
 'Swap this array postion with the last in the array
 saryActiveChatUsers(0, intArrayPass) = saryActiveChatUsers(0, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(1, intArrayPass) = saryActiveChatUsers(1, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(2, intArrayPass) = saryActiveChatUsers(2, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(3, intArrayPass) = saryActiveChatUsers(3, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(4, intArrayPass) = saryActiveChatUsers(4, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(5, intArrayPass) = saryActiveChatUsers(5, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(6, intArrayPass) = saryActiveChatUsers(6, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(7, intArrayPass) = saryActiveChatUsers(7, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(8, intArrayPass) = saryActiveChatUsers(8, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(9, intArrayPass) = saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2))
 'Remove the last array position as it is no-longer needed
 ReDim Preserve saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2) - 1)
 'Exit for loop to prevent errors
 Exit For
End If
Next
Application(ApplicationUsers) = saryActiveChatUsers
Application.UnLock
End If
Response.Write(vbCrLf & " Users in chatroom (" & UBound(saryActiveChatUsers, 2) & "):")
If UBound(saryActiveChatUsers, 2) = 0 Then
Response.Write(vbCrLf & "No one is currently in the chatroom.")
Else
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
Response.Write(vbCrLf & saryActiveChatUsers(1, intArrayPass))
If NOT UBound(saryActiveChatUsers, 2) = intArrayPass Then Response.Write(", ")
Next
End If
'Copyright 2005 - Drew Gauderman - http://www.iportalx.net/ - http://www.iportalx.net - http://www.aspinvision.com/ - http://www.aspinvision.com
'#####################################
'#####################################
'#########END MADDOG MOD HERE#############
'#####################################
'#####################################

End If

That's showing a line befor and a line after.

Posted By: ecollier
Date Posted: 18 July 2006 at 4:57pm

Thanks a ton Engla001. I really appreciate the fast response.

Eric

Posted By: ecollier
Date Posted: 19 July 2006 at 7:17pm

I'm getting a strange error now when I implement this code.

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CDate'

/Default.asp, line 827

Here is line 827:

If CDate(saryActiveChatUsers(3, intArrayPass)) < CDate(CDbl(DateAdd("s", -60, Now()))) Then

any ideas?

Thanks,

Eric

Posted By: jckruger
Date Posted: 20 July 2006 at 11:42pm

Try my solution from page 3 and see if you still get the error.

It has been updated.

Posted By: jsaren
Date Posted: 21 July 2006 at 1:15am

jckruger wrote:

Try my solution from page 3 and see if you still get the error.

It has been updated.

hope you release a version build in original code of wwf8.03,i guess your wwf version is antiquated！

Posted By: jckruger
Date Posted: 21 July 2006 at 2:14am

No, it is for 8.03. Does it not work for you?.

I have other mods in my code so I can't post my entire files.

Justin

Posted By: engla001
Date Posted: 24 July 2006 at 12:27pm

Eric, paste some lines above and below or PM me with your default.asp file. This is the EXACT code that is functioning 100% on my site. Not sure what your issue is but I'll take a look.

Posted By: ecollier
Date Posted: 27 July 2006 at 9:44pm

Thanks engla001, I'll PM you my default.asp.

Eric

Posted By: ToJaRo
Date Posted: 28 July 2006 at 4:02am

I got ther Line 827 error as well... did you find a fix for it?

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: ecollier
Date Posted: 28 July 2006 at 11:15pm

No ToJaro, I haven't heard anything yet. As soon as I get an answer from engla001 I'll let you know.

Eric

Posted By: ToJaRo
Date Posted: 30 July 2006 at 8:51pm

I finally got this working properly on my site...

Here's how I got it and it was an error on my part not the code... engla001 had it correct all along I just wasn't inserting it correctly... Here's my 'How to' to clarify what I was doing wrong.

First open Default.asp and find the code

Response.Write(vbCrLf & " ") on line 808

Paste the MadDog code in between that statement on line 808 and the 'end if' on Line 810 on the blank line on line 809... making sure the leave the 'end if' on line 865 after the MadDog code is inserted.

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: ToJaRo
Date Posted: 30 July 2006 at 9:06pm

I have a new issue now... With no users in the chatroom this works perfect, however once a user goes into the chatroom I get this error.... any ideas?

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CDate'

/Default.asp, line 829

Here is the section of code it refers to:

Line 828 'Check the last checked date. If user wasnt updated 15 seconds ago then they must be gone
Line 829 If CDate(saryActiveChatUsers(3, intArrayPass)) < CDate(CDbl(DateAdd("s", -60, Now()))) Then
Line 830 'Swap this array postion with the last in the array

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: jckruger
Date Posted: 30 July 2006 at 11:43pm

Try my solution from page 3 of this topic

Posted By: ToJaRo
Date Posted: 31 July 2006 at 1:08am

I looked at your code modifications and what effect will the changes have on my site other than chat related? My forum is customized on nav_icons page and is not standard install so I do not wanna add feature or take away things that will break my site... if it will effect that in any way I will wait for other suggestions or the 'Clean Shoutbox' mod Demon is working on.

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: jckruger
Date Posted: 31 July 2006 at 1:24am

Mine does also include a few other small things so probably best to wait till Demon's shoutbox as I cannot gurantee it will change your customizations.

Posted By: ToJaRo
Date Posted: 31 July 2006 at 1:32am

appreciate the honesty... thx for your assistance!

I did try to make ur code changes on my Dev site and it cause the site to 404 and when I removed the code it came back up

oh well this is just a perk for my users to see if anyone is in chat before going in to the chatroom... they will just have to enter to find out... guess this is a good way to drive traffic in there HAHA!

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: jckruger
Date Posted: 31 July 2006 at 1:48am

Yes my code is spread out between three files common.asp, default.asp and navigation_buttons_inc.asp and has my own mods over time which makes it difficult to strip out all the other mods to make it just the chat code.

Sorry it made your DEV site 404 but hey some different mods are obviously not compatible. I'll also see what the Demon's chatbox code looks like.

Shame it wasn't compatible as I think it looks quite good. There is a screenshot on page 5 of this topic, Posted: 18 Jul 2006 at 8:41am.

Cheers

Justin

Posted By: ToJaRo
Date Posted: 31 July 2006 at 2:59am

Hmm... that looks interesting... I misundestood and thought that was at the bottom of the main page not the top.... So does that go all the way across the top of the page under the Navigation Area at the top? Take a look at my site (link in my sig below) and tell me if it would look good with my layout in your opinion.

I do not think it was your code that crashed my dev site(and it wasnt a huge deal anyway as it only took a few minutes to do and undo)

I think it may have been other variables and i did not follow thru with working them out after it 404'd because there was a chance it would throw off my current layout.

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: jckruger
Date Posted: 31 July 2006 at 3:13am

ToJaRo,

Its just under "You last visited Today at..." . Send me an email from my profile and I'll show you some screenshots of my site. I can't give access though as it is locked down.

Sorry

Posted By: ToJaRo
Date Posted: 31 July 2006 at 3:15am

Will do

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: jckruger
Date Posted: 31 July 2006 at 5:00am

Try adding this to your navigation_buttons.asp. Changes in RED. I have included some lines above and below so you can see the placement

*** Also remember to quote out Dim intArrayPass in default.asp and any other file except for navigation_buttons_inc.asp ***

These are the two files I remember that you also need to quote out Dim intArrayPass.

active_users.asp

member_profile.asp.

This should put the chat statistics below the forum statistics.

*** BACKUP FIRST UNLESS YOU ARE USING ANOTHER DEVELOPMENT SERVER OR DIRECTORY TO TRY THE BELOW ***

--------------------------------------------------------------------------------------------------------%>------------------------------------------------------------------------------------------------------

'** Web Wiz Guide, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, UK, BH15 4JD
'**
'****************************************************************************************

If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 Then 'Hides this from anyone not logged in

'##########################################################################################
'##########################################################################################
'######################### START MADDOG MOD HERE ##########################################
'###################### Edited by JCKRUGER 04/07/2006 #####################################
'##########################################################################################
'Copyright 2005 - Drew Gauderman - http://www.iportalx.net/ - http://www.iportalx.net - http://www.aspinvision.com/ - http://www.aspinvision.com
Dim saryActiveChatUsers
Dim intArrayPass
Dim blnAdminInChat
CONST ApplicationUsers = "ChatUsers"
Const strDefaultChatroom = "YOUR ROOM NAME"
blnAdminInChat = False
'Get the array
If IsArray(Application(ApplicationUsers)) Then
saryActiveChatUsers = Application(ApplicationUsers)
Else
ReDim saryActiveChatUsers(9, 0)
End If
'Remove inactive users first
If UBound(saryActiveChatUsers, 2) <> 0 Then
Application.Lock
'Iterate through the array to remove old entires
For intArrayPass = 1 To UBound(saryActiveChatUsers, 2)
'Check the last checked date. If user wasnt updated 15 seconds ago then they must be gone
If CDate(saryActiveChatUsers(3, intArrayPass)) < CDate(CDbl(DateAdd("s", -60, Now()))) Then
 'Swap this array postion with the last in the array
 saryActiveChatUsers(0, intArrayPass) = saryActiveChatUsers(0, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(1, intArrayPass) = saryActiveChatUsers(1, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(2, intArrayPass) = saryActiveChatUsers(2, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(3, intArrayPass) = saryActiveChatUsers(3, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(4, intArrayPass) = saryActiveChatUsers(4, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(5, intArrayPass) = saryActiveChatUsers(5, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(6, intArrayPass) = saryActiveChatUsers(6, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(7, intArrayPass) = saryActiveChatUsers(7, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(8, intArrayPass) = saryActiveChatUsers(8, UBound(saryActiveChatUsers, 2))
 saryActiveChatUsers(9, intArrayPass) = saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2))
 'Remove the last array position as it is no-longer needed
 ReDim Preserve saryActiveChatUsers(9, UBound(saryActiveChatUsers, 2) - 1)
 'Exit for loop to prevent errors
 Exit For
End If
Next
Application(ApplicationUsers) = saryActiveChatUsers
Application.UnLock
End If
const strChatTableHeading = "Currently Chatting "
%>
<%
End If 'Additional End IF for above "If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 Then" Statement

'Copyright 2005 - Drew Gauderman - http://www.iportalx.net/ - http://www.iportalx.net - http://www.aspinvision.com/ - http://www.aspinvision.com
'##########################################################################################
'##########################################################################################
'########################### END MADDOG MOD HERE ##########################################
'####################### Edited by JCKRUGER 04/07/2006 ####################################
'##########################################################################################

Posted By: ToJaRo
Date Posted: 31 July 2006 at 5:44am

No luck... when I go to the site as a guest I see the Main Page but when I log in as a user the page displays my background color only no text. No errors at all.

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: jckruger
Date Posted: 31 July 2006 at 7:28am

Here are the complete files from a blank default.asp and navigation_buttons_inc.asp that have had the two modifications applied

Default.asp:

[QUOTE]

<% @ Language=VBScript %>
<% Option Explicit %>


<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Forums
'** http://www.webwizforums.com
'**
'** Copyright �2001-2006 Web Wiz. All Rights Reserved.
'**
'** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENCE FROM 'WEB WIZ'.
'**
'** IF YOU DO NOT AGREE TO THE LICENCE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENCE
'** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE
'** AND DERIVATIVE WORKS IMMEDIATELY.
'**
'** If you have not received a copy of the licence with this work then a copy of the latest
'** licence contract can be found at:-
'**
'** http://www.webwiz.net/licence
'**
'** For more information about this software and for licensing information please contact
'** 'Web Wiz' at the address and website below:-
'**
'** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England
'** http://www.webwiz.net
'**
'** Removal or modification of this copyright notice will violate the licence contract.
'**
'****************************************************************************************

'Set the response buffer to true as we maybe redirecting and setting a cookie
Response.Buffer = true

'Make sure this page is not cached
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

'Dimension variables
Dim sarryForums   'Holds the recordset array for all the categories and forums
Dim saryMemebrStats  'Holds the member stats
Dim intForumID   'Holds the forum ID number
Dim strCategory   'Holds the category name
Dim intCatID   'Holds the id for the category
Dim strForumName  'Holds the forum name
Dim strForumDiscription  'Holds the forum description
Dim strForumPassword  'Holds the forum password if there is one
Dim lngNumberOfTopics  'Holds the number of topics in a forum
Dim lngNumberOfPosts  'Holds the number of Posts in the forum
Dim lngTotalNumberOfTopics 'Holds the total number of topics in a forum
Dim lngTotalNumberOfPosts 'Holds the total number of Posts in the forum
Dim intNumberofForums  'Holds the number of forums
Dim lngLastEntryMeassgeID 'Holds the message ID of the last entry
Dim dtmLastEntryDate  'Holds the date of the last entry to the forum
Dim strLastEntryUser  'Holds the the username of the user who made the last entry
Dim lngLastEntryUserID  'Holds the ID number of the last user to make and entry
Dim dtmLastEntryDateAllForums 'Holds the date of the last entry to all fourms
Dim strLastEntryUserAllForums 'Holds the the username of the user who made the last entry to all forums
Dim lngLastEntryUserIDAllForums 'Holds the ID number of the last user to make and entry to all forums
Dim blnForumLocked  'Set to true if the forum is locked
Dim intForumColourNumber 'Holds the number to calculate the table row colour
Dim blnHideForum  'Set to true if this is a hidden forum
Dim intCatShow   'Holds the ID number of the category to show if only showing one category
Dim intActiveUsers  'Holds the number of active users
Dim intActiveGuests  'Holds the number of active guests
Dim intActiveMembers  'Holds the number of logged in active members
Dim strMembersOnline  'Holds the names of the members online
Dim intSubForumID  'Holds the sub forum ID number
Dim strSubForumName  'Holds the sub forum name
Dim strSubForums  'Holds if there are sub forums
Dim dtmLastSubEntryDate  'Holds the date of the last entry to the forum
Dim strLastSubEntryUser  'Holds the the username of the user who made the last entry
Dim lngLastSubEntryUserID 'Holds the ID number of the last user to make and entry
Dim lngSubForumNumberOfPosts 'Holds the number of posts in the subforum
Dim lngSubForumNumberOfTopics 'Holds the number of topics in the subforum
Dim intTotalRecords  'Holds the number of records
Dim intCurrentRecord  'Holds the current record position
Dim intTempRecord  'Holds a temporary record position for looping through records for any checks
Dim blnSubRead   'Holds if the user has entry to the sub forum
Dim lngNoOfMembers  'Holds the number of forum members
'Dim intArrayPass  'Active users array counter ### Remember to quote this out as it is now in navigation_buttons_inc.asp ###
Dim strBirthdays  'String containing all those with birtdays today
Dim dtmNow   'Now date with off-set
Dim intBirtdayLoopCounter 'Holds the bitrhday loop counter
Dim intLastForumEntryID  'Holds the last forum ID for the last entry for link in forum stats
Dim intTotalViewingForum 'Holds the number of people viewing the forum, including sub forums

'Initialise variables
lngTotalNumberOfTopics = 0
lngTotalNumberOfPosts = 0
intNumberofForums = 0
intForumColourNumber = 0
intActiveMembers = 0
intActiveGuests = 0
intActiveUsers = 0
intTotalRecords = 0
lngNoOfMembers = 0
intBirtdayLoopCounter = 0

'Read in the category to show
If Request.QueryString("C") Then
intCatShow = CInt(Request.QueryString("C"))
Else
intCatShow = 0
End If

'Read the various categories, forums, and permissions from the database in one hit for extra performance
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "" & _
"SELECT " & strDbTable & "Category.Cat_ID, " & strDbTable & "Category.Cat_name, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Sub_ID, " & strDbTable & "Forum.Forum_name, " & strDbTable & "Forum.Forum_description, " & strDbTable & "Forum.No_of_topics, " & strDbTable & "Forum.No_of_posts, " & strDbTable & "Author.Username, " & strDbTable & "Forum.Last_post_author_ID, " & strDbTable & "Forum.Last_post_date, " & strDbTable & "Forum.Password, " & strDbTable & "Forum.Locked, " & strDbTable & "Forum.Hide, " & strDbTable & "Permissions.View_Forum " & _
"FROM " & strDbTable & "Category" & strDBNoLock & ", " & strDbTable & "Forum" &

Posted By: ToJaRo
Date Posted: 31 July 2006 at 2:14pm

Thanks! I replaced my default.asp page and it started working. Guess I must of fat fingered something on my attempt.

Greatly appreciate the assistance!

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: ToJaRo
Date Posted: 07 August 2006 at 1:59pm

After some further testing we have found that this code is for Access forums only. Placing this into a SQL based site will cause problems.

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: jckruger
Date Posted: 08 August 2006 at 12:49am

Thats right. I don't know what modifications would be required for SQL version but it works perfectly in the Access Version. Thanks for your testing ToJaRo.

If anyone can work it out, please post your solution.

Cheers

Justin

Posted By: AnaMaria
Date Posted: 16 August 2006 at 8:33am

Can I have one fully version of a chat room? I have an access forum.

PLS!

Posted By: jckruger
Date Posted: 16 August 2006 at 2:47pm

Just download the chat files and copy them to a "chat" folder and copy the above text for navigation_buttons_inc.asp and default.asp and create the files.

The above files are not modded except for the chat mod.

Hope that helps.

PS. Probably not a good idea to leave your email address in the post as you will probably get spammed. Put your email address in your profile.

Cheers

Justin

Update: AnaMaria, I have sent you an email with the chatroom install instructions. Please let me know if you have any troubles.

Posted By: ToJaRo
Date Posted: 23 August 2006 at 3:07am

Would anyone know how to get the feature to show how many users are in chat working for SQL? I have tried several things but still cannot figure it out.

Thx in advance.

-------------
ToJaRo
http://www.thesoupbone.com - The SoupBone Community

Posted By: AnaMaria
Date Posted: 23 August 2006 at 10:49pm

Jckruger...

Thank you

The chat does work fine, but I'll have to mod same language things.

Thank you !!!

Posted By: ibaker
Date Posted: 24 August 2006 at 2:17am

Is anyone going to take the risk and see what is invloved for the mod to work with MySQL? - please

-------------
regards
Ian
http://www.recreationalflying.com.au/forum - http://www.recreationalflying.com.au/forum
Pay for a WWF licence - I did - help this great software to get even better!

Posted By: ben33
Date Posted: 21 October 2008 at 4:02pm

Hi,

can someone please send me AspChatNow. It isn't downlaodable anymore....

Posted By: 123Simples
Date Posted: 21 October 2008 at 4:36pm

I have a copy on our forums ben - two secs and I'll add a link Thumbs Up

-------------
http://www.123simples.com/" rel="nofollow - Visit 123 Simples Web Design

Posted By: i2Paq
Date Posted: 13 November 2008 at 6:12pm

MrTWS wrote:

I have a copy on our forums ben - two secs and I'll add a link Thumbs Up

I'm still waiting

Posted By: 123Simples
Date Posted: 13 November 2008 at 6:28pm

Sorry i2Paq - I did actually send the user a link and he downloaded the software - I just had not posted it matter of factly on here, but here you go

http://www.thisworldsucks.co.uk/uploads/ASPChat.zip - DOWNLOAD ASP CHAT NOW

Sorry bud

-------------
http://www.123simples.com/" rel="nofollow - Visit 123 Simples Web Design

Posted By: MadDog
Date Posted: 13 November 2008 at 11:53pm

Hosting my content without permission is a big no no.

I am working on a new version. Should be released soon.

-------------
http://www.iportalx.net" rel="nofollow">

Posted By: maryk
Date Posted: 17 July 2009 at 2:21pm

Hi,

I'm on the 8.5 version of Web Wiz.

Is it possible to integrate FlashChat 5011 with my forum?

http://www.tufat.com/docs/flashchat/integration.html" rel="nofollow - http://www.tufat.com/docs/flashchat/integration.html

I uploaded it, but I don't know what to do next, even with the directions above.

I would like to post chats in a threads, or post a link or button somwhere on the forum that opens a separate flashchat page, without asking for further login information.

Thank you for your consideration,

Mary

Posted By: 123Simples
Date Posted: 18 July 2009 at 4:09pm

Hi Mary
Flash chat is a php system whereas Web Wiz uses ASP for its files. Therefore I don't think you can actually run it within your current forum, but you could run it as a separate standalone chat program, and put links from your forum to those pages

-------------
http://www.123simples.com/" rel="nofollow - Visit 123 Simples Web Design

Posted By: maryk
Date Posted: 19 July 2009 at 11:50am

Thank you MrTWS,

I guess that's what we'll have to do then.

Right now, all of the chat software files have been FTP'd to the forum docs. Should we delete them and place them in a completely different hosted area on the same server, or can they go to an extension page. We don't want the forum to run slowly.

Sorry, I'm not very good with any of this.

Any suggestions?

Thanks,

Mary

Posted By: 123Simples
Date Posted: 19 July 2009 at 1:34pm

Hi Mary - Assuming that you have FTP'd these files to the forum folder, then you should now have a separate folder called chat within your forum directory. I would probably have the chat folder in its own directory, so as an example:

Root directory (and inside that)
forum/
chat/

plus whatever other directories you may have
Because the chat folder is fully self contained though it should not impact on the forum itself, so placement of the chat folder is purely a filing cabinet exercise and only one to keep your forum folder reserved for web wiz asp pages and folders

-------------
http://www.123simples.com/" rel="nofollow - Visit 123 Simples Web Design

Posted By: maryk
Date Posted: 19 July 2009 at 4:56pm

Hi MrTWS,

I'm going to see if I can do that now.

Thank you for the explanation. We'll see how it goes.

Mary

Posted By: 123Simples
Date Posted: 19 July 2009 at 5:56pm

If you get stuck Mary then let us know Thumbs Up

-------------
http://www.123simples.com/" rel="nofollow - Visit 123 Simples Web Design