<form method="post" action="admin_colour_templates.asp" name="formUseTemplate">
<table border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td bgcolor="<% =strPopUpBorderColor %>">
  <table border="0" cellspacing="1" cellpadding="4" 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" valign="middle" width="50%" nowrap> 
  <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Template:</b></font>
  </td>
  <td bgcolor="<% =strPopUpTableColor %>" width="50%" nowrap> 
  <div align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> 
    <select name="select">
	
	<!-- BEGIN COLORMOD TEMPLATE -->
<%
	' Load the listbox with the available templates
	'Select the existing entries
	On Error Resume Next
	strSql = "SELECT " & strTablePrefix & "COLOURS.C_TEMPLATE " 
	strSql = strSql & " FROM " & strTablePrefix & "COLOURS ORDER BY C_TEMPLATE"
	set rs = my_Conn.execute (strSql)
	
	
	
	do until rs.EOF
		'Response.Write " <option value=""" & rs("C_TEMPLATE") & """>" & rs("C_TEMPLATE") & "</option>" & vbCrLf
		Response.Write " <option value=""" & trim(rs("C_TEMPLATE")) & """"
		
		if LCase(rs("C_TEMPLATE")) = LCase(strCurrentTemplate) then Response.Write " selected "
		
		Response.Write ">" & rs("C_TEMPLATE") & "</option>" & vbCrLf
		rs.movenext
	loop
	rs.Close
%>
	<!-- END COLORMOD TEMPLATE -->
	
    </select>
    </font> <input type="submit" name="Submit" value=" Use "></div>
	<input type="hidden" name="template" value="Write">
  

  </td></form>
  </tr>
  <tr align="center" valign="top"><form method="post" action="admin_colour_templates.asp" name="formSaveTemplate"> 
  <td bgcolor="<% =strPopUpTableColor %>" align="right" valign="middle"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
  	<b>Save As...</b>
  </font></td>
<td bgcolor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
  	<input type="text" name="newtemplate" value="(Type Name)" size="13">
	<input type="hidden" name="template" value="Save">
	<input type="submit" name="Submit" value=" Save ">
  </font></td>
  </tr>
  <tr>
  <td bgcolor="<% =strPopUpTableColor %>" valign="middle" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
  	<b>Import/Export Themes:</b>
  </font></td>
  <td bgcolor="<% =strPopUpTableColor %>" align="center">
   <a href="admin_color_impexp.asp"><b><font face="Arial">Import/Export</font></b></a> 
   </td>
  </tr>
  </table>
  </td>
  </tr>
  </table>
</form>
<!-- Replace your existing form in admin_config_colors.asp with this form        -->
<!-- Each row with a color definition contains an additional column that dislays -->
<!-- in the currently selected color upon page entry                             -->

quote:

---

Originally posted by @tomic

Hmmmmmmmmm, that would be cool. It might be nice to do this for the font sizes as well. How would anyone suggest doing this? You would want the text decoration to decorate your actual font selection and with the actual colors which makes it harder. An easy way would just be to have a few images to replace but you couldn't have the text decoration show the font/color etc.

@tomic

---

quote:

---

Originally posted by pweighill

Has anyone ever done a Theme mod where you could store and use different colour/font themes?
With options to import/export them from/to text files?

---