<%@LANGUAGE="VBSCRIPT"%>
<%
'---------- Computer Postcards --------------------------------
'Copyright (c) 2002-2003 Jackie Johnston, ComputerPostcards.com
'All Rights Reserved.
'Version: 2.0.4
'--------------------------------------------------------------
%>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
  Session.Abandon
  MM_logoutRedirectPage = "subscriberlogin.asp"
  ' redirect with URL parameters (remove the "MM_Logoutnow" query param).
  if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
  If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
    MM_newQS = "?"
    For Each Item In Request.QueryString
      If (Item <> "MM_Logoutnow") Then
        If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
        MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
      End If
    Next
    if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
  End If
  Response.Redirect(MM_logoutRedirectPage)
End If
%>
<!--#include file="Connections/connCards.asp" -->
<%
If (Request.Cookies("cardsenderemail") = "") Then
	Response.Cookies("cardsenderemail") = Request.Form("cardsenderemail")
	Response.Cookies("cardsenderemail").Expires = Date + 365
End If
%>
<%
If (Request.Cookies("cardsendername") = "") Then
	Response.Cookies("cardsendername") = Request.Form("cardsendername")
	Response.Cookies("cardsendername").Expires = Date + 365
End If	
%>
<%
Dim rsPhoto__MMColParam
rsPhoto__MMColParam = "1"
if (Request.QueryString("id") <> "") then rsPhoto__MMColParam = Request.QueryString("id")
%>
<%
set rsPhoto = Server.CreateObject("ADODB.Recordset")
rsPhoto.ActiveConnection = MM_connCards_STRING
rsPhoto.Source = "SELECT * FROM photos WHERE photoid = " + Replace(rsPhoto__MMColParam, "'", "''") + ""
rsPhoto.CursorType = 0
rsPhoto.CursorLocation = 2
rsPhoto.LockType = 3
rsPhoto.Open()
rsPhoto_numRows = 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 rsPostcardsText = Server.CreateObject("ADODB.Recordset")
rsPostcardsText.ActiveConnection = MM_connCards_STRING
rsPostcardsText.Source = "SELECT * FROM postcardstext"
rsPostcardsText.CursorType = 0
rsPostcardsText.CursorLocation = 2
rsPostcardsText.LockType = 3
rsPostcardsText.Open()
rsPostcardsText_numRows = 0
%>
<%
Dim rsSubscriber__MMColParam
rsSubscriber__MMColParam = "1"
if (Session("MM_Username") <> "") then rsSubscriber__MMColParam = Session("MM_Username")
%>
<%
set rsSubscriber = Server.CreateObject("ADODB.Recordset")
rsSubscriber.ActiveConnection = MM_connCards_STRING
rsSubscriber.Source = "SELECT * FROM subscribers WHERE subscribe_username = '" + Replace(rsSubscriber__MMColParam, "'", "''") + "'"
rsSubscriber.CursorType = 0
rsSubscriber.CursorLocation = 2
rsSubscriber.LockType = 3
rsSubscriber.Open()
rsSubscriber_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connCards_STRING
Recordset1.Source = "SELECT * FROM optin WHERE optin_active = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>

<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<HTML>
<HEAD>
<%=(rsPreferences.Fields.Item("headhtml").Value)%> 
<%=(rsPreferences.Fields.Item("headhtml").Value)%> 
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE><%=(rsPostcardsText.Fields.Item("BASO_greetingtitle").Value)%></TITLE>
<% Session("Photo_ID") = (rsPhoto.Fields.Item("photoid").Value) %>
<META http-equiv="imagetoolbar" content="no">
<SCRIPT language="JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function tmt_regExpValidator(f,re,eMsg,ru,r){
	var myErr="";var fv=MM_findObj(f).value;var rex=new RegExp(unescape(re));
	var t=eval(ru+rex.test(fv));if(r){if(fv.length<=0||!t){alert(unescape(eMsg));myErr+="eMsg";}}
	else if(fv.length>0&&!t){alert(unescape(eMsg));myErr+="eMsg";}document.MM_returnValue=(myErr=="");
}
//-->
</SCRIPT>
<SCRIPT runat=SERVER language=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>
</HEAD>
<BODY background="<%=(rsPreferences.Fields.Item("pref_background").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)%> 
<% If (rsPreferences.Fields.Item("subscriptions").Value) = (1) Then 'script %>
<BR>
<BR>
<TABLE border="0" cellspacing="0" cellpadding="10">
  <TR align="left" valign="bottom"> 
	<% If rsSubscriber.EOF And rsSubscriber.BOF Then %>
	<TD><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><A href="subscriberlogin.asp"><%=(rsPostcardsText.Fields.Item("sub_signin").Value)%></A></FONT>&nbsp;|&nbsp;<FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><A href="subscribe.asp"><%=(rsPostcardsText.Fields.Item("sub_joinnow").Value)%></A></FONT></TD>
	<% End If ' end rsSubscriber.EOF And rsSubscriber.BOF %>
	<% If Not rsSubscriber.EOF Or Not rsSubscriber.BOF Then %>
	<TD><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"> 
	  <SCRIPT language="JavaScript">
