| Author |
 Topic  |
|
|
abercrombie
Starting Member
48 Posts |
 Posted - 24 December 2002 : 17:26:38
|
I installed everything but when I go to view my forum I get this error:
Microsoft VBScript compilation error '800a0400'
Expected statement
/cgi-bin/forum/inc_header.asp, line 535
" <a href=""search.asp"
^
But I was a little unsure about the directions to the inc_header.asp file. If anyone would be happy to tell me what lines to look for in adding the codes I'd be much appreciated. Thanks in advance. |
Edited by - abercrombie on 24 December 2002 17:31:23 |
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 26 December 2002 : 02:00:52
|
| What is the whole line ? .. read my Link 2 |
 |
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 26 December 2002 : 05:08:39
|
It looks like to me that there is some extra code needed at line 534 which may of not been included to do the vbnewline & _ or the response.write is missing from line 535. Do you want to send me you inc_header.asp and I can have a look at it for you. 
|
Cheers,
David Greening |
Edited by - Classicmotorcycling on 26 December 2002 05:09:09 |
|
|
|
abercrombie
Starting Member
48 Posts |
Posted - 26 December 2002 : 11:21:34
|
| Actually, I re-uploaded a backup inc_header.asp file.. I would just like to know where I need to place the code since on the readme it doesn't say what you should look for to place under it. |
|
|
|
abercrombie
Starting Member
48 Posts |
Posted - 26 December 2002 : 11:26:43
|
This is the code I'm confused about..it was the directions I was confused about...
INC_HEADER.ASP
Add the following: (about line 260)
This code needs to be after the connection is opened near the top of the page and after
strDBNTUserName is defined. It needs to be placed before sForumNavigation() is called.
' Get Private Message count for display
if strDBType = "access" then
strSqL = "SELECT count(M_TO) as [pmcount] "
else
strSqL = "SELECT count(M_TO) as pmcount "
end if
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 "
Set rsPM = my_Conn.Execute(strSql)
pmcount = rsPM("pmcount")
rsPM.close
set rsPM = nothing
Thats the whole code. I even uploaded the readme file here's the link.. http://www.stonesthrowfans.com/readme.html |
|
|
|
sirsmiley
New Member
77 Posts |
Posted - 29 December 2002 : 06:00:55
|
Hello Abercrombie! Here is where I put mine and it seems to be working ok, I started mine on about line# 239:
Response.Write "<html>" & vbNewline & vbNewline & _
"<head>" & vbNewline & _
"<title>" & GetNewTitle(strScriptName) & "</title>" & vbNewline
239~~> ' Get Private Message count for display
if strDBType = "access" then
strSqL = "SELECT count(M_TO) as [pmcount] "
else
strSqL = "SELECT count(M_TO) as pmcount "
end if
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
strSql = strSql & " AND " & strTablePrefix & "PM.M_READ = 0 "
Set rsPM = my_Conn.Execute(strSql)
pmcount = rsPM("pmcount")
rsPM.close
set rsPM = nothing
'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This Forum code is Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen, Huw Reddick and Richard Kinser, Non-Forum Related code is Copyright (C) " & strCopyright & """>" & vbNewline
'## END - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
|
|
|
|
sirsmiley
New Member
77 Posts |
Posted - 29 December 2002 : 06:10:11
|
Also I believe I got that same error. Look at where they said add this and make sure what I have in red is only there once. Make sure it looks like the way I made it here. They had it in the directions where after you copy it, it would be there twice in a row after you copied it. It should look like this and you shouldn't get that error:
' DEM --> End of Code added to show subscriptions if they exist
Response.Write " |" & vbNewline & _
" <a href=""" & strForumURL & "members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
" |" & vbNewline
If strPMStatus = "1" then
Response.Write " <a href=""" & strForumURL & "pm_view.asp""" & dWStatus("Check Your Private Messages...") & " tabindex=""-1""><acronym title=""Check Your Private Messages..."">Private Messages"
if pmcount > 0 then Response.Write "(<font color=""" & strActiveLinkColor & """><b>" & pmcount & " New</b></font>)"
Response.Write "</acronym></a>" & vbNewline & _
" |" & vbNewline
end if
Response.Write " <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>"
end sub |
|
|
|
abercrombie
Starting Member
48 Posts |
Posted - 30 December 2002 : 20:53:57
|
| thank you i will try it and get back to you. |
|
|
|
sirsmiley
New Member
77 Posts |
Posted - 31 December 2002 : 05:35:48
|
| NP, let me know if that works. :) |
|
|
| |
Topic |
|
Topic Locked
