<%args> $Email => 'nouser@blank.com' $call=>'note' <%shared> my $IEmail; my %IARGS; <%init> $IEmail = $Email; %IARGS = %ARGS; #$m->comp('note') if(!$IARGS{control}); $m->comp('defSendEmail') if $IARGS{control} eq 'email'; #$m->comp('thankyou') if $IARGS{control} eq 'thanks'; Untitled Document

Contact Us
<&$call&>

<& footers/footer.htm&> <%def note> <%init>
 

Contact Us

We are always striving to make our site more user-friendly and informative. If we could help answer a question not addressed by this site please, fill out the following form. If you already have a referral number, be sure and enter this number so your information will automatically be pulled up by the system. We look forward to hearing from you!

313 W Woodard St
Denison, Texas 75020
Phone: (903) 465-1551
Fax: (903) 465-8443

Name

Telephone number

Fax

E-mail

Preferred Method of contacting you
Comments:
<%def no> Processing <%def defSendEmail> <%init> use MIME::Lite; my $email = MIME::Lite->new( To => 'denisoncoc@texoma.net', Subject => 'Contact Us', From => $IEmail, Type => 'TEXT', Data => " Name: $IARGS{Name} Phone: $IARGS{Phone} Fax: $IARGS{Fax} Email: $IARGS{Email} Contact: $IARGS{Contact} comments: $IARGS{comments}" ); $email->send; my $control='thanks'; $m->redirect("contact.htm?call=thanks"); <%def thanks>

thanks