<% ''''''''''' (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") nameto = Replace(nameto, " ", "%20") namefrom = Request("namefrom") namefrom = Replace(namefrom, " ", "%20") 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") %>

<%if Postcard_GetCatCount() > 1 then %>

Send a Postcard

We now have <%=PostCard_GetCardCount()%> pictures in <%=PostCard_GetCatCount()%> categories - select a category below:

<%ListAllCategoriesInList -1%>   

<%Else%>

Send a Postcard

Click here to send a Postcard

<%End If %>

 

Collect a Postcard

Card ID:

If you've received an email to collect a postcard,
enter the Card's ID above

 

 

Newest Cards <%DisplayNewCards( )%>

Popular Cards <%DisplayTopCards( )%>