//CN Insert Greeting Ver 1.0.2 - CEA CrystalNet
CN_Now = new Date();
localtime = CN_Now.toString();
CN_Hours = CN_Now.getHours();
if (CN_Hours < 12) {
	document.write("<%=(rsPostcardsText.Fields.Item("sub_good1").Value)%>");
} else {
	if (CN_Hours >= 12 && CN_Hours < 17)  {
			document.write("<%=(rsPostcardsText.Fields.Item("sub_good2").Value)%>");
	} else {
		if (CN_Hours >= 17) {
			document.write("<%=(rsPostcardsText.Fields.Item("sub_good3").Value)%>");
			} else {
  			document.write("<%=(rsPostcardsText.Fields.Item("sub_good4").Value)%>");
		}
	}
}
</SCRIPT>
	  &nbsp;<%=(rsSubscriber.Fields.Item("subscribe_name").Value)%><BR>
	  (<%=(rsPostcardsText.Fields.Item("sub_ifnotu").Value)%>&nbsp;<A href="<%=MM_Logout%>"><%=(rsPostcardsText.Fields.Item("sub_click").Value)%></A>.)</FONT></TD>
	<% End If ' end Not rsSubscriber.EOF Or NOT rsSubscriber.BOF %>
	<% If Not rsSubscriber.EOF Or Not rsSubscriber.BOF Then %>
	<TD><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><A href="subscriberprofile.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsSubscriber.Fields.Item("subscribe_id").Value %>"><%=(rsPostcardsText.Fields.Item("sub_profile").Value)%></A></FONT></TD>
	<% End If ' end Not rsSubscriber.EOF Or NOT rsSubscriber.BOF %>
  </TR>
</TABLE>
<% End If ' end If (rsPreferences.Fields.Item("subscriptions").Value) = (1) script %>
<BR>
<TABLE border="0" cellspacing="0" cellpadding="10" align="center">
  <TR valign="bottom" align="center"> 
	<TD><B><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"> 
	  <% If (((rsPreferences.Fields.Item("subscriptions").Value) = (1)) AND (Not rsSubscriber.EOF Or Not rsSubscriber.BOF)) OR (rsPreferences.Fields.Item("subscriptions").Value) = (0)Then %>
	  <A href="#personalize" onFocus="if(this.blur)this.blur()"><%=(rsPostcardsText.Fields.Item("BASO_personalize").Value)%></A> 
	  <% End If %>
	  </FONT></B></TD>
	<TD><B><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"> 
	  <% If ((rsPreferences.Fields.Item("subscriptions").Value) = (1)) AND (rsSubscriber.EOF And rsSubscriber.BOF) Then %>
	  <%=(rsPostcardsText.Fields.Item("sub_mustbe").Value)%><BR>
	  <A href="subscribe.asp"><%=(rsPostcardsText.Fields.Item("sub_joinnow").Value)%></A> 
	  <% End If %>
	  </FONT></B></TD>
	<TD><B><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><A href="index.asp" onFocus="if(this.blur)this.blur()"><%=(rsPostcardsText.Fields.Item("BASO_choose").Value)%></A></FONT></B></TD>
  </TR>
</TABLE>

