<% require '../misc/emailit.pl'; if ( $Request->Form('submitted') ne "yes" ) { &ShowForm; }else{ &ProcessForm; } %>
<% sub ProcessForm { $email=$Request->Form('EmailAddress'); $body="From: " . $Request->Form('CompanyName') . "\n\n" . $Request->Form('Question'); #Send comment to ernesto &email_it('Stofen.com - FAQ Form Submission', $email, 'ernesto@stofen.com', $body); &email_it('Stofen.com - FAQ Form Submission', 'info@stofen.com', 'ddeckert@pacbell.net', $body); #send thank you reply to commenter $body= "Thank You for contacting Sto-fen Products.\n\n"; $body= $body . "We value your input and questions. We have received your FAQ submission and it will be reviewed and answered by email.\n\n"; $body= $body . "Again, Thank you for your interest in Sto-fen Products!"; &email_it('Stofen.com - We have received your FAQ Question', 'ernesto@stofen.com', $email, $body); &ShowMessage; } sub ShowForm { %>
Submit a Question / Comment

We at Sto-Fen Products are always glad to here from out customers, associates, and business partners. Please fill out the form below completely and we will make sure it is handled as soon as possible.

Your Name:
Your E-Mail:
Enter your question.
Enter the Verification Text you see below:
<% #Set Captcha Variables @cps =qw( 2DRT 2G2T 2GDO 2GPV 2J3K 2JIM 2JYT 2MJQ 4DVO 4FVL 4GTG 4H3L 4H4U 4HME 4IM3 4IZR EWDK EXGJ EXID EXLV EXMR EYMN EYRU EZKS ISSG ISWW ITJX ITQO IUTV IVKI IW4V IWW3 KVYQ KWHI KWQI KWTJ KWVJ KX9Q KYWF KZS9 PVXW PWPV PWW9 PYQM PYWV Q4HV Q4IX Q4MI UPOU UQDX UQHE UQSL US3E USTI UTZV UU22 WPH3 WPOT WQ4R WQJH WQKU WQMN WRSI WS9E ); $randomnumber = int rand (@cps); if ($randomnumber < 1){$randomnumber = 1;} print " "; %>
(Text is case sensitive)
Thank you for your interest in Sto-Fen Products! *  Required Field - Please make sure that it is filled in.
<% } sub ShowMessage { %>

Thank You!

Your comment has been submitted.

Thank you for your interest in Sto-Fen Products!
<% } %>