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
 Poll Mod: 2.0.6 Topic's do not work?
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

123456
New Member

75 Posts

Posted - 09 September 2003 :  14:16:54  Show Profile
Hi I just installed the Poll Mod 2.0.6 to the current version of Snitz 3.4.03....

I've added the code and checked it a few times but cannot find the error i'm not getting. I'm not able to click on a topic, and see what's in it. I can post a new topic, and it'll post like normal, but when I go to click the actual topic, it does one of those "page not found" errors you get when you go to a site that is no longer there. For example: www.THISlinkWONTwork.com <------

So i've spent the past hour or so trying to find where i've got the code written wrong, which doesn't look like I did anything wrong.
(We know it's not me......haha)

So anyways, that's my problem, somewhere I do not have it set up where it's loading the topic info. Where do I look before I go crazy trying to find it.

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 09 September 2003 :  17:37:33  Show Profile
You need to uncheck the "Show Friendly HTTP Errors" option in your Advanced Tab, in your Internet Options. Then view the page again. It will give you a more detailed error message.

Support Snitz Forums
Go to Top of Page

123456
New Member

75 Posts

Posted - 09 September 2003 :  23:13:55  Show Profile
Okay went to give that a shot, but my server is down right now so i'll have to check it tomorrow.

Will let you know.

Thanks
Go to Top of Page

123456
New Member

75 Posts

Posted - 10 September 2003 :  02:36:02  Show Profile
Alrighty back up and running......Here's the line 1257 that it said was giving me the error: LINE 1257 in RED

' Remember to start the 2nd line below with Response.Write.
' #####################################################################################
Response.Write " </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 & """>" &_
"Edited by - " & Topic_LastEditByName & " on " & chkDate(Topic_LastEdit, " ", true) & "</font>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
End Sub


sub PostingOptions()
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (strDBNTUserName = "") then
if ((Cat_Status = 1) and (Forum_Status = 1)) then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Topic&FORUM_ID=" & Forum_ID & """>New Topic</a>" & vbNewLine
'############################## 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
'####################################################################
else
Response.Write " " & getCurrentIcon(strIconFolderLocked,"","align=""absmiddle""") & " Forum Locked" & vbNewLine
end if
end if
if ((Cat_Status = 1) and (Forum_Status = 1) and (Topic_Status = 1)) and ArchiveView = "" then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>Reply to Topic</a>" & vbNewLine
else
if ((AdminAllowed = 1 and Topic_Status <= 1) and ArchiveView = "") then
Response.Write " <a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>"
' DEM --> Added if statement to show normal icon for unmoderated posts.
if Topic_Status = 1 and Cat_Status <> 0 and Forum_Status <> 0 then
Response.Write getCurrentIcon(strIconReplyTopic,"","align=""absmiddle""") & "</a> "
else
Response.Write getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & "</a> "
end if
Response.Write "<a href=""post.asp?" & ArchiveLink & "method=Reply&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>Reply to Topic</a>" & vbNewLine
else
if Topic_Status = 0 then
Response.Write getCurrentIcon(strIconClosedTopic,"","align=""absmiddle""") & " Topic Locked" & vbNewline
end if
end if
end if

_______________________________________________________________

I checked the Topic.asp and I did it how it said to, so i'm not sure what to do now.

Preemptive thanks for any help from anyone.
Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 10 September 2003 :  03:05:19  Show Profile
Post a link to a txt version of your topic.asp file.

Support Snitz Forums
Go to Top of Page

123456
New Member

75 Posts

Posted - 10 September 2003 :  03:16:05  Show Profile
Hey Davio just fixed it......

I added a end if right above the End Sub

Then I got an error for the End Sub down a little ways, so I added a end if above that also.

So now the posts are working pretty good.......

But (hah)

I turned the Polls on in a category, (Also turned them on in the Admin section) and did my first poll, went to check the post which worked so far. Then when I opened the post there was nothing in it to click on to do the actual poll, kinda like a blank post that only had my personal info like homepage, PM, and all that stuff.

I've gotta work in 4 hours, (Yeah 3 hours of sleep tonight, lol)....and then I work for 8, so i'll be back then to see if anyone has any options for me to try.

Preemptive thanks for those who help.


Edited by - 123456 on 10 September 2003 03:16:43
Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 10 September 2003 :  03:27:28  Show Profile
Again I ask for a link to a txt version of your topic.asp file.

Putting end if's anywhere in the code doesn't sound like a good way to fix a code error. :/

Support Snitz Forums
Go to Top of Page

123456
New Member

75 Posts

Posted - 10 September 2003 :  03:32:42  Show Profile
http://deleted from site/topicasp.txt

Alrighty, here ya go.......

Good night
ZZZZZZZZZzzzzzzzzzzzzzzzzzzzz

Edited by - 123456 on 11 September 2003 05:31:32
Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 10 September 2003 :  03:56:24  Show Profile
On line 1323, move the end if from there, to the line after 1316. So you will go to the end of line 1316, press the Enter key and create a new line (line 1317) and put the end if there.

Move the end if from line 1257, and add it to the line after line 1012. So you will go to the end of line 1012, press the Enter key and create a new line (line 1013) and put the end if there.

That's it. Rest of your file looks ok.

Support Snitz Forums
Go to Top of Page

123456
New Member

75 Posts

Posted - 10 September 2003 :  04:13:09  Show Profile
Can't sleep......haha

Okay did that, now I get this error:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/board/topic.asp, line 1122

else
^


It's that else that's line 1122.
Go to Top of Page

123456
New Member

75 Posts

Posted - 10 September 2003 :  16:06:38  Show Profile
Bum-pitty Bump, I sure am Stumped.
Go to Top of Page

123456
New Member

75 Posts

Posted - 11 September 2003 :  02:19:45  Show Profile
Woooooo Hoooooo go it!

Response.Write " <br /><a href=""JavaScript:openWindow5('pop_printer_friendly.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & "')"">" & getCurrentIcon(strIconPrint,"","align=""absmiddle""") & "</a> <a href=""JavaScript:openWindow5('pop_printer_friendly.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & "')"">Printer Friendly</a>" & vbNewLine

It was this part, there was some javascript that was just a smidge differen't than this version that you had Davio, so I just did a little tweaking with this and now it works!

Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 11 September 2003 :  02:39:48  Show Profile
Great! Sorry i couldn't get back to you sooner. Got tied up with other matters.

But glad you worked it out!

Support Snitz Forums
Go to Top of Page

123456
New Member

75 Posts

Posted - 11 September 2003 :  02:55:40  Show Profile
Normally I tend to want to do it myself cause it forces me to expand what I don't know......

But the easy way out is always cool too.....haha

Thanks!
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 0.46 seconds. Powered By: Snitz Forums 2000 Version 3.4.07