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 isrint 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;
}
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 isrint 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;
}