THANKS Guys.
Is there a post or can you tell me how to redirect, just in case I decide to use it?
Thanks again for all your help and a great script and cart system.
Moderators: Koibito, Stefko, Randy
echo "<script type=\"text/javascript\">";
echo "window.location = \"http://www.company.com/thankyou.html\"";
echo "</script>";
include($header);
echo "<h2>Thank you</h2>";
echo "Thank you for your order from our online store. You will receive a confirmation email of your order ";
echo "momentarily. Please contact us at $youremail if you have any questions or concerns.";
echo "<P>";
echo "<A HREF=\"$returnpage\" target=_top>Return Home</A>";
echo "<P>";
include($footer);
<?php
$returnpage = "http://www.norickinteriors.com/select.html";
$youremail = "raymond@norickinteriors.com";
$csvfilename = "";
$csvquote = "\"\"";
$mode = "EMAIL";
//##############################################################
//#FUNCTION: doFormError #
//#RETURNS: #
//#PARAMETERS: A error message string. #
//#PURPOSE: Generates an HTML page indicating a form #
//# submission error occurred. #
//##############################################################
function doFormError($errString) {
echo "<FONT SIZE=+2>The form you submitted was not complete.<BR><BR></FONT>";
echo "$errString<BR><BR>\n";
echo "<INPUT TYPE=BUTTON ONCLICK='history.back()' VALUE=' Return to the checkout page '><HR>";
exit;
}
//##############################################################
//#FUNCTION: doError #
//#RETURNS: #
//#PARAMETERS: A error message string. #
//#PURPOSE: Generates an HTML page indicating an error #
//# occurred. #
//##############################################################
function doError($errString) {
echo "$errString<BR><BR>\n";
exit;
}
//##############################################################
//##############################################################
//### MAIN ###
//##############################################################
//##############################################################
foreach ($_POST as $field => $value)
{
$$field = $value;
}
if (($b_company == "") || ($b_name == "") || ($b_addr == "") || ($b_city == "") || ($b_country == "") || ($b_phone == "") || ($b_email == "")) {
doFormError("I'm sorry, but it appears that you forgot to fill in a required field. Please go <A HREF='Javascript:history.go(-1);'>back</A> and correct the error.");
exit;
}
//# checks for valid email address
if( !(ereg("^(.+)@(.+)\\.(.+)$",$b_email)) ) {
doFormError("You submitted an invalid email address. Please go <A HREF='Javascript:history.go(-1);'>back</A> and correct the error.");
exit;
}
$today = date ("l, F jS Y");
$strMessageBody = "";
$strMessageBody .= "A new enquiry has been received at Norick Interiors. A summary of this information appears below.\n";
$strMessageBody .= "\n";
$strMessageBody .= "Enquiry Date: $today \n";
$strMessageBody .= " \n";
$strMessageBody .= "Contact Details: \n";
$strMessageBody .= "-------- \n";
$strMessageBody .= " $b_company $b_name \n";
$strMessageBody .= " $b_addr \n";
$strMessageBody .= " $b_addr2 \n";
$strMessageBody .= " $b_city, $b_country $b_pcde \n";
$strMessageBody .= " $b_phone \n";
$strMessageBody .= " $b_fax \n";
$strMessageBody .= " $b_email \n";
$strMessageBody .= " \n";
$strMessageBody .= " \n";
$strMessageBody .= "Delivery Address: \n";
$strMessageBody .= "-------- \n";
$strMessageBody .= " $s_company $s_name \n";
$strMessageBody .= " $s_addr \n";
$strMessageBody .= " $s_addr2 \n";
$strMessageBody .= " $s_city $s_country $s_pcde \n";
$strMessageBody .= " $s_phone \n";
$strMessageBody .= " \n";
$strMessageBody .= " \n";
$strMessageBody .= "Qty Price Product ID - Product Description\n";
$strMessageBody .= "===================================================================== \n";
$strMessageBody .= "$QUANTITY_1 TBA $ID_1 - $NAME_1 $ADDTLINFO_1 \n";
if( $NAME_2 ) {$strMessageBody .= "$QUANTITY_2 TBA $ID_2 - $NAME_2 $ADDTLINFO_2 \n";}
if( $NAME_3 ) {$strMessageBody .= "$QUANTITY_3 TBA $ID_3 - $NAME_3 $ADDTLINFO_3 \n";}
if( $NAME_4 ) {$strMessageBody .= "$QUANTITY_4 TBA $ID_4 - $NAME_4 $ADDTLINFO_4 \n";}
if( $NAME_5 ) {$strMessageBody .= "$QUANTITY_5 TBA $ID_5 - $NAME_5 $ADDTLINFO_5 \n";}
if( $NAME_6 ) {$strMessageBody .= "$QUANTITY_6 TBA $ID_6 - $NAME_6 $ADDTLINFO_6 \n";}
if( $NAME_7 ) {$strMessageBody .= "$QUANTITY_7 TBA $ID_7 - $NAME_7 $ADDTLINFO_7 \n";}
if( $NAME_8 ) {$strMessageBody .= "$QUANTITY_8 TBA $ID_8 - $NAME_8 $ADDTLINFO_8 \n";}
if( $NAME_9 ) {$strMessageBody .= "$QUANTITY_9 TBA $ID_9 - $NAME_9 $ADDTLINFO_9 \n";}
if( $NAME_10 ){$strMessageBody .= "$QUANTITY_10 TBA $ID_10 - $NAME_10 $ADDTLINFO_10 \n";}
if( $NAME_11 ){$strMessageBody .= "$QUANTITY_11 TBA $ID_11 - $NAME_11 $ADDTLINFO_11 \n";}
if( $NAME_12 ){$strMessageBody .= "$QUANTITY_12 TBA $ID_12 - $NAME_12 $ADDTLINFO_12 \n";}
if( $NAME_13 ){$strMessageBody .= "$QUANTITY_13 TBA $ID_13 - $NAME_13 $ADDTLINFO_13 \n";}
$strMessageBody .= "===================================================================== \n";
$strMessageBody .= "SUBTOTAL: $SUBTOTAL \n";
$strMessageBody .= "TOTAL: $TOTAL \n";
$strMessageBody .= "\n";
$strMessageBody .= "FREIGHT: $SHIPPING \n";
$strMessageBody .= "\n\n";
$strMessageBody .= "Comments: \n";
$strMessageBody .= "--------- \n";
$strMessageBody .= "$comment \n";
$strMessageBody .= " \n";
if( $mode == "BOTH" || $mode == "EMAIL") {
//# Send email order to you...
$mailheaders = "From: $b_email\r\n";
$mailheaders .="X-Mailer: PHP Mail generated by:NOP Design Shopping Cart\r\n";
$subject = "New Enquiry for Quote from Website";
mail($youremail, $subject, $strMessageBody, $mailheaders);
}
if( $mode == "BOTH" || $mode == "FILE") {
$csvcomments = $comment;
if (!$CSVF = fopen($csvfilename,'a')) {
doError("Unable to open CSV file for writing. Your order has not been saved.");
exit;
}
fputs($CSVF, $string);
fputs($CSVF, "\"");
fputs($CSVF, "$today");
fputs($CSVF, "\",\"");
fputs($CSVF, "$b_company");
fputs($CSVF, "\",\"");
fputs($CSVF, "$b_name");
fputs($CSVF, "\",\"");
fputs($CSVF, "$b_addr");
fputs($CSVF, "\",\"");
fputs($CSVF, "$b_addr2");
fputs($CSVF, "\",\"");
fputs($CSVF, "$b_city");
fputs($CSVF, "\",\"");
fputs($CSVF, "$b_country");
fputs($CSVF, "\",\"");
fputs($CSVF, "$b_pcde");
fputs($CSVF, "\",\"");
fputs($CSVF, "$b_phone");
fputs($CSVF, "\",\"");
fputs($CSVF, "$b_fax");
fputs($CSVF, "\",\"");
fputs($CSVF, "$b_email");
fputs($CSVF, "\",\"");
fputs($CSVF, "$s_company");
fputs($CSVF, "\",\"");
fputs($CSVF, "$s_name");
fputs($CSVF, "\",\"");
fputs($CSVF, "$s_addr");
fputs($CSVF, "\",\"");
fputs($CSVF, "$s_addr2");
fputs($CSVF, "\",\"");
fputs($CSVF, "$s_city");
fputs($CSVF, "\",\"");
fputs($CSVF, "$s_country");
fputs($CSVF, "\",\"");
fputs($CSVF, "$s_pcde");
fputs($CSVF, "\",\"");
fputs($CSVF, "$s_phone");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_1");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_1");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_1");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_1");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_1");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_2");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_2");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_2");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_2");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_2");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_3");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_3");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_3");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_3");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_3");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_4");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_4");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_4");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_4");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_4");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_5");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_5");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_5");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_5");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_5");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_6");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_6");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_6");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_6");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_6");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_7");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_7");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_7");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_7");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_7");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_8");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_8");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_8");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_8");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_8");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_9");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_9");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_9");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_9");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_9");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_10");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_10");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_10");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_10");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_10");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_11");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_11");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_11");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_11");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_11");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_12");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_12");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_12");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_12");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_12");
fputs($CSVF, "\",\"");
fputs($CSVF, "$QUANTITY_13");
fputs($CSVF, "\",\"");
fputs($CSVF, "\$PRICE_13");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ID_13");
fputs($CSVF, "\",\"");
fputs($CSVF, "$NAME_13");
fputs($CSVF, "\",\"");
fputs($CSVF, "$ADDTLINFO_13");
fputs($CSVF, "\",\"");
fputs($CSVF, "$SUBTOTAL");
fputs($CSVF, "\",\"");
fputs($CSVF, "$TOTAL");
fputs($CSVF, "\",\"");
fputs($CSVF, "$SHIPPING");
fputs($CSVF, "\",\"");
fputs($CSVF, "$comment");
fputs($CSVF, "\"\n");
fclose($CSVF);
}
//# Send email conformation to the customer.....
$mailheaders = "From: $youremail\r\n";
$mailheaders .="X-Mailer: PHP Mail generated by:NOP Design Shopping Cart\r\n";
$subject = "Enquiry Confirmation";
mail($b_email, $subject, $strMessageBody, $mailheaders);
echo "<script type=\"text/javascript\">";
echo "window.location = \"thanks2.html\"";
echo "</script>";
?>###################################
use Net::SMTP;
use HTTP::Date;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
#################################### Send email conformation to the customer.....
if($b_email eq ""){
$b_email = $c_email;
}
$message2 = "To: $b_email\n";
$message2 .= "From: $youremail\n";
$message2 .= "Date: " . time2str() ."\n";
$message2 .= "Subject: $subject\n";
$message2 .= "\n\n";
$message2 .= "$msg_line1\n";
if ( $msg_line2 ne "" ) {
$message2 .= "$msg_line2\n";
}
if ( $msg_line3 ne "" ) {
$message2 .= "$msg_line3\n";
}
if ( $msg_line4 ne "" ) {
$message2 .= "$msg_line4\n";
}
if ( $msg_line5 ne "" ) {
$message2 .= "$msg_line5\n";
}
if ( $msg_line6 ne "" ) {
$message2 .= "$msg_line6\n";
}
$message2 .= "\n";
$message2 .= "Order Date: $months[$month] $day, $year $hour:$min:$sec \n";
$message2 .= "Reference Number: $OrdNum\n";
$message2 .= " \n";
if ($useUPS ne "true"){
$message2 .= "-------------------------------------- \n";
$message2 .= "Bill To: \n";
$message2 .= "-------------------------------------- \n";
$message2 .= " Name: $b_first $b_last \n";
$message2 .= " Address: $b_addr \n";
$message2 .= " $b_addr2 \n";
if ($b_state ne ""){
$message2 .= " $b_city, $b_state $b_zip \n";
}
if ($b_state eq ""){
# $message2 .= " $b_city, $b_state2 $b_zip \n";
$message2 .= " $b_city, $b_state $b_zip \n";
}
if ($b_country ne ""){
$message2 .= " Country: $b_country \n";
}
$message2 .= " Phone: $b_phone \n";
$message2 .= " FAX: $b_fax \n";
$message2 .= " Email: $b_email \n";
$message2 .= " \n";
$message2 .= "-------------------------------------- \n";
$message2 .= "Credit Card Info: \n";
$message2 .= "-------------------------------------- \n";
$message2 .= " Card Type: $cctype \n";
$message2 .= " Card #: XXXX-XXXX-XXXX-$ccnum4 \n";
$message2 .= " CVN #: $cccvn \n";
$message2 .= " Expires: $ccexpmon / $ccexpyear \n";
$message2 .= " \n";
$message2 .= "-------------------------------------- \n";
$message2 .= "Ship To: \n";
$message2 .= "-------------------------------------- \n";
if ( $s_addr eq "" ) {
$message2 .= " Use Billing Address\n";
} else {
$message2 .= " Name: $s_first $s_last \n";
$message2 .= " Address: $s_addr \n";
$message2 .= " $s_addr2 \n";
if ($s_state ne ""){
$message2 .= " $s_city, $s_state $s_zip \n";
}
if ($s_state eq ""){
# $message2 .= " $s_city, $s_state2 $s_zip \n";
$message2 .= " $s_city, $s_state $s_zip \n";
}
if ($s_country ne ""){
$message2 .= " Country: $s_country \n";
}
$message2 .= " Phone: $s_phone \n";
$message2 .= " FAX: $s_fax \n";
$message2 .= " Email: $s_email \n";
}
$message2 .= " \n";
}
if ($useUPS eq "true"){
$message2 .= "-------------------------------------- \n";
$message2 .= "Contact Info: \n";
$message2 .= "-------------------------------------- \n";
$message2 .= "\tName:\t$c_first $c_last \n";
$message2 .= "\tPhone:\t$c_phone \n";
$message2 .= "\tEmail:\t$c_email \n";
$message2 .= " \n";
$message2 .= "-------------------------------------- \n";
$message2 .= "Billing Info: \n";
$message2 .= "-------------------------------------- \n";
if ( $b_addr eq "" ) {
$message2 .= "\t\tUse Shipping Address\n";
} else {
$message2 .= "\tName:\t$b_first $b_last \n";
$message2 .= "\tAddress:$b_addr \n";
$message2 .= "\t\t\t$b_addr2 \n";
$message2 .= "\t\t\t$b_city, $b_state $b_zip \n";
$message2 .= "\tCountry:$b_country \n";
}
$message2 .= " \n";
$message2 .= "-------------------------------------- \n";
$message2 .= "Credit Card Info: \n";
$message2 .= "-------------------------------------- \n";
$message2 .= "\tCard Type:\t$cctype \n";
$message2 .= "\tCard #:\t\tXXXX-XXXX-XXXX-$ccnum4 \n";
# $message2 .= "\tCVN #:\t\t $cccvn \n";
$message2 .= "\tExpires:\t$ccexpmon / $ccexpyear \n";
$message2 .= " \n";
$message2 .= "-------------------------------------- \n";
$message2 .= "Ship To: \n";
$message2 .= "-------------------------------------- \n";
$message2 .= "\tName:\t$c_first $c_last \n";
$message2 .= "\tAddress:$s_addr \n";
$message2 .= "\t\t\t$s_addr2 \n";
# $message2 .= "\t\t\t$s_city, $s_state2 $s_zip \n";
$message2 .= "\t\t\t$s_city, $s_state $s_zip \n";
$message2 .= "\tCountry:$s_country \n";
$message2 .= " \n";
}
$message2 .= "-------------------------------------- \n";
$message2 .= "Purchase Info: \n";
$message2 .= "====================================== \n";
$num = 0;
for($y=1;$y<=100;$y++){
$thename="NAME_$y";
if(length(${$thename})>3){
$num++;
}
}
foreach($x=1; $x<=$num; $x++){
$qnt="QUANTITY_$x";
$prce="PRICE_$x";
$xtnd="XTEND_$x";
$ide="ID_$x";
$naam="NAME_$x";
$adlinfo="ADDTLINFO_$x";
${$naam}=~ s/\n//g;
$message2 .= "Qty: ${$qnt} \nItem No: ${$ide} \nDescpition: ${$naam} \nAddtl. Info: ${$adlinfo} \nPrice: \$${$prce} Extended Price: \$${$xtnd} \n\n";
}
$message2 .= "======================================\n";
$message2 .= "\n";
$message2 .= " $itemtotl $ITEMTOTAL \n";
$message2 .= " $dcount $DISCOUNT \n";
$message2 .= " $subtotl $SUBTOTAL \n";
$message2 .= " $freight $SHIPPING SHIPPING METHOD: $METHOD \n";
if ( $displayfst eq "true" ) {
$message2 .= " $tax_gst $GST \n";
}
$message2 .= " $tax_pst $TAX \n";
$message2 .= "\n";
$message2 .= " $totcost $TOTAL \n";
$message2 .= "\n\n";
$message2 .= "Comments: \n";
$message2 .= "--------------------------------------\n";
$message2 .= "$comment \n";
$message2 .= "--------------------------------------\n";
$message2 .= " \n";
###################### SMTP or SENDMAIL ###################
if ( $mailprogram ne "" ) {
open (MAIL,"|$mailprogram");
print MAIL $message2;
close MAIL;
} else {
#########################################################
my $ServerName = $mailservername;
my $MailDomain = $mailserverdomain;
my $ServerAccount = $mailserveremail;
my $ServerPwd = $mailserverpw;
my $MailFrom = $youremail;
my $MailTo = $b_email;
#########################################################
#print "Server variables assigned\n";
my $smtp = Net::SMTP->new($ServerName, Hello => $MailDomain, Debug => 1);
die "Couldn't connect to server" unless $smtp;
#print "Server connection opened\n";
if ( !$smtp->auth($ServerAccount, $ServerPwd) ) {
#print "authentication failed or not needed\n";
}
if ( !$smtp->mail( $MailFrom ) ) {
#print "sender not accepted\n";
exit 1;
}
if (!$smtp->to( $MailTo ) ) {
##print "addressee not accepted\n";
exit 1;
}
#print "Server variables checked\n";
my $maildata = $message2;
$smtp->data();
$smtp->datasend( $maildata );
$smtp->dataend();
$smtp->quit();
$smtp->quit;
#print "Finished sending email\n";
}
###################### SMTP or SENDMAIL ####################<?php
require "Mail.php";
$sender = "webmaster@company.com";
$recipient = "recipient@customer.com";
$subject = "New Order";
$body = "blah blah ...";
$server = "ssl://smtp.gmail.com";
$username = "webmaster@company.com";
$password = "secret";
$port = "465";
$headers = array(
"From" => $sender,
"To" => $recipient,
"Subject" => $subject
);
$smtp = Mail::factory("smtp",
array(
"host" => $server,
"username" => $username,
"password" => $password,
"auth" => true,
"port" => 465
)
);
$mail = $smtp->send($recipient, $headers, $body);
if (PEAR::isError($mail)) {
echo ($mail->getMessage());
}
?>For PHP I would recommend Expert Mailer http://www.xpertmailer.com/ , I have used it on many servers requiring SMTP
Return to Help: Perl/PHP/ASP Checkout
Users browsing this forum: No registered users and 1 guest