| Author |
 Topic  |
|
Freeman II
Junior Member
232 Posts |
 Posted - 16 June 2001 : 22:16:25
|
<%
'#################################################################################
'## Copyright (C) 2000 Michael Anderson and Pierre Gorissen
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<table border="0" width="100%">
<tr>
<td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<img src="<%=strImageURL %>icon_folder_open.gif" height=15 width=15 border="0"> <a href="default.asp">All Forums</a><br>
<img src="<%=strImageURL %>icon_bar.gif" height=15 width=15 border="0"><img src="<%=strImageURL %>icon_folder_open.gif" height=15 width=15 border="0"> <a href="admin_home.asp">Admin Section</a><br>
<img src="<%=strImageURL %>icon_blank.gif" height=15 width=15 border="0"><img src="<%=strImageURL %>icon_bar.gif" height=15 width=15 border="0"><img src="<%=strImageURL %>icon_folder_open_topic.gif" height=15 width=15 border="0"> Font/Table Color Code Configuration<br>
</font></td>
</tr>
</table>
<%
if Request.Form("Method_Type") = "Write_Configuration" then
'## Forum_SQL
strSql = "UPDATE " & strTablePrefix & "CONFIG "
strSql = strSql & " SET C_STRDEFAULTFONTFACE = '" & Request("strDefaultFontFace") & "', "
strSql = strSql & " C_STRDEFAULTFONTSIZE = '" & Request.Form("strDefaultFontSize") & "', "
strSql = strSql & " C_STRHEADERFONTSIZE = '" & Request.Form("strHeaderFontSize") & "', "
strSql = strSql & " C_STRFOOTERFONTSIZE = '" & Request.Form("strFooterFontSize") & "', "
strSql = strSql & " C_STRPAGEBGIMAGE = '" & Request.Form("strPageBGImage") & "', "
strSql = strSql & " C_STRPAGEBGCOLOR = '" & Request.Form("strPageBGColor") & "', "
strSql = strSql & " C_STRDEFAULTFONTCOLOR = '" & Request.Form("strDefaultFontColor") & "', "
strSql = strSql & " C_STRLINKCOLOR = '" & Request.Form("strLinkColor") & "', "
strSql = strSql & " C_STRLINKTEXTDECORATION = '" & Request.Form("strLinkTextDecoration") & "', "
strSql = strSql & " C_STRVISITEDLINKCOLOR = '" & Request.Form("strVisitedLinkColor") & "', "
strSql = strSql & " C_STRVISITEDTEXTDECORATION = '" & Request.Form("strVisitedTextDecoration") & "', "
strSql = strSql & " C_STRACTIVELINKCOLOR = '" & Request.Form("strActiveLinkColor") & "', "
strSql = strSql & " C_STRHOVERFONTCOLOR = '" & Request.Form("strHoverFontColor") & "', "
strSql = strSql & " C_STRHOVERTEXTDECORATION = '" & Request.Form("strHoverTextDecoration") & "', "
strSql = strSql & " C_STRHEADCELLCOLOR = '" & Request.Form("strHeadCellColor") & "', "
strSql = strSql & " C_STRHEADFONTCOLOR = '" & Request.Form("strHeadFontColor") & "', "
strSql = strSql & " C_STRCATEGORYCELLCOLOR = '" & Request.Form("strCategoryCellColor") & "', "
strSql = strSql & " C_STRCATEGORYFONTCOLOR = '" & Request.Form("strCategoryFontColor") & "', "
strSql = strSql & " C_STRFORUMFIRSTCELLCOLOR = '" & Request.Form("strForumFirstCellColor") & "', "
strSql = strSql & " C_STRFORUMCELLCOLOR = '" & Request.Form("strForumCellColor") & "', "
strSql = strSql & " C_STRALTFORUMCELLCOLOR = '" & Request.Form("strAltForumCellColor") & "', "
strSql = strSql & " C_STRFORUMFONTCOLOR = '" & Request.Form("strForumFontColor") & "', "
strSql = strSql & " C_STRFORUMLINKCOLOR = '" & Request.Form("strForumLinkColor") & "', "
strSql = strSql & " C_STRTABLEBORDERCOLOR = '" & Request.Form("strTableBorderColor") & "', "
strSql = strSql & " C_STRPOPUPTABLECOLOR = '" & Request.Form("strPopUpTableColor") & "', "
strSql = strSql & " C_STRPOPUPBORDERCOLOR = '" & Request.Form("strPopUpBorderColor") & "', "
strSql = strSql & " C_STRNEWFONTCOLOR = '" & Request.Form("strNewFontColor") & "', "
strSql = strSql & " C_STRTOPICWIDTHLEFT = '" & Request.Form("strTopicWidthLeft") & "', "
strSql = strSql & " C_STRTOPICNOWRAPLEFT = " & Request.Form("strTopicNoWrapLeft") & ", "
strSql = strSql & " C_STRTOPICWIDTHRIGHT = '" & Request.Form("strTopicWidthRight") & "', "
strSql = strSql & " C_STRTOPICNOWRAPRIGHT = " & Request.Form("strTopicNoWrapRight") & " "
strSql = strSql & " WHERE CONFIG_ID = 1"
' Response.Write(strSql)
' Response.End
my_Conn.Execute (strSql)
Application(strCookieURL & "ConfigLoaded") = ""
%>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Configuration Posted!</font></p>
<meta http-equiv="Refresh" content="2; URL=admin_home.asp">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Congratulations!</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="admin_home.asp">Back To Admin Home</font></a></p>
<% else %>
<form method="post" action="colortemplates.asp">
<table border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td bgcolor="<% =strPopUpBorderColor %>">
<% '########################################## %>
<table border="0" cellspacing="1" cellpadding="1" width="436">
<tr valign="top">
<td bgcolor="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>Color
Templates</b></font></td>
</tr>
<tr align="center" valign="top">
<td bgcolor="<% =strPopUpTableColor %>" align="right" width="50%">
<div align="center">
<div align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Template</b></font></div>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> </font></div>
</td>
<td bgcolor="<% =strPopUpTableColor %>" width="50%">
<div align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<select name="select">
<option value="MSCD1">Meat~Socks.com default</option>
<option value="default">Forum Default</option>
<option value="beige">Beige</option>
<option value="BPISG">BPISG</option>
<option value="darkstation">Dark Station</option>
<option value="green">Green</option>
<option value="grey">Grey</option>
<option value="redrose">Red Rose</option>
<option value="slide">Slide</option>
<option value="fantasy">Fantasy</option>
<option value="px">Px</option>
<option value="madonna">Madonna</option>
<option value="blacksun">Black Sun</option>
<option value="blacknblue">BlackNBlue</option>
</select>
</font></div>
</td>
</tr>
<tr align="center" valign="top">
<td bgcolor="<% =strPopUpTableColor %>" colspan="2"><font face="courier" size="<% =strDefaultFontSize %>">
<input type="hidden" name="template" value="Write">
<input type="submit" name="Submit" value=" Use Template ">
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<form action="admin_config_colors.asp" method="post" id="Form1" name="Form1">
<input type="hidden" name="Method_Type" value="Write_Configuration">
<table border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td bgcolor="<% =strPopUpBorderColor %>">
<% '################################## %>
<table border="0" cellspacing="1" cellpadding="1">
<tr valign="top">
<td bgcolor="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>Font/Table Color Code Configuration</b></font></td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Font Face Type:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strDefaultFontFace" size="25" value="<% if strDefaultFontFace <> "" then Response.Write(strDefaultFontFace) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_config_help.asp#fontfacetype')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Default Font Size:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>">
<select name="strDefaultFontSize">
<option<% if (lcase(strDefaultFontSize)="1") then Response.Write(" selected") %> value="1">
1 (8 pt)</option><option<% if (lcase(strDefaultFontSize)="2") then Response.Write(" selected") %> value="2">2 (10 pt)</option><option<% if (lcase(strDefaultFontSize)="3") then Response.Write(" selected") %> value="3">3 (12 pt)</option><option<% if (lcase(strDefaultFontSize)="4") then Response.Write(" selected") %> value="4">4 (14 pt)</option><option<% if (lcase(strDefaultFontSize)="5") then Response.Write(" selected") %> value="5">5 (18 pt)</option><option<% if (lcase(strDefaultFontSize)="6") then Response.Write(" selected") %> value="6">6 (24 pt)</option><option<% if (lcase(strDefaultFontSize)="7") then Response.Write(" selected") %> value="7">7 (36 pt)</option>
</select>
<a href="JavaScript:openWindow3('pop_config_help.asp#fontsize')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Header Font Size:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>">
<select name="strHeaderFontSize">
<option<% if (lcase(strHeaderFontSize)="1") then Response.Write(" selected") %> value="1">
1 (8 pt)</option><option<% if (lcase(strHeaderFontSize)="2") then Response.Write(" selected") %> value="2">2 (10 pt)</option><option<% if (lcase(strHeaderFontSize)="3") then Response.Write(" selected") %> value="3">3 (12 pt)</option><option<% if (lcase(strHeaderFontSize)="4") then Response.Write(" selected") %> value="4">4 (14 pt)</option><option<% if (lcase(strHeaderFontSize)="5") then Response.Write(" selected") %> value="5">5 (18 pt)</option><option<% if (lcase(strHeaderFontSize)="6") then Response.Write(" selected") %> value="6">6 (24 pt)</option><option<% if (lcase(strHeaderFontSize)="7") then Response.Write(" selected") %> value="7">7 (36 pt)</option>
</select>
<a href="JavaScript:openWindow3('pop_config_help.asp#fontsize')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Footer Font Size:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>">
<select name="strFooterFontSize">
<option<% if (lcase(strFooterFontSize)="1") then Response.Write(" selected") %> value="1">
1 (8 pt)</option><option<% if (lcase(strFooterFontSize)="2") then Response.Write(" selected") %> value="2">2 (10 pt)</option><option<% if (lcase(strFooterFontSize)="3") then Response.Write(" selected") %> value="3">3 (12 pt)</option><option<% if (lcase(strFooterFontSize)="4") then Response.Write(" selected") %> value="4">4 (14 pt)</option><option<% if (lcase(strFooterFontSize)="5") then Response.Write(" selected") %> value="5">5 (18 pt)</option><option<% if (lcase(strFooterFontSize)="6") then Response.Write(" selected") %> value="6">6 (24 pt)</option><option<% if (lcase(strFooterFontSize)="7") then Response.Write(" selected") %> value="7">7 (36 pt)</option>
</select>
<a href="JavaScript:openWindow3('pop_config_help.asp#fontsize')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Page Background Image:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strPageBGImage" size="20" value="<% if strPageBGImage <> "" then Response.Write(strPageBGImage) else '## do nothing%>">
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Base Background Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strPageBGColor" size="10" value="<% if strPageBGColor <> "" then Response.Write(strPageBGColor) else '## do nothing%>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strPageBGColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Default Font Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strDefaultFontColor" size="10" value="<% if strDefaultFontColor <> "" then Response.Write(strDefaultFontColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strDefaultFontColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Link Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strLinkColor" size="10" value="<% if strLinkColor <> "" then Response.Write(strLinkColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strLinkColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Link Decoration:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>">
<select name="strLinkTextDecoration">
<option<% if (lcase(strLinkTextDecoration)="none" or lcase(LinkTextDecoration)="none") then Response.Write(" selected") %>>
none</option><option<% if (lcase(strLinkTextDecoration)="blink" or lcase(LinkTextDecoration)="blink") then Response.Write(" selected") %>>blink</option><option<% if (lcase(strLinkTextDecoration)="line-through" or lcase(LinkTextDecoration)="line-through") then Response.Write(" selected") %>>line-through</option><option<% if (lcase(strLinkTextDecoration)="overline" or lcase(LinkTextDecoration)="overline") then Response.Write(" selected") %>>overline</option><option<% if (lcase(strLinkTextDecoration)="underline" or lcase(LinkTextDecoration)="underline") then Response.Write(" selected") %>>underline</option>
</select>
<a href="JavaScript:openWindow3('pop_config_help.asp#fontdecorations')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</font></td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Visited Link Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strVisitedLinkColor" size="10" value="<% if strVisitedLinkColor <> "" then Response.Write(strVisitedLinkColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Visited Link Decoration:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>">
<select name="strVisitedTextDecoration">
<option<% if (lcase(strVisitedTextDecoration)="none" or lcase(VisitedTextDecoration)="none") then Response.Write(" selected") %>>
none</option><option<% if (lcase(strVisitedTextDecoration)="blink" or lcase(VisitedTextDecoration)="blink") then Response.Write(" selected") %>>blink</option><option<% if (lcase(strVisitedTextDecoration)="line-through" or lcase(VisitedTextDecoration)="line-through") then Response.Write(" selected") %>>line-through</option><option<% if (lcase(strVisitedTextDecoration)="overline" or lcase(VisitedTextDecoration)="overline") then Response.Write(" selected") %>>overline</option><option<% if (lcase(strVisitedTextDecoration)="underline" or lcase(VisitedTextDecoration)="underline") then Response.Write(" selected") %>>underline</option>
</select>
<a href="JavaScript:openWindow3('pop_config_help.asp#fontdecorations')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Active Link Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strActiveLinkColor" size="10" value="<% if strActiveLinkColor <> "" then Response.Write(strActiveLinkColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strActiveLinkColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Hover Link Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strHoverFontColor" size="10" value="<% if strHoverFontColor <> "" then Response.Write(strHoverFontColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strHoverFontColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Hover Link Decoration:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>">
<select name="strHoverTextDecoration">
<option<% if (lcase(strHoverTextDecoration)="none" or lcase(HoverTextDecoration)="none") then Response.Write(" selected") %>>
none</option><option<% if (lcase(strHoverTextDecoration)="blink" or lcase(HoverTextDecoration)="blink") then Response.Write(" selected") %>>blink</option><option<% if (lcase(strHoverTextDecoration)="line-through" or lcase(HoverTextDecoration)="line-through") then Response.Write(" selected") %>>line-through</option><option<% if (lcase(strHoverTextDecoration)="overline" or lcase(HoverTextDecoration)="overline") then Response.Write(" selected") %>>overline</option><option<% if (lcase(strHoverTextDecoration)="underline" or lcase(HoverTextDecoration)="underline") then Response.Write(" selected") %>>underline</option>
</select>
<a href="JavaScript:openWindow3('pop_config_help.asp#fontdecorations')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Header Background Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strHeadCellColor" size="10" value="<% if strHeadCellColor <> "" then Response.Write(strHeadCellColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strHeadCellColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Header Font Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strHeadFontColor" size="10" value="<% if strHeadFontColor <> "" then Response.Write(strHeadFontColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strHeadFontColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Category Background Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strCategoryCellColor" size="10" value="<% if strCategoryCellColor <> "" then Response.Write(strCategoryCellColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strCategoryCellColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Category Font Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strCategoryFontColor" size="10" value="<% if strCategoryFontColor <> "" then Response.Write(strCategoryFontColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strCategoryFontColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>First Cell Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strForumFirstCellColor" size="10" value="<% if strForumFirstCellColor <> "" then Response.Write(strForumFirstCellColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strForumFirstCellColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>First Alternating Cell Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strForumCellColor" size="10" value="<% if strForumCellColor <> "" then Response.Write(strForumCellColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strForumCellColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Second Alternating Cell Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strAltForumCellColor" size="10" value="<% if strAltForumCellColor <> "" then Response.Write(strAltForumCellColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strAltForumCellColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>In Forum Font Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strForumFontColor" size="10" value="<% if strForumFontColor <> "" then Response.Write(strForumFontColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strForumFontColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>In Forum Link Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strForumLinkColor" size="10" value="<% if strForumLinkColor <> "" then Response.Write(strForumLinkColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strForumLinkColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Table Border Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strTableBorderColor" size="10" value="<% if strTableBorderColor <> "" then Response.Write(strTableBorderColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strTableBorderColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Pop-Up Table Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strPopUpTableColor" size="10" value="<% if strPopUpTableColor <> "" then Response.Write(strPopUpTableColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strPopUpTableColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Pop-Up Table Border Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strPopUpBorderColor" size="10" value="<% if strPopUpBorderColor <> "" then Response.Write(strPopUpBorderColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strPopUpBorderColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>New Font Color:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strNewFontColor" size="10" value="<% if strNewFontColor <> "" then Response.Write(strNewFontColor) else '## do nothing %>">
<a href="JavaScript:openWindow3('pop_color.asp?box=strNewFontColor')"><img src="icon_color.gif" border="0"></a>
<a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgcolor="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>Table Size Configuration</b></font></td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Topic Left Column Width:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strTopicWidthLeft" size="5" value="<% if strTopicWidthLeft <> "" then Response.Write(strTopicWidthLeft) else Response.Write("100") %>">
<a href="JavaScript:openWindow3('pop_config_help.asp#columnwidth')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Topic NOWRAP Left:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
On: <input type="radio" class="radio" name="strTopicNoWrapLeft" value="1" <% if (lcase(strTopicNoWrapLeft) <> "0" or lcase(TopicNoWrapLeft) <> "0") then Response.Write("checked")%>>
Off: <input type="radio" class="radio" name="strTopicNoWrapLeft" value="0" <% if (lcase(strTopicNoWrapLeft) = "0" or lcase(TopicNoWrapLeft) = "0") then Response.Write("checked")%>>
<a href="JavaScript:openWindow3('pop_config_help.asp#nowrap')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</font></td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Topic Right Column Width:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strTopicWidthRight" size="5" value="<% if strTopicWidthRight <> "" then Response.Write(strTopicWidthRight) else Response.Write("100%") %>">
<a href="JavaScript:openWindow3('pop_config_help.asp#columnwidth')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Topic NOWRAP Right:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
On: <input type="radio" class="radio" name="strTopicNoWrapRight" value="1" <% if (lcase(strTopicNoWrapRight) = "1" or lcase(TopicNoWrapRight) = "1") then Response.Write("checked")%>>
Off: <input type="radio" class="radio" name="strTopicNoWrapRight" value="0" <% if (lcase(strTopicNoWrapRight) <> "1" or lcase(TopicNoWrapRight) <> "1") then Response.Write("checked")%>>
<a href="JavaScript:openWindow3('pop_config_help.asp#nowrap')"><img src="<%= strImageUrl %>icon_smile_question.gif" border="0"></a>
</font></td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" colspan="2" align="center"><input type="submit" value="Submit New Config" id="submit1" name="submit1"> <input type="reset" value="Reset Old Values" id="reset1" name="reset1"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</font>
<% end if %>
<!--#INCLUDE file="inc_footer.asp" -->
<%
Else
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=scriptname"
End IF
%>
|
 |