<DIV align="center"><BR>
</DIV>
<TABLE width="100%" border="0" cellspacing="0" cellpadding="0">
  <TR> 
	<TD width="50%">&nbsp; </TD>
	<TD  align="center"> 
	  <TABLE border="0" cellspacing="0" cellpadding="3" align="center">
		<TR> 
		  <TD align="center" valign="middle"> 
			<TABLE border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="<%=(rsPreferences.Fields.Item("cardcolor").Value)%>">
			  <% If (rsPreferences.Fields.Item("pref_borders").Value) = (1) Then 'script %>
			  <TR> 
				<TD height="23" width="23" align="right" valign="bottom"><IMG src="images/lefttopcorner.gif" width="23" height="23" galleryimg="no"></TD>
				<TD background="images/topborder.gif" height="23" valign="bottom"></TD>
				<TD height="23" width="35" align="left" valign="bottom"><IMG src="images/righttopcorner.gif" width="35" height="23" galleryimg="no"></TD>
			  </TR>
			  <% End If ' end If (rsPreferences.Fields.Item("pref_borders").Value) = (1) script %>
			  <TR> 
				<% If (rsPreferences.Fields.Item("pref_borders").Value) = (1) Then 'script %>
				<TD width="23" background="images/leftborder.gif"></TD>
				<% End If ' end If (rsPreferences.Fields.Item("pref_borders").Value) = (1) script %>
				<TD align="center"> 
				  <TABLE border="0" cellspacing="0" cellpadding="20" align="center" bgcolor="<%=(rsPreferences.Fields.Item("cardcolor").Value)%>">
					<TR> 
					  <TD align="center" valign="top"> 
						<TABLE border="0" cellspacing="0" cellpadding="0">
						  <TR> 
							<TD align="center"> 
							  <% If (rsPhoto.Fields.Item("photoflash").Value) = (1) Then 'script %>
							  <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="<%=(rsPhoto.Fields.Item("photowidth").Value)%>" height="<%=(rsPhoto.Fields.Item("photoheight").Value)%>">
								<PARAM name="movie" value="images/<%=(rsPhoto.Fields.Item("photourl").Value)%>">
								<EMBED src="images/<%=(rsPhoto.Fields.Item("photourl").Value)%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="<%=(rsPhoto.Fields.Item("photowidth").Value)%>" height="<%=(rsPhoto.Fields.Item("photoheight").Value)%>">
								</EMBED> 
							  </OBJECT> 
							  <% End If ' end If (rsPhoto.Fields.Item("photoflash").Value) = (1) script %>
							  <% If (rsPhoto.Fields.Item("photoflash").Value) = (0) Then 'script %>
							  <A href="javascript:;" onMouseDown="ImageClick();" onFocus="if(this.blur)this.blur()"> 
							  <SCRIPT language="JavaScript">
function ImageClick(){ 
       alert("<%=(rsPostcardsText.Fields.Item("BASO_errorcopyright").Value)%> <%=(rsPhoto.Fields.Item("copyright").Value)%>."); 
       return false; 
       }

