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
 problem with poll mod		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

omega1
Junior Member

United Kingdom
127 Posts
Posted - 26 January 2009 :  17:29:45  Show Profile  Visit omega1's Homepage
hi all, i have a problem making the changes to default.asp for the poll mod, as follows:

" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline
' ################# Poll Mod #####################
' Remember to remove the &_ code from the end of
' the line above.
%><!--#INCLUDE FILE="inc_poll.asp" --><%
' Remember to start the 2nd line below with a
' Response.Write.
' ##############################################
Response.Write " <tr>" & vbNewline & _
</textarea></td>
<td width="50%" valign="top">this and surrounding code looks like:<br><br>
<textarea readonly wrap="off" class="result" rows="1" cols="20" name="result"> Response.Write "</td>" & vbNewline & _
" <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>There are " & Posts & " Posts in " & Topics & " Topics and " & Users & " Users  </font></td>" & vbNewline & _
" </tr>" & vbNewline & _
" </table>" & vbNewline & _
" </td>" & vbNewline
else
Response.Write "</td>" & vbNewline
end if
Response.Write " </tr>" & vbNewline & _
" <tr>" & vbNewline & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline
' ################# Poll Mod #####################
' Remember to remove the &_ code from the end of
' the line above.
%><!--#INCLUDE FILE="inc_poll.asp" --><%
' Remember to start the 2nd line below with a
' Response.Write.
' ##############################################
Response.Write " <tr>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if Cat_ID <> "" then
Response.Write "<a href=""default.asp"">" & getCurrentIcon(strIconFolder,"Show All Categories","hspace=""0""") & "</a>"
else
Response.Write " "
end if
Response.Write "</font></b></td>" & vbNewline & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if strGroupCategories = "1" then Response.Write(GROUPNAME) else Response.Write("Forum")

I get a syntax error on this bit:

</textarea></td>

Anything look wrong in this bit of code i added? File works fine without the mod bit in...

thanks in advance<
Visit : My personal site - Website Hosting - Register a domain

jgs
New Member

Netherlands
95 Posts
Posted - 26 January 2009 :  17:41:16  Show Profile
I think you're missing a response.write above the mod.

Here's mine:

end if
Response.Write  "        </tr>" & vbNewline & _
        "        <tr>" & vbNewline & _
        "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
        "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline
' ################# Poll Mod ##################### 
' Remember to remove the &_ code from the end of
' the line above.
%><!--#INCLUDE FILE="inc_poll.asp" --><%
' Remember to start the 2nd line below with a
' Response.Write.
' ##############################################
  Response.Write  "              <tr>" & vbNewline & _
        "                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if Cat_ID <> "" then
    Response.Write  "<a href=""default.asp"">" & getCurrentIcon(strIconFolder,"Toon alle Categoriën","hspace=""0""") & "</a>"
else
<
Info about my forum: http://www.govvd.nl/forumsoftware.htm list of Mods included.
Most of userinterface translated into Dutch.
Go to Top of Page

omega1
Junior Member

United Kingdom
127 Posts
Posted - 26 January 2009 :  17:56:03  Show Profile  Visit omega1's Homepage
hi, ive checked it, looks OK? i get this:

Microsoft VBScript compilation  error '800a03ea'

Syntax error

/forum/default.asp, line 308

</textarea></td>
^




this is the code from above where the mod is to be made, to slightly below...

else
	Response.Write	"</td>" & vbNewline
end if


Response.Write	"        </tr>" & vbNewline & _
		"        <tr>" & vbNewline & _
		"          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
		"            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline
' ################# Poll Mod ##################### 
' Remember to remove the &_ code from the end of
' the line above.
%><!--#INCLUDE FILE="inc_poll.asp" --><%
' Remember to start the 2nd line below with a
' Response.Write.
' ##############################################
	Response.Write	"              <tr>" & vbNewline & _
</textarea></td>
    <td width="50%" valign="top">this and surrounding code looks like:<br><br>
      <textarea readonly wrap="off"  class="result" rows="1" cols="20" name="result">	Response.Write	"</td>" & vbNewline & _
			"                <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>There are " & Posts & " Posts in " & Topics & " Topics and " & Users & " Users  </font></td>" & vbNewline & _
			"              </tr>" & vbNewline & _
			"            </table>" & vbNewline & _
			"          </td>" & vbNewline
else
	Response.Write	"</td>" & vbNewline
end if
Response.Write  "        </tr>" & vbNewline & _
        "        <tr>" & vbNewline & _
        "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
        "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline
' ################# Poll Mod ##################### 
' Remember to remove the &_ code from the end of
' the line above.
%><!--#INCLUDE FILE="inc_poll.asp" --><%
' Remember to start the 2nd line below with a
' Response.Write.
' ##############################################
  Response.Write  "              <tr>" & vbNewline & _
        "                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if Cat_ID <> "" then
	Response.Write	"<a href=""default.asp"">" & getCurrentIcon(strIconFolder,"Show All Categories","hspace=""0""") & "</a>"
else
	Response.Write 	" "
end if
Response.Write	"</font></b></td>" & vbNewline & _
		"                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if strGroupCategories = "1" then Response.Write(GROUPNAME) else Response.Write("Forum")

Response.Write	"</font></b></td>" & vbNewline & _
<
Visit : My personal site - Website Hosting - Register a domain
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 26 January 2009 :  18:08:08  Show Profile  Visit Webbo's Homepage
Remove the code in your file from end if (your third line down) to if Cat_ID and replace it with the following, between the red bits:

else
   Response.Write "</td>" & vbNewline
end if
Response.Write "        </tr>" & vbNewline & _
      "        <tr>" & vbNewline & _
      "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
      "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline
%><!--#INCLUDE FILE="inc_poll.asp" --><%
   Response.Write "              <tr>" & vbNewline & _
      "                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if Cat_ID <> "" then
<
Edited by - Webbo on 26 January 2009 18:11:45
Go to Top of Page

omega1
Junior Member

United Kingdom
127 Posts
Posted - 26 January 2009 :  18:14:03  Show Profile  Visit omega1's Homepage
hi webbo, yes, this has removed the error. i will continue with the rest of the pages and see if i can get it working

thanks to yourself and jgs for your time and help.<
Visit : My personal site - Website Hosting - Register a domain
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 26 January 2009 :  18:19:44  Show Profile  Visit Webbo's Homepage
You're welcome<
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