|
|
Freeman II
Junior Member
232 Posts |
Posted - 16 June 2001 : 22:21:07
|
thats the file, save as admin_config_colors.asp
it's for Podge's color mod
good luck 
if you need any help feel free to ask me
|
|
|
|
Freeman II
Junior Member
232 Posts |
|
|
XavierSlater
Junior Member
United Kingdom
137 Posts |
Posted - 17 June 2001 : 19:23:12
|
Is it possible that this MOD be incorporated with the Personalisation MOD, so Templates can be user selectable from their My.ASP page?
Or have I missed something thats already being worked on?
|
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 17 June 2001 : 20:24:45
|
quote:
HuwR, you said you updated the files with the code mfindlay provided, but I'm still getting the hardcoded list of templates when I downloaded the mod.
sorry, uploaded the file, but there was a typo, so it didn't overwrite, fixed now.
|
|
|
|
big9erfan
Average Member
540 Posts |
|
|
rick7165
Senior Member
USA
1094 Posts |
Posted - 18 June 2001 : 09:05:39
|
Ok... I try to change the themes and I get this error:
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/forums/admin_colour_templates.asp, line 34
Thanks,
Rick
Test Site
www.eastpasco.com
HuwR's SR4 release. Colors and Graphic scheme done by Richard Kinser. |
|
|
|
simonduz
Junior Member
161 Posts |
Posted - 18 June 2001 : 12:48:45
|
Anybody use BG images on their sites
There is a field in my old admin_config_colors.asp for changing the BG image for all pages.
I tried to get this to work with the new templates mod by adding a new column in the DB and naming it C_STRPAGEBGIMAGE.
Then added these lines from the old config.asp file.
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Page Background Image:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strPageBGImage" size="20" value="<% if strPageBGImage <> "" then Response.Write(strPageBGImage) else '## do nothing%>">
</td>
</tr>
Well no such luck, it won't save the path for the BG image.
And unless I remove the path from the Forum_Config DB the image is consistent with all templates. Has anybody been able to save BG images for their templates?
http://easyromantic.webbhost.net -[test site]-
yada, yada. |
|
|
|
big9erfan
Average Member
540 Posts |
Posted - 18 June 2001 : 12:58:11
|
Did you add that field to the insert and retrieve SQL calls? That's my guess as to what you are missing.
http://www.ugfl.net/forums |
|
|
|
simonduz
Junior Member
161 Posts |
Posted - 18 June 2001 : 13:29:41
|
quote:
Did you add that field to the insert and retrieve SQL calls?
DUH!! Thanks for catching that.
Still have one small problem and don't understand why.
The image path is saving to the Forum_Config and not the Forum_Colours and unless I remove the path from the Forum_Config DB each time the image is consistent with all templates.
I added this line below Font Size
strSql = strSql & " C_STRPAGEBGIMAGE = '" & Request.Form("strPageBGImage") & "', "
All other variables save and load correctly.
Any ideas 
http://easyromantic.webbhost.net -[test site]-
yada, yada. |
|
|
|
big9erfan
Average Member
540 Posts |
Posted - 18 June 2001 : 13:44:21
|
Where did you add the SQL for saving the form info? It should be in admin_colour_templates ( as far as I know, but Huwr may be able to better answer )
http://www.ugfl.net/forums |
|
|
|
simonduz
Junior Member
161 Posts |
Posted - 18 June 2001 : 14:37:54
|
I have a feeling this is not as easy as I had anticipated.
I just can't add stuff to the admin_colour_templates.asp file.
Errors start occuring like 'C_STRPAGEBGIMAGE can't be a zero length  '
with out the devil head. This was just to show disgust with my ASP knowledge
So further help is needed if anybody wants to step up.
http://easyromantic.webbhost.net -[test site]-
yada, yada. |
|
|
|
hessjm
Starting Member
USA
1 Posts |
Posted - 18 June 2001 : 16:44:35
|
quote:
I have a feeling this is not as easy as I had anticipated.
I just can't add stuff to the admin_colour_templates.asp file.
Errors start occuring like 'C_STRPAGEBGIMAGE can't be a zero length '
with out the devil head. This was just to show disgust with my ASP knowledge
So further help is needed if anybody wants to step up.
http://easyromantic.webbhost.net -[test site]-
yada, yada.
If you added the field to the database(Access 97 or 2000), make sure that you set the properties to allow zero length fields for c_strpagebgimage and any others that may not always be filled in.
John Hess
hessjm@bitstream.net
|
|
|
|
Freeman II
Junior Member
232 Posts |
Posted - 24 June 2001 : 17:35:08
|
Suggestion for new color template MOD
Features:
- Save/Delete Templates using DB
- Display current Template
- color palette (pop_color.asp)
|
|
|
|
Freeman II
Junior Member
232 Posts |
Posted - 02 July 2001 : 01:34:30
|
hmm
anybody still working on this mod?
|
|
|
|
Topic |
|
Topic Locked
