<%args> $control=>'mailForm' $Email => 'kelly@ccs-corporate.com' <%shared> my $IEmail; my %IARGS; <%init> $IEmail = $Email; %IARGS = %ARGS; <&$control&> <%def mailForm>

Questions and Comments
Name:
Phone:
Fax:
Email:
Question or Comments? Ask us in the box below.

<%def email> <%init> use MIME::Lite; my $email = MIME::Lite->new( To => 'prevention.specialist@verizon.net', Subject => 'Contact Us', From => '"Questions and Comments" ', Type => 'TEXT', Data => " Name: $IARGS{name} Email: $IARGS{email} Phone: $IARGS{phone} Fax: $IARGS{fax} Comments: $IARGS{comments}" ); $email->send; my $callPage=$IARGS{'callPage'}; $m->redirect("?control=done"); <%def done> <%flags> inherit=>undef

Thank you, your information has been sent.

Back to ARCOT