<% ''''''''''' (C) Stefan Holmberg 1999 ''''''''''' Free to use if these sourcecode lines is not deleted ''''''''''' Contact me at webmaster@sqlexperts.com ''''''''''' http://www.sqlexperts.com ''''''''''' AdMentor homepage at http://www.create-a-webshop.com ' Script modified by Michael Cleland ' michael@activeenzymes.com.au ' http://www.activeenzymes.com.au/postcard Dim nCardId, sSmallGufUrl nCardId = Request.QueryString("fldAuto") if nCardId = "" Then Response.Redirect "." End If Dim oRS Set oRS = Server.CreateObject("ADODB.Recordset") Set oRS.ActiveConnection = PostCard_GetDatabaseConn() oRS.CursorLocation = adUseClient oRS.Open "select * from card where fldAuto=" & nCardId Dim sGifUrl, sNameTo, sNameFrom, sEmailFrom, sText, sTextHTML, sEmailTo, sNotifySenderPickup sGifUrl = oRS("gifurl") sNameTo = Request.Form("nameto") sNameFrom = Request.Form("namefrom") sEmailFrom = Request.Form("emailfrom") sEmailTo = Request.Form("emailto") sNotifySenderPickup = Request.Form("notifysenderpickup") sGreeting = Request.Form("greeting") if sGreeting = "custom" Then sGreeting = Request.Form("cGreeting") End if sText = Request.Form("sText") sText = Replace(sText, chr(34), "'") 'sText = Replace(sText, chr(34), "`") 'sText = Replace(sText, "'", "´") sTextHTML = sText sTextHTML = Replace(sTextHTML, vbCrLf, "
") Dim sBGColor sBGColor = Request.Form("BgColor") Dim sTextColor sTextColor = Request.Form("TColor") oRS.Close %> Postcards

<%=sNameTo%>, you've been sent a postcard!

 

<%=sGreeting%>

<%=postcard_name%>

 

<%=sTextHTML%>

 

From <%=sNameFrom%>

 

You have selected to <%if sNotifySenderPickup = "dontnotifyme" then %> not <%end if %>
be notified when the card is collected by
<%=sNameTo%> (<%=sEmailTo%>)