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

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Moving Chat Link in header
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 15 August 2008 :  09:42:31  Show Profile
Having been inspired by Webbo's notion to revamp the forum header, I have developed a new layout, all working well but I am stuck on getting the Live Chat Link moved from A to B

I have tried the obvious by cutting and pasting the %><!--#INCLUDE FILE="inc_Chat.asp" --><% to where the codeis for the new position B
The code I have around B is:
 Response.Write "    <table align=""left"" width=""100%"" height="""" border=""0""  cellPadding=""0"" cellSpacing=""0"" >" & vbNewline & _
        
         "    <td valign=""top"">" & vbNewline
Response.Write "    <table align=""left"" width=""100%"" height=""20"" border=""0"" cellPadding=""2"" cellSpacing=""0"" >" & vbNewline 
'### chat line 
 response.write	   "          <tr bgcolor=""" & strPageBGColor & """ align=""left"">"& vbNewLine & _
 " <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strForumTitle & " Chat</font>"	
 response.write "</tr>" & vbNewLine 
   '###


I am am sure there must be a simple solution.
Tried replacing code in red with %><!--#INCLUDE FILE="inc_Chat.asp" --><% but receive the following error:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/forumtest/chat/functions/functions_chat.asp, line 18
Function lastMessageID()


inc_header.asp text link The lines for the new location of chat link 544 - 548
Thanking you in advance Andy

<moved from="Help: General / Current Version (v3.4.xx)" by="Shaggy" /><

Edited by - Shaggy on 15 August 2008 11:36:17

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 15 August 2008 :  12:48:49  Show Profile  Visit MaD2ko0l's Homepage
im sure i would do it like this

change line 328 from this

		"          <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strForumTitle & "</b></font></td>" & vbNewLine & _


to this

		"          <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
%><!--#INCLUDE FILE="inc_Chat.asp" --><%
Response.Write " </font></td>" & vbNewLine & _


now depending on what is in inc_code.asp this will just mvoe that line from A to B as u wanted.<

© 1999-2010 MaD2ko0l
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 15 August 2008 :  13:59:02  Show Profile
MaD2ko0l, thank you for the suggested code. I received the following error:

Microsoft VBScript compilation error '800a0411'
Name redefined
/forumtest/chat/functions/functions_chat.asp, line 2
Const AdminPassword = "xxxxxxx"
------^


it seeems where ever I put the %><!--#INCLUDE FILE="inc_Chat.asp" --><% I receive an error????????
<
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 15 August 2008 :  14:17:27  Show Profile
Looking through the inc_header.asp there appears two places associated with the chat code..

line 463
KCname=strDBNTUserName
line 727
%><!--#INCLUDE FILE="inc_Chat.asp" --><%

Line 328 I think is the line where the main forum title is displayed in bold top right corner..
Area B I have at lines 546, see scrollcode in my first post



<
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 15 August 2008 :  14:31:18  Show Profile  Visit MaD2ko0l's Homepage
oooooo... i see now what u have done. hhuuumm i probly wouldnt have doen it liek that but anyway.

in theory this should work

find line 546 which is
		" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strForumTitle & " Chat</font>"	


and replace it with this

%><!--#INCLUDE FILE="inc_Chat.asp" --><%


that should work

the 2nd error u got

Microsoft VBScript compilation error '800a0411'
Name redefined
/forumtest/chat/functions/functions_chat.asp, line 2
Const AdminPassword = "xxxxxxx"
------^

is because u still have the old %><!--#INCLUDE FILE="inc_Chat.asp" --><% included in inc_header.asp so if u remove the origianl %><!--#INCLUDE FILE="inc_Chat.asp" --><% lines after the end sub that will clear up that error.<

© 1999-2010 MaD2ko0l

Edited by - MaD2ko0l on 15 August 2008 14:31:38
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 15 August 2008 :  17:29:12  Show Profile
Mad, u have provided the same as I tried, in theory..
I have removed all old inc-chat links..
Now with suggested code above I receive the following:

Microsoft VBScript compilation error '800a03ea'
Syntax error
/forumtest/chat/functions/functions_chat.asp, line 18
Function lastMessageID()


?

<
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 15 August 2008 :  18:06:35  Show Profile  Visit MaD2ko0l's Homepage
hhhuuummmm...but everyhting works fine before u move that inclue.

what is that function? LastMessageID()?<

© 1999-2010 MaD2ko0l
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 16 August 2008 :  05:45:07  Show Profile
Thats why its so confusing, the chat works perfectly before the move of link..
Here is the function lastmessageID:

Function lastMessageID()
Dim saryMessages

'Get the array
If IsArray(Application(ApplicationMsg)) Then
saryMessages = Application(ApplicationMsg)
Else
ReDim saryMessages(6, 0)

Application.Lock
Application(ApplicationMsg) = saryMessages
Application.UnLock
End If

lastMessageID = saryMessages(5, UBound(saryMessages, 2))
End Function
<
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts

Posted - 16 August 2008 :  06:57:58  Show Profile
quote:
Originally posted by Andy Humm

MaD2ko0l, thank you for the suggested code. I received the following error:

Microsoft VBScript compilation error '800a0411'
Name redefined
/forumtest/chat/functions/functions_chat.asp, line 2
Const AdminPassword = "xxxxxxx"
------^


it seeems where ever I put the %><!--#INCLUDE FILE="inc_Chat.asp" --><% I receive an error????????




Andy, just delete the bit at 726-729, that'll fix your redimensioned array.
<
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 16 August 2008 :  07:12:37  Show Profile
Hi CF,
I have taken the inc link out as suggested at lines 726-729
Added the new inc link at lines 545- 549
'### chat line
response.write " <tr bgcolor=""" & strPageBGColor & """ align=""left"">"& vbNewLine & _
" <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine%><!--#INCLUDE FILE="inc_Chat.asp" --><%Response.Write " </font></td>" & vbNewLine & _
response.write "</tr>" & vbNewLine
'###


It stiil gives an error:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/forumtest/chat/functions/functions_chat.asp, line 18
Function lastMessageID()
^

What is really confusing the chat mod works with the include link in old position lines 726-729
rgds andy

Edit CF My test site is here, with demo/demo account to make link (Join the Live Chat! Members in Chat Room: Currently Empty ) visible. I am trying to locate the link to where its says 'Lyneham Village Test Forum Chat' in footerfont<

Edited by - Andy Humm on 16 August 2008 07:19:43
Go to Top of Page
  Previous Topic Topic Next Topic  
 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 1.38 seconds. Powered By: Snitz Forums 2000 Version 3.4.07