Pipes | Streams  «Prev 

valid.htmlp in Perl

<!-- $filename -->
<table width=450>
<tr> 
<td width=20 height=20>
  <td colspan=2>

<h2>Email Me!</h2>

<p>Here's the message you entered: 

<tr> <td width=20 height=20>

<tr valign=top> <td width=20 height=20>
  <td><strong>Your Name:</strong> <td><code>$name</code>
<tr valign=top> <td width=20 height=20>
  <td><strong>Your Email Address:</strong> <td><code>$email</code>
<tr valign=top> <td width=20 height=20>
  <td><strong>Subject:</strong> <td><code>$subject</code>
<tr valign=top> <td width=20 height=20>
  <td><strong>The Message:</strong> <td><code>$disp_message</code>

<tr> <td width=20 height=20>
<tr> <td width=20 height=20>
  <td colspan=2>

<form action="$callback" method=POST>

<input type=hidden name=name value="$name">
<input type=hidden name=email value="$email">
<input type=hidden name=subject value="$subject">
<input type=hidden name=message value="$message">

<input type=submit value=" Send It ">
<input type=submit name=oops value="   Oops!   ">

<input type=hidden name=referer value="$referer">
<input type=hidden name=state value=sent>

</form>

<tr> <td width=20 height=20>
</table>