| Author |
 Topic  |
|
|
ElPazzo
Junior Member
Austria
116 Posts |
 Posted - 30 June 2005 : 06:10:56
|
Hi,
i get this msg when trying to look at a poll:
Kompilierungsfehler in Microsoft VBScript Fehler "800a03f4'
'If' erwartet (awaiting 'if')
/forum/topic.asp, line 1315
End Sub
----^
here is the code referred to starting from the last poll mod changes:
(line 1315 is the line with the 'end sub')
'############################## Poll Mod ################################
if strPolls = "1" and ((Forum_Polls = "2" and AdminAllowed = 1) or (Forum_Polls = "1")) then
Response.Write " <a href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconPoll,"New Poll","align=""absmiddle""") & "</a> <a href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """>New Poll</a><br />" & vbNewLine
end if
'########################################################################
else
if (AdminAllowed = 1) then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>New Topic</a>" & vbNewLine
'########################### Poll Mod ###############################
Response.Write " <a href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconPoll,"New Poll","align=""absmiddle""") & "</a> <a href=""post.asp?poll=1&method=Topic&FORUM_ID=" & Forum_ID & """>New Poll</a><br />" & vbNewLine
'####################################################################
Response.Write " <td valign=""top"" height=""100%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><span class=""spnMessageText"" id=""msg"">"
if Request.QueryString("SearchTerms") <> "" then
Response.Write SearchHiLite(formatStr(Topic_Message))
else
Response.Write formatStr(Topic_Message)
end if
Response.Write "</span id=""msg""></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
if CanShowSignature = 1 and Topic_Sig = 1 and Topic_MemberSig <> "" then
Response.Write " <tr>" & vbNewLine & _
" <td valign=""bottom""><hr noshade size=""" & strFooterFontSize & """><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText"">" & formatStr(Topic_MemberSig) & "</span></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strEditedByDate = "1" and Topic_LastEditBy <> "" then
if Topic_LastEditBy <> Topic_Author then
Topic_LastEditByName = getMemberName(Topic_LastEditBy)
else
Topic_LastEditByName = chkString(Member_Name,"display")
end if
Response.Write " <tr>" & vbNewLine & _
" <td valign=""bottom""><hr noshade size=""" & strFooterFontSize & """ color=""" & strForumFirstCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & fLangN(strLangTopic00310,Topic_LastEditByName & "|" & chkDate(Topic_LastEdit, " ", true)) & "</font>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
End Sub
sub PostingOptions()
cu,
pascal
PS: I just saw it happens with all kind of topics. |
www.pet-needs.com
www.pet-needs.com/forum
www.pet-needs.de
www.translating-it.com |
Edited by - ElPazzo on 30 June 2005 06:49:50 |
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 30 June 2005 : 07:41:41
|
| Post a link to a txt version of your topic.asp file. |
Support Snitz Forums
|
 |
|
|
ElPazzo
Junior Member
Austria
116 Posts |
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 30 June 2005 : 12:42:51
|
Here is your topic.txt file. You had a copy and paste mistake with the subroutine PostingOptions(). Let me know if it fixes it.
topic.txt
|
Support Snitz Forums
|
Edited by - Davio on 30 June 2005 12:43:26 |
|
|
|
ElPazzo
Junior Member
Austria
116 Posts |
Posted - 30 June 2005 : 17:54:40
|
now it tells me this:
ADODB.Recordset Fehler "800a0cc1'
Ein Objekt, das dem angeforderten Namen oder dem Ordinalverweis entspricht, kann nicht gefunden werden.
/forum/topic.asp, line 135
Cannot find a linked object
the object referred to is:
Member_SKYPE = rsTopic("M_SKYPE")
cu,
pascal |
www.pet-needs.com
www.pet-needs.com/forum
www.pet-needs.de
www.translating-it.com |
Edited by - ElPazzo on 30 June 2005 17:57:33 |
|
|
|
ElPazzo
Junior Member
Austria
116 Posts |
Posted - 01 July 2005 : 02:46:14
|
| got it working finally... some changes had been removed with the new install. thats why i got some more errors... thx for the help davio |
www.pet-needs.com
www.pet-needs.com/forum
www.pet-needs.de
www.translating-it.com |
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
|
| |
Topic |
|
Topic Locked