</SCRIPT>
							  <IMG src="images/<%=(rsPhoto.Fields.Item("photourl").Value)%>" border="0"></A> 
							  <% End If ' end If (rsPhoto.Fields.Item("photoflash").Value) = (0) script %>
							</TD>
						  </TR>
						  <TR> 
							<TD align="right" valign="top"><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2" color="<%=(rsPreferences.Fields.Item("cardtextcolor").Value)%>"> 
							  <% If (rsPhoto.Fields.Item("copyrightlink").Value) > ("http://") Then 'script %>
							  <A href="<%=(rsPhoto.Fields.Item("copyrightlink").Value)%>" target="_blank"> 
							  <%=(rsPhoto.Fields.Item("copyright").Value)%> </A> 
							  <% End If ' end If (rsPhoto.Fields.Item("copyrightlink").Value) > ("http://") script %>
							  <% If (rsPhoto.Fields.Item("copyrightlink").Value) <= ("http://") Then 'script %>
							  <%=(rsPhoto.Fields.Item("copyright").Value)%> 
							  <% End If ' end If (rsPhoto.Fields.Item("copyrightlink").Value) <= ("http://") script %>
							  </FONT></TD>
						  </TR>
						</TABLE>
					  </TD>
					  <% If (rsPhoto.Fields.Item("photowidth").Value) <= (rsPhoto.Fields.Item("photoheight").Value) Then %>
					  <TD align="center" valign="top"> 
							  <% If (rsPreferences.Fields.Item("pref_stamp").Value) <> ("") Then 'script %>
							  <DIV align="right"><A href="<%=(rsPreferences.Fields.Item("pref_stamplink").Value)%>" onFocus="if(this.blur)this.blur()"><IMG src="<%=(rsPreferences.Fields.Item("pref_stamp").Value)%>" border="0"></A></DIV>
							  <% End If ' end If (rsPreferences.Fields.Item("pref_stamp").Value) <> ("") script %>
						<H2><FONT color="<%=(rsPreferences.Fields.Item("cardtextcolor").Value)%>" face="<%=(rsPreferences.Fields.Item("font").Value)%>"><%=(rsPostcardsText.Fields.Item("BASO_title").Value)%></FONT></H2>
						<P align="left"><FONT color="<%=(rsPreferences.Fields.Item("cardtextcolor").Value)%>" face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-1"><%=(rsPostcardsText.Fields.Item("BASO_dearsender").Value)%><BR>
						  </FONT><FONT color="<%=(rsPreferences.Fields.Item("cardtextcolor").Value)%>" face="<%=(rsPreferences.Fields.Item("font").Value)%>"> 
						  </FONT><FONT color="<%=(rsPreferences.Fields.Item("cardtextcolor").Value)%>"> 
						  <IMG src="images/transparent.gif" width="175" height="1"></FONT> 
						</P>
					  </TD>
					  <% End If ' end If (rsPhoto.Fields.Item("photowidth").Value) <= (rsPhoto.Fields.Item("photoheight").Value) %>
					</TR>
					<TR align="center"> 
					  <% If (rsPhoto.Fields.Item("photoheight").Value) < (rsPhoto.Fields.Item("photowidth").Value) Then %>
					  <TD valign="middle" colspan="2"> 
						<TABLE width="<%=(rsPhoto.Fields.Item("photowidth").Value)%>" border="0" cellspacing="0" cellpadding="0">
						  <TR> 
							<TD> 
							  <% If (rsPreferences.Fields.Item("pref_stamp").Value) <> ("") Then 'script %>
							  <DIV align="right"><A href="<%=(rsPreferences.Fields.Item("pref_stamplink").Value)%>" onFocus="if(this.blur)this.blur()"><IMG src="<%=(rsPreferences.Fields.Item("pref_stamp").Value)%>" border="0"></A></DIV>
							  <% End If ' end If (rsPreferences.Fields.Item("pref_stamp").Value) <> ("") script %>
							  <H2 align="center"><FONT color="<%=(rsPreferences.Fields.Item("cardtextcolor").Value)%>" face="<%=(rsPreferences.Fields.Item("font").Value)%>"><%=(rsPostcardsText.Fields.Item("BASO_title").Value)%></FONT></H2>
							  <P align="left"><FONT color="<%=(rsPreferences.Fields.Item("cardtextcolor").Value)%>" face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-1"><%=(rsPostcardsText.Fields.Item("BASO_dearsender").Value)%><BR>
								</FONT></P>
							</TD>
						  </TR>
						</TABLE>
					  </TD>
					  <% End If ' end If (rsPhoto.Fields.Item("photoheight").Value) < (rsPhoto.Fields.Item("photowidth").Value) %>
					</TR>
				  </TABLE>
				  <FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><%=(rsPostcardsText.Fields.Item("BASO_senton").Value)%>&nbsp; 
				  <% If (rsPostcardsText.Fields.Item("BASO_dateformat").Value) = (1) Then 'script %>
				  <%= DoDateTime( Now() , 2, 1033) %> 
				  <% End If ' end If (rsPostcardsText.Fields.Item("BASO_dateformat").Value) = (1) script %>
				  <% If (rsPostcardsText.Fields.Item("BASO_dateformat").Value) = (2) Then 'script %>
				  <%= DoDateTime( Now() , 2, 2057) %> 
				  <% End If ' end If (rsPostcardsText.Fields.Item("BASO_dateformat").Value) = (2) script %>
				  <% If (rsPostcardsText.Fields.Item("BASO_dateformat").Value) = (3) Then 'script %>
				  <%= DoDateTime( Now() , 2, 7177) %> 
				  <% End If ' end If (rsPostcardsText.Fields.Item("BASO_dateformat").Value) = (3) script %>
				  &nbsp;<%=(rsPostcardsText.Fields.Item("BASO_from").Value)%>&nbsp;<%=(rsPostcardsText.Fields.Item("BASO_you").Value)%>&nbsp;<%=(rsPostcardsText.Fields.Item("BASO_to").Value)%>&nbsp;<%=(rsPostcardsText.Fields.Item("BASO_them").Value)%></FONT></TD>
				<% If (rsPreferences.Fields.Item("pref_borders").Value) = (1) Then 'script %>
				<TD width="35" background="images/rightborder.gif"></TD>
				<% End If ' end If (rsPreferences.Fields.Item("pref_borders").Value) = (1) script %>
			  </TR>
			  <% If (rsPreferences.Fields.Item("pref_borders").Value) = (1) Then 'script %>
			  <TR> 
				<TD height="35" width="23" align="right" valign="top"><IMG src="images/leftbottomcorner.gif" width="23" height="35" galleryimg="no"></TD>
				<TD background="images/bottomborder.gif" height="35"></TD>
				<TD width="35" height="35" align="left" valign="top"><IMG src="images/rightbottomcorner.gif" width="35" height="35" galleryimg="no"></TD>
			  </TR>
			  <% End If ' end If (rsPreferences.Fields.Item("pref_borders").Value) = (1) script %>
			</TABLE>
		  </TD>
		</TR>
		<TR> 
		  <TD align="center" valign="middle">&nbsp;</TD>
		</TR>
		<TR> 
		  <% If (((rsPreferences.Fields.Item("subscriptions").Value) = (1)) AND (Not rsSubscriber.EOF Or Not rsSubscriber.BOF)) OR (rsPreferences.Fields.Item("subscriptions").Value) = (0)Then %>
		  <TD><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" color="<%=(rsPreferences.Fields.Item("cardtextcolor").Value)%>" size="-1"><B><A name="personalize" onFocus="if(this.blur)this.blur()"></A>&nbsp;</B></FONT><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-1"><B><%=(rsPostcardsText.Fields.Item("BASO_personalize").Value)%></B></FONT> 
			<HR align="center" width="100%" size="1" noshade>
			<FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" color="<%=(rsPreferences.Fields.Item("cardtextcolor").Value)%>" size="-1"><B>	
			</B></FONT> 
			<FORM name="form1" action="preview.asp" method="post" onSubmit="tmt_regExpValidator('sendto','%5E%5B%5Cw%5C.=-%5D%2B@%5B%5Cw%5C.-%5D%2B%5C.%5Ba-z%5D%7B2,4%7D$','<%=(rsPostcardsText.Fields.Item("BASO_errortoemail").Value)%>','','1');return document.MM_returnValue">
			  <TABLE border="0" cellspacing="0" cellpadding="5" align="center">
				<TR align="left"> 
				  <TD valign="top" colspan="2"></TD>
				</TR>
				<TR valign="top"> 
				  <TD align="right" valign="middle"><B><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><%=(rsPostcardsText.Fields.Item("BASO_yourfriend").Value)%></FONT></B></TD>
				  <TD align="left" valign="middle"> 
					<INPUT type="text" name="toname" size="46" value="<%= Request.Cookies("replyname") %>">
				  </TD>
				</TR>
				<TR valign="top"> 
				  <TD align="right" valign="middle"><B><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><%=(rsPostcardsText.Fields.Item("BASO_friendemail").Value)%></FONT></B></TD>
				  <TD align="left" valign="middle"> 
					<INPUT type="text" name="sendto" size="46" value="<%= Request.Cookies("replyemail") %>">
				  </TD>
				</TR>
				<TR valign="top"> 
				  <TD align="right" valign="middle"><B><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><%=(rsPostcardsText.Fields.Item("BASO_yourname").Value)%></FONT></B></TD>
				  <TD align="left" valign="middle"> 
					<INPUT type="text" name="fromname" size="46" value="<%= Request.Cookies("cardsendername") %>">
				  </TD>
				</TR>
				<TR valign="top"> 
				  <TD align="right" valign="middle"><B><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><%=(rsPostcardsText.Fields.Item("BASO_youremail").Value)%></FONT></B></TD>
				  <TD align="left" valign="middle"> 
					<INPUT type="text" name="sentfrom" size="46" value="<%= Request.Cookies("cardsenderemail") %>">
				  </TD>
				</TR>
				<TR valign="top">
				  <TD align="right" valign="middle">&nbsp;</TD>
				  <TD align="left" valign="middle"> 
					<INPUT type="checkbox" name="sendcopy" value="1" checked>
					<FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2">&nbsp;<%=(rsPostcardsText.Fields.Item("BASO_sendcopy").Value)%></FONT></TD>
				</TR>
				<TR valign="top"> 
				  <TD align="right" valign="middle"><B><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><%=(rsPostcardsText.Fields.Item("BASO_titleyour").Value)%></FONT></B></TD>
				  <TD align="left" valign="middle"> 
					<INPUT type="text" name="title" size="46">
				  </TD>
				</TR>
				<TR valign="top"> 
				  <TD align="right"><B><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><%=(rsPostcardsText.Fields.Item("BASO_yourmessage").Value)%></FONT></B></TD>
				  <TD align="left"> 
					<TEXTAREA name="message" cols="35" rows="7" wrap="VIRTUAL"></TEXTAREA>
				  </TD>
				</TR>
				<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
				<TR valign="top"> 
				  <TD align="right"><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"><STRONG><%=(rsPostcardsText.Fields.Item("opt_option").Value)%></STRONG></FONT></TD>
				  <TD align="left"> 
					<FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-2"> 
					<% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
					<FONT> 
					<INPUT <%If (CStr((Recordset1.Fields.Item("optin_checked").Value)) = CStr("1")) Then Response.Write("checked") : Response.Write("")%> name="opted<%=(Recordset1.Fields.Item("optin_id").Value)%>" type="checkbox" id="opted<%=(Recordset1.Fields.Item("optin_id").Value)%>" value="1">
					<FONT size="-1"><%=(Recordset1.Fields.Item("optin_text").Value)%></FONT><BR>
					</FONT> 
					<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
					</FONT></TD>
				</TR>
				<TR valign="top"> 
				  <TD align="right"><FONT size="-1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</FONT></TD>
				  <TD align="left"><FONT face="<%=(rsPreferences.Fields.Item("font").Value)%>" size="-1"><%=(rsPostcardsText.Fields.Item("opt_which").Value)%> <LABEL> 
					<INPUT name="format" type="radio" value="0" checked>
					<%=(rsPostcardsText.Fields.Item("opt_text").Value)%></LABEL> &nbsp;&nbsp; <LABEL> 
					<INPUT type="radio" name="format" value="1">
					</LABEL> <%=(rsPostcardsText.Fields.Item("opt_HTML").Value)%></FONT></TD>
				</TR>
				<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
				<TR> 
				  <TD align="right" valign="middle"><IMG src="images/transparent.gif" width="150" height="1"> 
					<INPUT type="hidden" name="datesent" value="<%=Now()%>">
					<INPUT type="hidden" name="photoid" value="<%=(rsPhoto.Fields.Item("photoid").Value)%>">
				  </TD>
				  <TD align="left" valign="middle"> 
					<INPUT type="submit" name="Submit" value="<%=(rsPostcardsText.Fields.Item("BASO_preview").Value)%>" onClick="tmt_regExpValidator('sentfrom','%5E%5B%5Cw%5C.=-%5D%2B@%5B%5Cw%5C.-%5D%2B%5C.%5Ba-z%5D%7B2,4%7D$','%3C%25=(rsPostcardsText.Fields.Item(%22BASO_errorfromemail%22).Value)%25%3E','','1');return document.MM_returnValue">
				  </TD>
				</TR>
			  </TABLE>
			</FORM>
		  </TD>
		  <% End If %>
		</TR>
	  </TABLE>
	</TD>
	<TD width="50%">&nbsp;</TD>
  </TR>
</TABLE>
<%=(rsPreferences.Fields.Item("bottomhtml").Value)%> 
</BODY>
</HTML>
<%
rsPhoto.Close()
%>
<%
rsPreferences.Close()
%>
<%
rsPostcardsText.Close()
%>
<%
rsSubscriber.Close()
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>