Elle-B-Jeweled

Fields marked (*) are required

Email From:*

Subject:

First:*

Last:*

Company:

Address:

Telephone:

Mobile:

Website:

Created by href="http://www.tele-pro.co.uk/scripts/contact_form/">Contact
Form Generator

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
print "Content-type: text/html \n\n";

# Website Contact Form Generator
# http://www.tele-pro.co.uk/scripts/contact_form/
# This script is free to use as long as you
# retain the credit link

# get posted data into local variables
$input = new CGI;
$EmailFrom = $input->param('EmailFrom');
$EmailTo = "ellebjeweled\@gmail.com";
$Subject = $input->param('Subject');
$First = $input->param('First');
$Last = $input->param('Last');
$Company = $input->param('Company');
$Address = $input->param('Address');
$Telephone = $input->param('Telephone');
$Mobile = $input->param('Mobile');
$Website = $input->param('Website');

# validation
$validationOK=true;
if ($EmailFrom eq '') {$validationOK=false;}
if ($First eq '') {$validationOK=false;}
if ($Last eq '') {$validationOK=false;}
if ($validationOK eq false) {
print "";
exit;
}

# prepare email body text
$Body .= "First: ";
$Body .= "$First";
$Body .= "\n";
$Body .= "Last: ";
$Body .= "$Last";
$Body .= "\n";
$Body .= "Company: ";
$Body .= "$Company";
$Body .= "\n";
$Body .= "Address: ";
$Body .= "$Address";
$Body .= "\n";
$Body .= "Telephone: ";
$Body .= "$Telephone";
$Body .= "\n";
$Body .= "Mobile: ";
$Body .= "$Mobile";
$Body .= "\n";
$Body .= "Website: ";
$Body .= "$Website";
$Body .= "\n";

# send email
use Win32::OLE;
$ex = Win32::OLE->new('CDONTS.NewMail') or die "\nCDONTS error";
$ex->Send($EmailFrom,$EmailTo,$Subject,$Body);

# redirect to success page
print "";