| Author |
 Topic  |
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
 Posted - 24 August 2002 : 12:46:03
|
I posted this as a response to the current Mod topic; however, it never comes up as a recent post/response. Since I'd like an answer, I thought I should repost.
1. Started off with this error:
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/forums/inc_header.asp, line 275, column 110
"function openChat() { var MainWindow = window.open (""chat/default.asp?Name=""" strDBNTUserName & """, "","toolbar=no,location=no,menubar=no,scrollbars=yes,width=800,height=600,top=100,left=100,resizeable=yes,status=no"");" & vbNewLine & _
-----------------------------------------------------------------------------------------------------------^
2. Fixed that by this:
"function openChat() { var MainWindow = window.open ('chat/default.asp?Name="",'toolbar=no,location=no,menubar=no,scrollbars=yes,width=800,height=600,top=100,left=100,resizeable=yes,status=no');" & vbNewLine & _
"}" & vbNewLine & _
3. That got me back into the forums. Next error was in admin_home.asp:
Microsoft VBScript compilation (0x800A0408)
Invalid character
/forums/admin_home.asp, line 96, column 149
" <LI><span class=""spnMessageText""><a href=""javascript:
openWindow3('chat/admin.asp')"">Chat Administration</a></span></LI>" &
vbNewLine & _ " </UL></p>" & vbNewLine & _
4. This seems to be the correct coding (only change is in removing space between the ':' and 'open':
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('chat/admin.asp')"">Chat Administration</a></span></LI>" & vbNewLine & _
5. Now, I get this:
A Runtime Error has occurred.
Do you wish to Debug?
Line 0
Error: Object Expected
Now, if I were a betting man - I'd say that means it can't find the file.... But the admin.asp file is in the /chat folder.
Anybody want to take a stab at it? |
Edited by - Carefree on 24 August 2002 18:39:12 |
|
|
Dunamis
Starting Member
29 Posts |
Posted - 26 August 2002 : 14:09:47
|
Carefree,
I have encountered exactly same error and am stuck where you are.
Did you get this fixed?
Dunamis |
 |
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 26 August 2002 : 18:31:55
|
I got to the point where I am (apparently) able to initialize the chat rooms; however, the users are not able to open them. Another thing that was missing was in the global.asa file. You need to add the following:
<OBJECT
RUNAT=Server
SCOPE=Application
ID=conquerChatRooms
PROGID="Scripting.Dictionary">
</OBJECT>
Otherwise the rooms themselves aren't configurable.
I now get a new one:
"Invalid Argument" in this line:
function openChat() { var MainWindow = window.open('chat/default.asp?Name="','toolbar=no,location=no,menubar=no,scrollbars=yes,width=800,height=600,top=100,left=100,resizeable=yes,status=no')
|
Edited by - Carefree on 26 August 2002 18:45:40 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 27 August 2002 : 01:19:33
|
Got it fixed!
Here's what the inc_header.asp lines need to say:
"//TMPJ's Snitzzy Chat (" & vbNewLine & _
"function openChat() { var MainWindow = window.open('chat/default.asp?Name=""','','toolbar=no,location=no,menubar=no,scrollbars=yes,width=800,height=600,top=100,left=100,resizeable=yes,status=no');" & vbNewLine & _
"}" & vbNewLine & _
The second batch of lines has to be modified from the instructions, too. Change them to say:
if strDBNTUserName <> "" then
Response.Write " |" & vbNewline & _
" <a href=""javascript:openChat()""><acronym title=""Chat with other users..."">Chat</acronym></a>" & vbNewline
end if
If anyone wants to download modified files (with instructions on corrections), click here: Snitz Chat |
Edited by - Carefree on 27 August 2002 02:00:43 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 27 August 2002 : 07:27:21
|
Spoke too soon, I guess. Although it's closer than before (you now get a sign-in to chat page), it doesn't allow you to enter your user name nor does it auto-fill in the way TMPJ intended.
I've tried all kinds of derivatives/variations of adding the strDBNTUserName that I could think of - but no luck. |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 01 September 2002 : 17:46:10
|
Woooohoooo
It works with 3.4.02!
Anyone care to know how? lol
TMPJ's Chat Mod:
chat/default.asp
Look for these lines (appx 142-148):
<td style="background-color: #b3d68e; border-top: 1px dashed #ffffff; border-bottom: 1px dashed #ffffff" align=center>
<br>
<table width=240 border=0 cellspacing=0 cellpadding=2>
<form name=frmLogin method=GET action="default.asp">
<tr>=
Add these lines right afterward:
<% if strAuthType="nt" then %><b>
<% = Session(strCookieURL & "username")%> (<% =Session(strCookieURL & "userId") %>) </b>
<%else if strAuthType="db" then %><b><% =ChkString(strDBNTUserName, "display") %></b>
<% End If %>
<% End If %>
inc_header.asp
Look for these lines (appx 271):
"function openWindow5(url) {" & vbNewLine & _
" popupWin = window.open(url,'new_page','width=450,height=525,scrollbars=yes,toolbars=yes,menubar=yes,resizable=yes')" & vbNewLine & _
"}" & vbNewLine & _
Add these lines right afterward:
"//TMPJ's Snitzzy Chat (" & vbNewLine & _
"function openChat() { var MainWindow = window.open('chat/default.asp?username="""& strDBNTUserName & """ &mode=userLogin','','toolbar=no,location=no,menubar=no,scrollbars=yes,width=800,height=650,top=100,left=100,resizeable=yes,status=no');" & vbNewLine & _
"}" & vbNewLine & _
Now look for these lines (appx 497):
if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=Edit""" & dWStatus("Edit your personal profile...") & " tabindex=""-1""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
else
Response.Write " <a href=""javascript:openWindow3('pop_profile.asp?mode=Edit')""" & dWStatus("Edit your personal profile...") & " tabindex=""-1""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
end if
Add these lines right afterward:
if strDBNTUserName <> "" then
Response.Write " |" & vbNewline & _
" <a href=""javascript:openChat()""><acronym title=""Chat with other users..."">Chat</acronym></a>" & vbNewline
end if
admin_home.asp
Look for these lines (appx 138):
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('admin_config_order.asp')"">Category/Forum Order Configuration</a></span></LI>" & vbNewLine & _
Add these lines right afterward:
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('chat/admin.asp')"">Chat Administration</a></span></LI>" & vbNewLine & _
global.asa
<OBJECT RUNAT=Server
SCOPE=Application
ID=conquerChatUsers
PROGID="Scripting.Dictionary">
</OBJECT>
<OBJECT RUNAT=Server
SCOPE=Application
ID=conquerChat
PROGID="Scripting.Dictionary">
</OBJECT>
<OBJECT RUNAT=Server
SCOPE=Application
ID=conquerChatMessages
PROGID="Scripting.Dictionary">
</OBJECT>
<OBJECT RUNAT=Server
SCOPE=Application
ID=conquerChatRooms
PROGID="Scripting.Dictionary">
</OBJECT>
Thanks to TMPJ for a great mod, to Remi Woler for testing and helping with preliminaries, and to Doug G for solving the last issue. |
Edited by - Carefree on 05 September 2002 03:57:59 |
|
|
|
Dunamis
Starting Member
29 Posts |
Posted - 01 September 2002 : 18:26:12
|
Thanx Carefree,
I'll have a go once I have upgraded to 3.4.02!
Dunamis |
|
|
| |
Topic |
|
|
|
Topic Locked
