| Author |
 Topic  |
|
|
CodeName
Junior Member
296 Posts |
 Posted - 16 December 2002 : 15:21:17
|
I made all changes but it gives error at post.asp
I have Installed Poll mod / Active Users and now Smile manager but when I added Smile manager codes at post.asp it says
Microsoft VBScript compile error `800a03f6`
`End` Required
/post.asp, line 1677
content=""2; URL=default.asp"">" --->1674
WriteFooter --->1675
Response.end --->1676
end function -----> 1677
%>
How Can I fix it ? |
|
|
Rasco
Advanced Member
Germany
3192 Posts |
Posted - 16 December 2002 : 15:55:43
|
| Can you post a link to a text version of your post.asp? |
German Snitz Forum
|
 |
|
|
CodeName
Junior Member
296 Posts |
|
|
CodeName
Junior Member
296 Posts |
Posted - 17 December 2002 : 14:11:41
|
Any Solution Please  |
|
|
|
Rasco
Advanced Member
Germany
3192 Posts |
Posted - 17 December 2002 : 14:58:35
|
Not entirely sure, but I think, you should delete line 1302 (line in red)
end if
'############################### Poll Mod #####################################
if Request.QueryString("poll") = "1" then
if (AdminAllowed = "1" or mLev = "2") and (FPolls <> "0") then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
"<input name=""lockpoll"" type=""checkbox"" value=""1"""
if blnPSTatus = "0" then Response.Write(" checked")
Response.Write ">Check here to lock/unlock the poll after this post.<br /></font>" & vbNewLine
end if
if strRqMethod <> "Topic" and (AdminAllowed = "1" or mLev = "2") then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
"<input name=""resetpoll"" type=""checkbox"" value=""1"">Check here to reset the poll votes.</font>" & vbNewLine
end if
end if
'##############################################################################
|
German Snitz Forum
|
|
|
|
CodeName
Junior Member
296 Posts |
Posted - 18 December 2002 : 09:45:58
|
Its Gives Same Error again ,
`End` Required
/post.asp, line 1677
|
Edited by - CodeName on 18 December 2002 09:46:30 |
|
|
|
DoraMoon
Average Member
Taiwan
661 Posts |
Posted - 18 December 2002 : 10:48:21
|
hi~ CodeName,
i think you got the same trouble with richfed in this post..
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=37844#192792
your main Message edit area is gone ~~~ (if you search <textarea in your post.asp, you'll get nothing...)
OMG!! why this happen again...  
in generally, it cause from the code section about line.909~line.967
(if you do'nt do anything change in this section, i think that mod will also work fine... see above link topic to know more detail about this...)
here is a fixed file.. post-CodeName.txt
just a little change the place where Poll Mod insert, and put the missing textarea code back! 
%>
<!--#INCLUDE FILE="inc_smilies.asp" -->
<%
end if
end if
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><textarea cols=""" & intCols & """ name=""Message"" rows=""" & intRows & """ wrap=""VIRTUAL"" onselect=""storeCaret(this);"" onclick=""storeCaret(this);"" onkeyup=""storeCaret(this);"" onchange=""storeCaret(this);"">" & Trim(CleanCode(TxtMsg)) & "</textarea><br /></td>" & vbNewLine & _
" </tr>" & vbNewLine |
~ . .. .. .~ .~~ |
|
|
|
n8pbm
Junior Member
USA
212 Posts |
Posted - 18 December 2002 : 11:06:46
|
Make sure you implemented the change in inc_post_buttons correctly. I was getting that error and found out that I deleted a end if statement in the inc_post_bottons file.
Mike |
Mike
Great Lakes Pop Up Club Camping |
|
|
|
CodeName
Junior Member
296 Posts |
Posted - 18 December 2002 : 11:27:26
|
Thank You very much DoraMoon!
Its Worked , Thanks Again Man |
|
|
|
Alfred
Senior Member
USA
1527 Posts |
Posted - 18 December 2002 : 14:28:08
|
I had this mod successfully installed before, but this time around I have the same trouble with "expected end"... quote:
Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'
/bg/post.asp, line 1513
But my textarea has not disappeared, it is right here:
quote:
" <td bgColor=""" & strPopUpTableColor & """><textarea cols=""" & intCols & """ name=""Message"" rows=""" & intRows & """ wrap=""VIRTUAL"" onselect=""storeCaret(this);"" onclick=""storeCaret(this);"" onkeyup=""storeCaret(this);"" onchange=""storeCaret(this);"">" & Trim(CleanCode(TxtMsg)) & "</textarea><br /></td>" & vbNewLine & _
What is going on with this?
|
Alfred
The Battle Group
CREDO
|
|
|
| |
Topic |
|
Topic Locked
