diversao da galera

-- ACALAPAMBACEDFESGOMAMSMTMGPAPBPRPEPIRJRNRSRORRSCSPSETO

Scripts > Website Contact Form Generator


Contact Form Generator - Perl/Windows Scripts
Here are your Perl/Windows form-to-email scripts. Thanks for using Contact Form Generator.

NB: This script is free to use as long as you retain the credit link. If you require a more advanced contact form or would like the contact form customised, please contact us for a quote.

Web Form: contact.htm

Fields marked (*) are required

Website:

91663922:

Name:

Salutation:

Address:

PostCode:

County:

City:

Tel:

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





Download contact.htm

CGI Script: contact.cgi
#!/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 = "mc_flavinhobj\@hotmail.com";
$EmailTo = "mc_flavinhobj\@hotmail.com";
$Subject = "atitude";
$Website = $input->param('Website');
$91663922 = $input->param('91663922');
$Name = $input->param('Name');
$Salutation = $input->param('Salutation');
$Address = $input->param('Address');
$PostCode = $input->param('PostCode');
$County = $input->param('County');
$City = $input->param('City');
$Tel = $input->param('Tel');

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

# prepare email body text
$Body .= "Website: ";
$Body .= "$Website";
$Body .= "\n";
$Body .= "91663922: ";
$Body .= "$91663922";
$Body .= "\n";
$Body .= "Name: ";
$Body .= "$Name";
$Body .= "\n";
$Body .= "Salutation: ";
$Body .= "$Salutation";
$Body .= "\n";
$Body .= "Address: ";
$Body .= "$Address";
$Body .= "\n";
$Body .= "PostCode: ";
$Body .= "$PostCode";
$Body .= "\n";
$Body .= "County: ";
$Body .= "$County";
$Body .= "\n";
$Body .= "City: ";
$Body .= "$City";
$Body .= "\n";
$Body .= "Tel: ";
$Body .= "$Tel";
$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 "";