Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Need to fix the mail to section of a multi part form from windows 2000

Status
Not open for further replies.

cww2

Technical User
Mar 2, 2007
1
US
I need to know how to fix the code on my cgi/pearl from the code I have for the Windows 200 to work on windows 2003. All my data works but can not get it to email it to me or back to the customer .

Please help if you can

Html form code is<FORM action=" method="POST">
<INPUT TYPE="hidden" NAME="your_email_address" VALUE="cimmaron@huntel.net">
<INPUT TYPE="hidden" NAME="your_name" VALUE="Riverland RV Park">
<INPUT TYPE="hidden" NAME="email_subject_line" VALUE="Reservation Request">
<INPUT TYPE="hidden" NAME="required_fields" VALUE="your_email_address">
<INPUT TYPE="hidden" NAME="thank_you_title" VALUE="Thank you for you Reservation Request">
<INPUT TYPE="hidden" NAME="return_link_url" VALUE=" <INPUT TYPE="hidden" NAME="return_link_name" VALUE="Home Page"></p>

and my pearl script is:print STDOUT end_html, "\n";


exit(0);

#-------------------------------------------------------------

sub sendMailMessage {
my $email_to = shift;
my $subject = shift;
my $order = shift;

use OLE;
my $objMessage = CreateObject OLE 'CDO.Message';
$objMessage->{Sender} = $your_email_address;
$objMessage->{From} = $your_email_address;
$objMessage->{To} = $email_to;
$objMessage->{Subject} = $subject;
$objMessage->{TextBody} = $ad;
$objMessage->send() && return 0;

return 1;
}
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top