| Author |
 Topic  |
|
|
guido331
Starting Member
USA
25 Posts |
 Posted - 24 May 2005 : 22:13:50
|
I'm trying to implement FlashGames (http://www.snitzbitz.com/mods/details.asp?Version=All&mid=119) and I get the following error after editing my inc_header.asp:
Microsoft VBScript compilation error '800a0400'
Expected statement
/Forum/inc_header.asp, line 531
" <a href=""pop_flashgames.asp"" target=""_self"">Flash games</a> | " & vbNewLine & _
^
Here is what my inc_header.asp looks like in the area the readme tells you to modify: (I have several mods already installed and running successfully)
Response.Write " | <a href=""#"" onClick=""window.open('include/sotw_popup.asp','Uploading','toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=no,resizable=yes,width=270,height=240');""><acronym title=""Song of the Week"">Song of the Week</acronym></a><br />" & vbNewLine
Response.Write " |" & vbNewline & _
" <a href=""active.asp""" & dWStatus("See what topics have been active since your last visit...") & " tabindex=""-1""><acronym title=""See what topics have been active since your last visit..."">Active Topics</acronym></a>" & vbNewline
' ################################# Poll Mod ####################################
Response.Write " |" & vbNewline & _
" <a href=""active_polls.asp""" & dWStatus("See all the active polls...") & " tabindex=""-1""><acronym title=""See all the active polls..."">Active Polls</acronym></a>" & vbNewline
' ##############################################################################
' DEM --> Start of code added to show subscriptions if they exist
if (strSubscription > 0) then
if mlev = 4 and SubCount > 0 then
Response.Write " |" & vbNewline & _
" <a href=""subscription_list.asp?MODE=all""" & dWStatus("See all current subscriptions") & " tabindex=""-1""><acronym title=""See all current subscriptions"">All Subscriptions</acronym></a>" & vbNewline
end if
if MySubCount > 0 then
Response.Write " |" & vbNewline & _
" <a href=""subscription_list.asp""" & dWStatus("See all of your subscriptions") & " tabindex=""-1""><acronym title=""See all of your subscriptions"">My Subscriptions</acronym></a>" & vbNewline
end if
end if
' DEM --> End of Code added to show subscriptions if they exist
Response.Write " |" & vbNewline & _
" <a href=""members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""search.asp"
if Request.QueryString("FORUM_ID") <> "" then Response.Write("?FORUM_ID=" & cLng(Request.QueryString("FORUM_ID")))
Response.Write """" & dWStatus("Perform a search by keyword, date, and/or name...") & " tabindex=""-1""><acronym title=""Perform a search by keyword, date, and/or name..."">Search</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>"
' " <a href=""res_livenews.asp"" target=""_self"">Resources</a> | " & vbNewLine & _
' " <a href=""liquidchat.asp"" target=""_self"">Live Chat</a> | " & vbNewLine & _
' " <a href=""pop_avatarlegend.asp"" target=""_self"">Avatar Legend</a> | " & vbNewLine & _
' " <a href=""pop_flashgames.asp"" target=""_self"">Flash games</a> | " & vbNewLine & _
Response.Write " | <a href=""guestbook.asp""" & dWStatus("View our guestbook...") & " tabindex=""-1""><acronym title=""View our guestbook..."">Guestbook</acronym></a>"
The lines above that are commented out are the ones I am trying to make work. Here is a link to my full inc_header.asp: http://www.hallabaloos.com/inc_header.zip
|
Edited by - guido331 on 24 May 2005 22:16:31 |
|
|
StephenD
Senior Member
Australia
1044 Posts |
Posted - 24 May 2005 : 22:44:14
|
Replace that block of code with this: lines 525 - 532 Response.Write """" & dWStatus("Perform a search by keyword, date, and/or name...") & " tabindex=""-1""><acronym title=""Perform a search by keyword, date, and/or name..."">Search</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline & _
" <a href=""res_livenews.asp"" target=""_self"">Resources</a> | " & vbNewLine & _
" <a href=""liquidchat.asp"" target=""_self"">Live Chat</a> | " & vbNewLine & _
" <a href=""pop_avatarlegend.asp"" target=""_self"">Avatar Legend</a> | " & vbNewLine & _
" <a href=""pop_flashgames.asp"" target=""_self"">Flash games</a> | " & vbNewLine & _
" <a href=""guestbook.asp""" & dWStatus("View our guestbook...") & " tabindex=""-1""><acronym title=""View our guestbook..."">Guestbook</acronym></a>" & vbNewline |
 |
|
|
guido331
Starting Member
USA
25 Posts |
Posted - 25 May 2005 : 08:15:00
|
| Sweet... that worked. So what was I doing wrong? I'm trying to learn ASP as I go along. |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 25 May 2005 : 09:12:34
|
response.write is an inbuilt function of VBScript that adds the HTML you pace in it's argument to the outputted file. As with any function, its arguments cannot span across multiple lines unless the end of each line that adds into another ends with &_. If you think of it from the point of view that each new line in your code isn't actually a line of HTML but rather a continuation of the arguments of the response.write function, it should be easier to understand. Note that the last line of your argument cannot end with &_ as there is no continuing line afterwards.
|
 Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
guido331
Starting Member
USA
25 Posts |
Posted - 25 May 2005 : 09:21:14
|
I'm trying to comment out some of the lines above since I don't have all those mods working just yet and I get a syntax error when I put a ' in front of each line.
' " <a href=""liquidchat.asp"" target=""_self"">Live Chat</a> | " & vbNewLine & _
======================
Microsoft VBScript compilation error '800a03ea'
Syntax error
/Forum/inc_header.asp, line 529
' " <a href=""liquidchat.asp"" target=""_self"">Live Chat</a> | " & vbNewLine & _
|
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 25 May 2005 : 09:33:19
|
Read what I posted above, each line in your reponse.write is just a continuation of its argument so you can't comment out individual lines like that. You'll have to finish up the function before the line you're trying to comment out (i.e., remove the &_ from the end of it) and then create a new function on the line after the one you're commenting (i.e., stick response.write before it. Like so:
response.write "line1"&_
"line2"&_
"line3"
'commented line
response.write "line 1"&_
"line2"
|
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
guido331
Starting Member
USA
25 Posts |
Posted - 25 May 2005 : 09:36:05
|
Ahh (lightbulb coming on over my head)
Thank you very much! |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 25 May 2005 : 09:55:13
|
You're welcome 
|
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
| |
Topic |
|
Topic Locked
