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


Do you want to be contacted? Please click the yes if you want to be contacted.

If you don't want to be contacted, please skip this part and fill out the rest of the form.

Please describe the problem


The information contained in this site was valid at the time of posting. Dallas County assumes no liability for damages incurred directly or indirectly as a result of errors, omissions or discrepancies.
This site is sponsored by Cweb Communications. All rights reserved. This site was last edited on Wednesday, September 11, 2002 04:31:22 PM Central Time.
<%def email> <%init> use MIME::Lite; my $email = MIME::Lite->new( To => 'constable_pct_4@dallascounty.org', Subject => 'Anonymous Tip Form', From => '" Anonymous Tip Form" ', Type => 'TEXT', Data => " First Name: $IARGS{fname} Last Name: $IARGS{lname} Work Phone: $IARGS{wphone} Home Phone: $IARGS{hphone} Email: $IARGS{email} Location: $IARGS{location} Location Other: $IARGS{location_other} Location Description: $IARGS{location_description} Problem Description: $IARGS{problem_description}" ); $email->send; my $callPage=$IARGS{'callPage'}; $m->redirect("?control=done"); <%def done>

Thank you, your information has been sent.

Return to home page