#!/usr/bin/perl

# view.html: View a rental property in the gov database
#		 Client: Villas of Gatlinburg
#            Created 11/02/99 by Celeste

require "OLconfig.pl";

# Initialize CGI environment:
use CGI qw/:standard/;
require "custom/vdslib.pl";

print header;

$inName = param('Name');
$inName =~ s/\'/\\\'/g;
$inNum = param('Num');

$top = &VDS::readFile('top.html');
$top =~ s#PAGETITLE#<center><font size=+1>Contact Us</font></center>#;
$top =~ s#BANNER#Contact Us#;

print $top;

if( $inName || $inNum ){
 $message = "I was looking at property: $inNum $inName and would like to know...\n";
}
else {
 $message = "Please provide information regarding...\n";
}

print qq (
</center><P> 
<form method="post" ACTION="/book/mail.html">
<INPUT TYPE="HIDDEN" NAME="User" VALUE="$User">
<INPUT TYPE="HIDDEN" NAME="HouseName" VALUE="$inName">
<INPUT TYPE="HIDDEN" NAME="HouseNum" VALUE="$inNum">
<FONT FACE="$fontFace" size=-1 >We would like the opportunity to provide you with more information. Please fill in the simple form below, select the <b>Submit Request</b> button, and we will get back to you shortly.
<p>Please fill in fields carefully. This is the ONLY way we have to get back in touch with you.
<table cellpadding=0 cellspacing=0><tr><td align="right">
<FONT  FACE="$fontFace" size=-1 >Your Name:</font>
</td><td>
<FONT  FACE="$fontFace" size=-1 >
       <input type="text" name="_NAME" size=30 maxlength=98>
</font>
</td></td><tr><td align="right">
<FONT  FACE="$fontFace" size=-1 >E-Mail:</font>
</td><td>
<FONT  FACE="$fontFace" size=-1 >
  <input type="text" name="_EMAIL" size=20 maxlength=98> 
</font>
</td></tr><tr><td align="right">
<FONT  FACE="$fontFace" size=-1 >Phone/Fax:</font>
</td><td>
<FONT  FACE="$fontFace" size=-1 >
       <input type="text" name="_PHONE" size=30 maxlength=98>
</font>
</td></tr><tr><td align="right">
<FONT  FACE="$fontFace" size=-1 >Street Address:</font>
</td><td>
<FONT  FACE="$fontFace" size=-1 >
  <input type="text" name="_STREET1" size=30 maxlength=98>
</font>
</td></tr><tr><td align="right">
<FONT  FACE="$fontFace" size=-1 >Street Address:</font>
</td><td>
<FONT  FACE="$fontFace" size=-1 >
  <input type="text" name="_STREET2" size=30 maxlength=98>
</font>
</td></tr><tr><td align="right">
<FONT  FACE="$fontFace" size=-1 >City:</font>
</td><td>
<FONT  FACE="$fontFace" size=-1 >
            <input type="text" name="_CITY" size=30 maxlength=98>
</font>
</td></tr><tr><td align="right">
<FONT  FACE="$fontFace" size=-1 >State/Province:</font>
</td><td>
<FONT  FACE="$fontFace" size=-1 >
  <input type="text" name="_STATE" size=10 maxlength=98>
</font>
</td></tr>
<tr><td align="right">
<FONT  FACE="$fontFace" size=-1 >Zip/Postal Code:</font>
</td><td>
<FONT  FACE="$fontFace" size=-1 >
 <input type="text" name="_ZIP" size=12 maxlength=98>
</font>
</td></tr>
<tr><td align="right">
<FONT  FACE="$fontFace" size=-1 >Country:</font>
</td><td>
<FONT  FACE="$fontFace" size=-1 >
 <input type="text" name="_COUNTRY" size=12 maxlength=98 value="US">
</font>
</td></tr>
</table>
<p>
How did you find us?:<br><input type="radio" name="how" value="internet"> Internet, How? : <input type="text" name="int-type" size=20 max
length=98 >

<br><input type="radio" name="how" value="Publication,"> Publication, Which one?: <input type="text" name="pub-type" size=20 maxlength=98 >
<br>May we contact you via e-mail to announce rate reductions or special events?: <input type="checkbox" name="contact" value="Yes" checked>
<BR>
<p>
Please let us know what properties you may be interested in, the dates you would like to visit, and the best way and time to contact you:
<CENTER>
<textarea name="_COMMENTS" rows=7 cols=40 wrap>$message
</textarea><p>
<input type="submit" value="Submit Request"> <input type="reset" value="Clear Fields">
<P>
</form>

</font>
);

$bottom = &VDS::readFile('bottom.html');
print $bottom;

exit;