PX : code

Recommend Script by Bill Zeller
Download this code


<plaintext>
(start source of mail.htm)
<HTML>
<HEAD>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<TABLE BORDER=0>
Recommend
   <FORM Action="(path to recommend.php3)" Method=POST>
   <TR><TD COLSPAN=2><FONT FACE="ARIAL" SIZE=3><B>Required Fields Are in Bold</B><BR><BR></TD></TR>
   <TR><TD><FONT FACE="ARIAL" SIZE=3><B> Your E-mail</TD><TD><INPUT Name="from_email_address" value="Your E-mail" Size=25></TD></TR>
   <TR><TD><FONT FACE="ARIAL" SIZE=3><B> Your Name:</TD><TD><INPUT Name="name" value="Your Name" Size=25></TD></TR>
   <TR><TD><FONT FACE="ARIAL" SIZE=3><B> Their Name:</TD><TD><INPUT Name="to_name" value="Their Name" Size=25></TD></TR>
   <TR><TD><FONT FACE="ARIAL" SIZE=3><B> Their E-mail:</TD><TD><INPUT Name="to_email_address" value="Their E-mail" Size=25></TD></TR>
      
   <TR><TD COLSPAN=2><FONT FACE="ARIAL" SIZE=3><BR>
   <P>
  <INPUT Type=SUBMIT Value="Send Now">
   </FORM>
   </TABLE></CENTER> </DL>


   <BR>

   </TD>
</TR>
</TABLE>


</BODY>
</HTML>

(End source of mail.htm)
(Start source of recommend.php3)

<?PHP
/* 
  ######################
  # 1999 Bill Zeller  #
  #billzeller@yahoo.com#
  ######################
   Feel free to use, copy, and 
   modify, as long as this notice
   is left alone intact.
*/
      
$nameX stripslashes($name);
$to_nameX stripslashes($to_name);
$url "http://www.somepage.com";
$message "Hello $to_nameX,\n I think you would like $url";
$subject "$nameX wants you to check this site out";

if (( 
$to_email_address) && ( $from_email_address)) {

   
mail($to_email_address$subject$message,
     
"From: $from_email_address\nReply-To: $from_email_address\nX-Mailer: PHP\nErrors-To: $from_email_address");
echo 
"Thank you";
} else {

   echo 
"error";
}

?>
(End source of recommend.php3)

Comments or questions?
PX is running PHP 5.2.17
Thanks to Miranda Productions for hosting and bandwidth.
Use of any code from PX is at your own risk.