require '/home/httpd/WebSites/trainori.com/perl/perl.pl'; Trainor Interactive
&includeFile("/header.html");
&includeFile("/nav.html"); $continue_to_form = 1; if ($QUERY{'send_form'}) { if ($QUERY{'name'} eq "" || $QUERY{'email'} eq "") { $error_message = qq!
      The Fields marked with * are required. Thank you.
!; # CONTINUTE TO FORM } else { $continue_to_form = 0; my $mailprog = qq!/usr/sbin/sendmail -t!; open (MAIL,"|$mailprog $QUERY{'email'}") || die "Can't open $mailprog!\n"; print MAIL "Reply-To: $QUERY{'email'}\n"; print MAIL "From: $QUERY{'email'}\n"; print MAIL "To: tt\@trainor.com\n"; print MAIL "Subject: Trainori.com Contact Form\n\n"; print MAIL qq!Message is from: $QUERY{'name'} at company: $QUERY{'company'}\n\n!; print MAIL qq!Market: $QUERY{'market'}\n\n!; print MAIL qq!Phone Number: $QUERY{'phone'}\n\n!; print MAIL qq!Message Body:\n\n------------------------------\n\n!; print MAIL qq!$QUERY{'comments'}\n\n!; } } if ($continue_to_form == 1) { print qq! $error_message

Contact Form
NAME *
COMPANY
MARKET
EMAIL *
PHONE
COMMENTS:

 

 



Trainor interactive Inc.

135 Oxford Road
New Hartford, NY 13413

315.797.7970 (P)
315.797.7975 (F)
!; } else { print qq!

Thanks for your interest\! You'll receive a reply shortly.
!; }
&includeFile("/foot.html");