<% 'Response.Buffer=true yourname = Request.Form("yourname") youremail= Request.Form("youremail") friendemail = Request.Form("friendemail") mailcont = Request.Form("mailcont") but1 = Request.Form("but1") a_friendmail=split(friendemail,"#") if but1 = "Recommend" then body1="Hi!"&VbCrLf&_ "Wanna Make Someone Happy Today?"&VbCrLf&_ "Send An Orangepie E-Card Their Way!"&VbCrLf&_ ""&VbCrLf&_ yourname &"("&youremail&") has recommended Orangepie.com, "&VbCrLf&_ "a Free, Fun E-Greeting Card Site located at http://www.orangepie.com. "&VbCrLf&_ ""&VbCrLf&_ "Personal Message From "&yourname&" :"&VbCrLf& mailcont & VbCrLf&VbCrLf ' body2 is fetched from emailadcode.inc file to insert advt. code body3="Orangepie's novel, exciting & spicy e-card categories are sure to entice you "&_ "and you are only a Click Away, so Click on http://www.orangepie.com"&VbCrLf&_ ""&VbCrLf&_ ""&VbCrLf&_ "Have a great day! "&VbCrLf&VbCrLf&yourname mailhead=body1&body2&body3 for i=0 to UBound(a_friendmail) Set objMail=CreateObject("CDONTS.Newmail") objMail.From=yourname&"" objMail.To="You<"&a_friendmail(i)&">" 'Response.Write a_friendmail(i) & "," objMail.Subject=yourname &" has recommended Orangepie" objMail.Body=mailhead objMail.Send Set objMail=Nothing Next Response.redirect("./register/regthnk.asp?result=recommend") end if %> Recommend Orangepie
   
     
  Free Fun eCards Friendship Connection | Poetry Contest | Deutsche | Help | Recommend Orangepie
 
Recommend Orangepie
Your Name
Your E-Mail
Friend(s) E-Mail
Seperate multiple E-Mails
with hash ( # )
Personal Message




 
   


Emails us at webmaster@orangepie.com
E-Cards From Orangepie

Copyright © 1999 by Orangepie. All Rights Reserved. Website Created & Designed by Astrosoft
_______________________________________________________________________________________________________
User Agreement | Privacy Policy | Register Now! | Advertise With Us | Add Orangepie Link