<% ''''''''''' (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 nameto = Request("nameto") namefrom = Request("namefrom") emailfrom = Request("emailfrom") emailfrom = Replace(emailfrom, " ", "%20") emailto = Request("emailto") emailto = Replace(emailto, " ", "%20") sPostcardToFriend = server.HTMLencode("nameto=" & nameto & "&emailto=" & emailto & "&namefrom=" & namefrom & "&emailfrom=" & emailfrom) sPostcardToFriend = Replace(sPostcardToFriend, " ", "%20") Dim nCardId, sSmallGufUrl nCardId = Request.QueryString("fldAuto") if nCardId = "" Then Response.Redirect "." End If sSmallGufUrl = Request.QueryString("small") if sSmallGufUrl = "" Then Response.Redirect "." End If 'Preview it... %> Postcards

Send a Postcard

<%if Postcard_GetCatCount() > 1 then %>

Category:   

<%End If %>
method=post onsubmit="return Validate(this);">

Your selected postcard is

Above is a thumbnail of the final full size version

Type your postcard's heading:

Enter your message:

Your name:

Your email address:

  

Your friend's name:

Your friend's email address:

Do you want to be notified
when the card is collected?
Yes      No