<%def email>
<%init>
use MIME::Lite;
my $email = MIME::Lite->new(
To => 'james@ccs-corporate.com',
Subject => '**Contact Us: Valiant Yachts**',
From => "$IARGS{requiredname} <$IARGS{requiredEmail}>",
Type => 'TEXT',
Data =>
"
Interested in more information?
$IARGS{request_type}
A Specific Yacht?
$IARGS{valiant42}
$IARGS{valiant50}
Tell us how to get in contact with you.
Name: $IARGS{requiredname}
Address: $IARGS{requiredline1}
Line 2: $IARGS{line2}
City: $IARGS{requiredcity}
State: $IARGS{requiredstate}
Zip Code: $IARGS{requiredpcode}
Email: $IARGS{requiredEmail}
Phone: $IARGS{requiredphone}
Night Phone: $IARGS{night}
Fax: $IARGS{fax}
Questions or comments? Ask us in the box below.
$IARGS{comments}" );
$email->send;
my $callPage=$IARGS{'callPage'};
#$m->redirect("$callPage");
<& contact_include.htm &>
Print This Page
