<%@LANGUAGE="VBSCRIPT"%> <% '---------- Computer Postcards -------------------------------- 'Copyright (c) 2002-2003 Jackie Johnston, ComputerPostcards.com 'All Rights Reserved. 'Version: 2.0 '-------------------------------------------------------------- %> <% set rsPreferences = Server.CreateObject("ADODB.Recordset") rsPreferences.ActiveConnection = MM_connCards_STRING rsPreferences.Source = "SELECT * FROM preferences" rsPreferences.CursorType = 0 rsPreferences.CursorLocation = 2 rsPreferences.LockType = 3 rsPreferences.Open() rsPreferences_numRows = 0 %> <% set rsText = Server.CreateObject("ADODB.Recordset") rsText.ActiveConnection = MM_connCards_STRING rsText.Source = "SELECT * FROM postcardstext" rsText.CursorType = 0 rsText.CursorLocation = 2 rsText.LockType = 3 rsText.Open() rsText_numRows = 0 %> <%=(rsPreferences.Fields.Item("headhtml").Value)%> " bgcolor="<%=(rsPreferences.Fields.Item("bkgcolor").Value)%>" text="<%=(rsPreferences.Fields.Item("textcolor").Value)%>" link="<%=(rsPreferences.Fields.Item("linkcolor").Value)%>" vlink="<%=(rsPreferences.Fields.Item("vlinkcolor").Value)%>" alink="<%=(rsPreferences.Fields.Item("alinkcolor").Value)%>" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" <%=(rsPreferences.Fields.Item("bodyhtml").Value)%>> <%=(rsPreferences.Fields.Item("tophtml").Value)%>

 

 

" size="+2"><%=(rsText.Fields.Item("sub_headline").Value)%>
" size="-1"><%=(rsText.Fields.Item("sub_explain").Value)%>	<%=(rsPreferences.Fields.Item("subscribehtml").Value)%><%=(rsPreferences.Fields.Item("cancelhtml").Value)%>

 

 

<%=(rsPreferences.Fields.Item("bottomhtml").Value)%> <% rsPreferences.Close() %> <% rsText.Close() %>