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, changing color of featured poll		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Zenfor
Junior Member

372 Posts
Posted - 15 August 2015 :  07:00:03  Show Profile  Reply with Quote
How would I change the dark blue background color for the featured poll? When I include a link, it gets blocked by the background. I would like to change the color to something light or possibly have no color. Thank you!.

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 15 August 2015 :  08:14:57  Show Profile
Look in "inc_poll.asp", appx lines 88-89. Change the bit in red.

			Response.Write " valign=""middle"" bgcolor=""" & strHeadCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Featured Poll</b></font>" & vbNewline & _
					"		   <font color=""" & strHeadFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>"
Go to Top of Page

Zenfor
Junior Member

372 Posts
Posted - 15 August 2015 :  10:54:34  Show Profile
I think the issue is not the background color but a little deeper, I noticed the featured poll block looks different for those not logged in. The Featured Poll header wording looks good but the wording is centerd and not left justified. Here is how it looks not logged in:
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 15 August 2015 :  15:26:58  Show Profile
Well the first example is shown to people who have already voted, therefore the provided link won't do any good. Do you want the second example left-justified? If so, change the word "center" to "left" in this line (appx 117):

					"				<td align=""center"" valign=""middle"""


By the way, the lines I provided earlier were in error. The actual code for displaying the results of votes is the block 274-304:


				For nCount = 1 To 15
					If trim(vAnswers(nCount)) <> "" Then
						'nThisVal holds the width of each image for each answer.
						nThisVal = FormatNumber(vCount(nCount)/nMaxValue * nMaxWidth,0)
					   Response.Write "	<tr>" & vbNewline & _
							"		<td width=""30%""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & formatStr(vAnswers(nCount)) & "</font></td>" & vbNewline & _
							"		<td nowrap><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><img src=""" & strImageURL & "bar.gif"" width=""" & nThisVal & """ height=""10"">  [" & vPercent(nCount) & "%]</font></td>" & vbNewline & _
							"		<td nowrap width=""10%""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & vCount(nCount) & " votes</font></td>" & vbNewline & _
							"	</tr>" & vbNewline
					End If
				Next
				
				Response.Write "		</table>" & vbNewline & _
					   "		</td>" & vbNewline & _
						"	  </tr>" & vbNewline & _
						"	  <tr>" & vbNewline & _
						"		<td align=""center"" width=""60%""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """><b>Total Votes:</b> " & nTotal & " counted<br>" & vbNewline & _
						"		<b>Last Vote:</b>" & vbNewline
				if cint(nTotal) > 0 then Response.Write(ChkDate(Last_Vote, " ", true)) else Response.Write("never")
				'if cint(nTotal) > 0 then Response.Write(ChkTime(Last_Vote)) 
				Response.Write "</font></td>" & vbNewline & _
						"		<td align=""left"" width=""40%"">" & vbNewline
				if strGfxButtons <> "0" then
					Response.Write "<a href=""topic.asp?TOPIC_ID=" & pTopic_id & "&results=1"">" & getCurrentIcon(strViewComments, "View users comments about this poll", "") & "</a>" & vbNewline
				else
					Response.Write "<a href=""topic.asp?TOPIC_ID=" & pTopic_id & "&results=1""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>View Comments</font></a>" & vbNewline
 				end if
				Response.Write "	</td>" & vbNewline & _
						"  </tr>" & vbNewline & _
						"	</table>" & vbNewline
			end if
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.24 seconds. Powered By: Snitz Forums 2000 Version 3.4.07