Gossamer Forum
(Advanced Search)
for
Home : Products : DBMan : Customization :

Another try at this...

Jun 28, 2001, 1:29 PM
chronisca
User (69 posts)
Jun 28, 2001, 1:29 PM
Post #1 of 1
Views: 1218
Shortcut
Quote Reply
Another try at this...
Okay, I added the modification as I stated in my last post for limitrecords so that a user can add one record at sign up at the same time he creates an account. Since I had gotten no response to my post I tried to figure it out myself. Now I get this error:

Invalid userid: . Must only contain only letters and be less than 12 and greater than 3 characters.

It makes no sense since I have no area in which to add the UserId (hence my last post where there is no form area using the mod that designates a field for such.)

I don't know what is wrong...Someone please help :( I am getting very frustrated as I know it is probably something really simple.

Here is the html.pl file if it will help (sorry it's so long)

=========================
#
# ----------------------
# DBMan
# ----------------------
# Database Administrator
#
# File: html.pl
# Description: This file contains all the HTML that the program generates.
# Author: Alex Krohn
# Web: http://www.gossamer-threads.com/
# Version: 2.05
# CVS Revision: $Id: html.pl,v 1.3 2000/07/08 18:14:40 alex Exp $
#
# COPYRIGHT NOTICE:
#
# Copyright 1997 Gossamer Threads Inc. All Rights Reserved.
#
# This program is being distributed as shareware. It may be used and
# modified free of charge for personal, academic, government or non-profit
# use, so long as this copyright notice and the header above remain intact.
# Any commercial use should be registered. Please also send me an email,
# and let me know where you are using this script. By using this program
# you agree to indemnify Gossamer Threads Inc. from any liability.
#
# Selling the code for this program without prior written consent is
# expressly forbidden. Obtain permission before redistributing this
# program over the Internet or in any other medium. In all cases
# copyright and header must remain intact.
#
# Please check the README file for full details on registration.
# =====================================================================

##########################################################
## HTML Globals ##
##########################################################
# Put any globals you like in here for your html pages.
$html_title = 'CitySingles.net';

##########################################################
## Record Layout ##
##########################################################

sub html_record_form {
# --------------------------------------------------------
# The form fields that will be displayed each time a record is
# edited (including searching). You don't want to put the
# <FORM> and </FORM tags, merely the <INPUT> tags for each field.
# The values to be displayed are in %rec and should be incorporated
# into your form. You can use &build_select_field, &build_checkbox_field
# and &build_radio_field to generate the respective input boxes. Text and
# Textarea inputs can be inserted as is. If you turn on form auto
# generation, the program will build the forms for you (all though they may
# not be as nice). See the README for more info.

my (%rec) = @_;
($db_auto_generate and print &build_html_record_form(%rec) and return);

my $font = 'Font face="Arial" Size=2 Color=#000000';

print qq|

|;
if ($in{'signup_form'}) {
print qq|
<tr><td width="100" bgcolor="#FFCC00"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><b>Password:</b></FONT></td>
<td width="385" bgcolor="#FFFF99"><input type="PASSWORD" name="pw" value="$in{'pw'}"></td></tr>
|;
}
print qq|

<input type="hidden" name="ID" value="$rec{'ID'}">
<input type="hidden" name="Userid" value="$rec{'Userid'}">
<input type="hidden" name="Date" value="$rec{'Date'}">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><b>

</b></font>
<table width="485" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top">
<table width="485" border="0" cellspacing="1" cellpadding="1">
<tr>
<td height="60"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">This
is where you get to tell the world about yourself! Please fill this
form out as completely as you can. Remember, the more you ask for,
the more of a chance you have to meet that special someone you have
been searching for!</font></td>
</tr>
</table>


<table width="485" cellpadding=3 cellspacing=1 border=0 bgcolor="#000000">
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><b>This
is the headline that will be displayed:</b></font></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="Headline" value="$rec{'Headline'}" size="60" maxlength="255">
</font></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">City:</font></b></td>
<td align="left" valign="middle" width="200" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">State:</font></b></td>
<td align="left" valign="middle" width="120" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">ZipCode:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td align="left" valign="middle" height="23"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="City" value="$rec{'City'}" size="30" maxlength="255">
</font></td>
<td align="left" valign="middle" width="200" height="23"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="State" value="$rec{'State'}" size="20" maxlength="255">
</font></td>
<td align="left" valign="middle" width="120" height="23"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="ZipCode" value="$rec{'ZipCode'}" size="10" maxlength="255">
</font></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Country:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="Country" value="$rec{'Country'}" size="40" maxlength="255">
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">This
is the email address you would like all correspondence to be send
to:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="email" value="$rec{'email'}" size="40" maxlength="255">
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Choose
a category where you would like to display your ad:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("Category", "$rec{'Category'}"); print
qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Gender:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">|;
print &build_select_field ("Gender", "$rec{'Gender'}"); print qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Sexual
Preference:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("SexualPref", "$rec{'SexualPref'}"); print
qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Age:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="Age" value="$rec{'Age'}" size="10" maxlength="255">
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Religion:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="Religion" value="$rec{'Religion'}" size="40" maxlength="255">
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Ethnicity:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="Ethnicity" value="$rec{'Ethnicity'}" size="40" maxlength="255">
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Marital
Status:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("MarStatus", "$rec{'MarStatus'}"); print
qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Profession:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="Profession" value="$rec{'Profession'}" size="60" maxlength="255">
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Hair:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("Hair", "$rec{'Hair'}"); print qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Eyes:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("Eyes", "$rec{'Eyes'}"); print qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Describe
your body type:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="BodyType" value="$rec{'BodyType'}" size="60" maxlength="255">
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Do
you smoke?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("Smoke", "$rec{'Smoke'}"); print qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Do
you drink?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("Drink", "$rec{'Drink'}"); print qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">How
often to you date?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("DateFreq", "$rec{'DateFreq'}"); print
qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Do
you have children?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("Children", "$rec{'Children'}"); print
qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Any
pets?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("Pets", "$rec{'Pets'}"); print qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">What
type of residence do you live?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("Residence", "$rec{'Residence'}"); print
qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">What
is your form of transportation?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("Trans", "$rec{'Trans'}"); print qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Horoscope:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("Horoscope", "$rec{'Horoscope'}"); print
qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">List
any sports or hobbies that you enjoy:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="SportsHobb" value="$rec{'SportsHobb'}" size="40" maxlength="255">
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">What
are your favorite films or TV shows?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<textarea name="FavFilmsTV" rows="2" cols="40" wrap="VIRTUAL">$rec{'FavFilmsTV'}</textarea>
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">What
is your favorite music or artist(s)?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<textarea name="FavMusicArt" rows="2" cols="40" wrap="VIRTUAL">$rec{'FavMusicArt'}</textarea>
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Choose
a favorite color:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485" height="23"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> |;
print &build_select_field ("FavColor", "$rec{'FavColor'}"); print
qq|</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">What
are your favorite foods?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="TEXT" name="FavFood" value="$rec{'FavFood'}" size="60" maxlength="255">
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Describe
Yourself:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<textarea name="DescribeYou" rows="3" cols="30" wrap="VIRTUAL">$rec{'DescribeYou'}</textarea>
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Describe
what you are looking for:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<textarea name="DescribePer" rows="3" cols="30" wrap="VIRTUAL">$rec{'DescribePer'}</textarea>
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Describe
your idea of the perfect date:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td colspan="3" align="left" valign="middle" width="485"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<textarea name="DescribeDat" rows="3" cols="30" wrap="VIRTUAL">$rec{'DescribeDat'}</textarea>
</font></b></td>
</tr>
<tr bgcolor="#FFCC00">
<td align="left" valign="middle" width="485" height="23" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">What
are your dreams/goals?</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td align="left" width="485" colspan="3" height="23" valign="middle"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<textarea name="DreamsGoals" rows="3" cols="30" wrap="VIRTUAL">$rec{'DreamsGoals'}</textarea>
</font></b></td>
</tr>
|; if ($form_upload) { print qq|
<tr bgcolor="#FFCC00">
<td align="left" width="485" height="23" valign="middle" colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">Browse
your computer and upload your photo:</font></b></td>
</tr>
<tr bgcolor="#FFFF99">
<td align="left" width="485" colspan="3" height="23" valign="middle"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">
<input type="FILE" name="Filename" size="50">
</font></b></td>
</tr>
|; } print qq|
</table>

</td>
</tr>
</table>



|;
}

###########################################################
#####Added 06/04/2001 CC for CitySingles.net Personals#####
###########################################################

sub html_record {
# --------------------------------------------------------
# How a record will be displayed. This is used primarily in
# returning search results and how it is formatted. The record to
# be displayed will be in the %rec hash.
# This is the "short display" -- the list of records that are returned
# from a search.

my (%rec) = @_;
$rec{$db_key} =~ s/<?.B>//g;


# create link to full display
$record_number = ((($nh - 1) * $db_max_hits) + $rec_count);

$long_url = $ENV{'QUERY_STRING'};
$long_url =~ s/\&nh=\d+//;
$long_url =~ s/\&mh=\d+//;

$long_url = "$db_script_url?$long_url&nh=$record_number&mh=1";

print "<TD>"; # do not remove this! It is necessary to make the records display properly

# Below is where you define what you want to appear for each record in the "short" display.
# You can make this whatever you want, and display as many fields as you would like.
# Choose which of the fields you would like for users to click on to reach the full display
# of records and use that field name in place of "Title" below.
#
# Be sure that you use <a href="$long_url"> for the link to your full record display.

# <-- Start of short display formatting -- >

print qq|
<table width="485" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr>
<td>
<table width="485" border="0" cellspacing="0" cellpadding="3" height="20">
<tr>
<td bgcolor="#FFCC00"><a href="$long_url"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>$rec{'Headline'}</b></font></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="3" bgcolor="#FFFFCC" height="20">
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Category'}</font></td>
<td width="200"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'City'}</font>,
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'State'}</font>
</td>
<td width="35"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">|;
if ($rec{'Graphic'} eq "Yes") { print qq| $pic_gif|; }print qq|
</font></td>
</tr>
</table>
</td>
</tr>
</table>
|;

# if you want to display your fields in columns, use the following format:
# print qq|
# $rec{'Field'}</td>
# <td>$rec{'Field'}</td>
# <td>$rec{'Field'}</td>
# <td>$rec{'Field'}|;

# Add or remove columns as needed. Be sure you add the $long_url link to one of your fields

# <-- End of short display formatting -- >

print "</TD>"; # do not remove this! It is necessary to make the records display properly

}

###########################################################
#####Added 06/04/2001 CC for CitySingles.net Personals#####
###########################################################

sub html_record_long {
#----------------------------------------------------------------
my (%rec) = @_;
$rec{$db_key} =~ s/<.?B>//g;

if ($db_total_hits > 1) {

# create links to previous and next records

$next_url = $ENV{'QUERY_STRING'};
$next_url =~ s/\&nh=\d+//;
$next_hit = $nh + 1;
$prev_hit = $nh - 1;

if ($prev_hit) {
$previous = qq~<a href="$db_script_url?$next_url&nh=$prev_hit"><img src="http://www.citysingles.net/new/images/previous.gif" border="0"></a>~;
}
else { $previous = " "; }

if ($next_hit <= $db_total_hits) {
$next = qq~<a href="$db_script_url?$next_url&nh=$next_hit"><img src="http://www.citysingles.net/new/images/next.gif" border="0"></a>~;
}
else { $next = " "; }

# create link back to short display
$list_url = $next_url;
$list_url =~ s/\&mh=\d+//;
$mh = $db_max_hits;
$lh = int(($nh-1)/$mh) + 1;
$list = qq~<a href="$db_script_url?$list_url&nh=$lh"><$font>Back to record list</font></a>~;

# print out the links
print qq|
<table width=100%>
<tr><td width=50%>$previous</td>
<td width=50% align=right>$next</td></tr>
<tr><td colspan=2 align=center>$list</td></tr>
<tr><td colspan=2 align=center><$font>Record $nh of $db_total_hits</font></table>
|;
}

# Below is where you define your form.

# <-- Start of record display -->

my $font_color = 'Font face="Verdana, Arial, Helvetica" Size=2 Color=#003399';

print qq|
<input type="hidden" name="Userid" value="$rec{'Userid'}">
<input type="hidden" name="email" value="$rec{'email'}">
<table width="500" border="0" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr>
<td>
<table width="500" border="0" cellspacing="1" cellpadding="5" bgcolor="#000000">
<tr>
<td bgcolor="#FFCC00"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>$rec{'Headline'}</b></font></td>
</tr>
</table>
<table width="500" border="0" cellspacing="1" cellpadding="5">
<tr align="left" valign="top">
<td bgcolor="#FFFF99" width="170"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>$rec{'Age'}</b></font><b>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Gender'}

$rec{'MarStatus'}</font>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Religion'}</font>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'SexualPref'}</font>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Ethnicity'}</font>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Profession'}</font>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Horoscope'}</font>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'City'}</font>,
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'State'}</font>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'ZipCode'}</font>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Country'}</font></b>

</td>
<td bgcolor="#FFFFCC" valign="middle" align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">|; # to close off a previous print qq| statement
opendir (GRAPHIC, "$SAVE_DIRECTORY") or &cgierr("unable to open directory in delete records: $SAVE_DIRECTORY. Reason: $!");
@files = readdir(GRAPHIC);
closedir (GRAPHIC);
$file_test = $rec{$db_key} . ".";
foreach $file (@files) {
if ($file =~ /^$file_test/) {
print qq|<img src= "$SAVE_DIRECTORY_URL/$file">|;
$graphic_found=1;
}
}
print qq|</font></td></tr>
</table>
<table width="500" border="0" cellspacing="1" cellpadding="5" bgcolor="#000000">
<tr>
<td bgcolor="#FFCC00"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>More
about me:</b></font></td>
</tr>
<tr>
<td bgcolor="#FFFFCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">I
have <b>$rec{'Hair'}</b> hair and<b> $rec{'Eyes'} </b>eyes. When you
meet me you will notice that I am <b>$rec{'BodyType'}</b>. I would
describe myself as <b>$rec{'DescribeYou'}</b></font>.</td>
</tr>
</table>
<table width="500" cellpadding=5 cellspacing=1 border=0 bgcolor="#000000">
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Smoke:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Smoke'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Drink:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Drink'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Dating
Frequency:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'DateFreq'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Children:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Children'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Pets:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Pets'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Residence:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Residence'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Form
of transportation:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'Trans'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Sports/Hobbies:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'SportsHobb'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Favorite
Films/TV Shows:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'FavFilmsTV'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Favorite
Music/Artists:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'FavMusicArt'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Favorite
Color:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'FavColor'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Favorite
Food:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'FavFood'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">What
I am looking for:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'DescribePer'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">The
perfect date:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'DescribeDat'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">My
Dreams/Goals:</font></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">$rec{'DreamsGoals'}</font></td>
</tr>
<tr>
<td bgcolor="#FFFF99" align="Right" valign="BOTTOM" width="170"><b></b></td>
<td bgcolor="#FFFFCC" valign="TOP"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Send
an email to</b> <a href="$db_script_link_url&$db_key=$rec{$db_key}&send_email_form=1"><b>$rec{'Userid'}</b></a></font></td>
</tr>
</table>

</td>
</tr>
</table>


|;
# <-- End of record display -->

}


##########################################################
## Home Page ##
##########################################################

sub html_home {
# --------------------------------------------------------
# The database manager home page.

&html_print_headers;
print qq|
<html>
<head>
<title>$html_title: Main Menu.</title>
</head>

<body background="http://www.citysingles.net/new/images/bg_yellowstripe.gif">
<table border=0 cellpadding=5 cellspacing=3 width=485 align=left valign=top>
<tr><td>
<p><p align="left">

<font face="verdana,arial,helvetica" size="1">
This database has been set up so any user can view any other users information, but you can
only modify and delete your own records. If you have admin access, you can of course do anything
you like.


<em>Enjoy!</em> and let me <a href="mailto:webmaster\@citysingles.net">know</a> if you have any comments!
</font>

</p>
|; &html_footer; print qq|
</td></tr>
</table>
</center>
</body>
</html>
|;
}

sub html_footer {
# --------------------------------------------------------
# Print the menu and the footer and logo. It would be nice if you left
# the logo in. ;)
#
# We only print options that the user have permissions for.
#

my $font = 'Font face="Verdana" Size=1';

print qq!<P align=center><b><$font>!;
print qq! <A HREF="$db_script_link_url">Home</A> !;
print qq!| <A HREF="$db_script_link_url&add_form=1">Add</A> ! if ($per_add);
print qq!| <A HREF="$db_script_link_url&view_search=1">Advance Search</A> ! if ($per_view);
print qq!| <A HREF="$db_script_link_url&delete_search=1">Delete</A> ! if ($per_del);
print qq!| <A HREF="$db_script_link_url&modify_search=1">Modify</A> ! if ($per_mod);
print qq!| <A HREF="$db_script_link_url&view_records=1&$db_key=*">List All</A> ! if ($per_view);
print qq!| <A HREF="$db_script_link_url&admin_display=1">Admin</A> ! if ($per_admin);
print qq!| <A HREF="$db_script_link_url&logoff=1">Log Off</A> !;
print qq!</font></b></p>!;

# Print the Footer -- note: a link (doesn't have to be the graphic) is required unless you purchase
# a license. See: http://gossamer-threads.com/scripts/register/ for more info.
print qq!
<table border=0 width=100%>
</table>
!;
}

sub html_search_options {
# --------------------------------------------------------
# Search options to be displayed at the bottom of search forms.
#
print qq~
<table width="485" border="0" cellspacing="1" cellpadding="3" bgcolor="#000000">
<tr>
<td bgcolor="#FFCC00"><strong><font face="Verdana" size="1">Advanced Search</font></strong></td>
</tr>
</table>
<P>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<INPUT TYPE="CHECKBOX" NAME="ma">
Match Any

<INPUT TYPE="CHECKBOX" NAME="cs">
Match Case

<INPUT TYPE="CHECKBOX" NAME="ww">
Whole Words

<INPUT TYPE="CHECKBOX" NAME="re">
Reg. Expression<BR>

<INPUT TYPE="TEXT" NAME="keyword" SIZE=15 MAXLENGTH=255>
Keyword Search (will match against all fields)<BR>

<INPUT TYPE="TEXT" NAME="mh" VALUE="$db_max_hits" SIZE=3 MAXLENGTH=3>
Max. Returned Hits<BR>
Sort By:

<SELECT NAME="sb">

<OPTION>---
~; for (my $i =0; $i <= $#db_cols; $i++) { print qq~
<OPTION VALUE="$i">$db_cols[$i]</OPTION>\n~ if ($db_form_len{$db_cols[$i]} >= 0); } print qq~

</SELECT>
Sort Order:

<SELECT NAME="so">

<OPTION VALUE="ascend">Ascending

<OPTION VALUE="descend">Descending

</SELECT>




<strong>Search Tips:</strong>

- use '*' to match everything in a field)<BR>
- put a '>' or '<' at the beginning to to do range searches.</font>
~;
}

##########################################################
## Adding ##
##########################################################

sub html_add_form {
# --------------------------------------------------------
# The add form page where the user fills out all the details
# on the new record he would like to add. You should use
# &html_record_form to print out the form as it makes
# updating much easier. Feel free to edit &get_defaults
# to change the default values.

$form_upload = 1;
&html_print_headers;
print qq|
<html>
<head>
<title>$html_title: Add a New Record.</title>
</head>

<body background="http://www.citysingles.net/new/images/bg_yellowstripe.gif">
<FORM ENCTYPE="multipart/form-data" action="$db_script_url" method="POST">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<p align="left">
<table border=0 cellpadding=5 cellspacing=3 width=485 align=left valign=top>
<tr><td>
<p><p align="left"><$font_title><b>
Add a New Record
</b></font>
<$font>
|; &html_record_form (&get_defaults); print qq|
</font></p>
<p><p align="left"> <INPUT TYPE="SUBMIT" NAME="add_record" VALUE="Add Record"> <INPUT TYPE="RESET" VALUE="Reset Form"></center></p>
|; &html_footer; print qq|
</td></tr>
</table>
</center>
</form>
</body>
</html>
|;
}

sub html_add_success {
# --------------------------------------------------------
# The page that is returned upon a successful addition to
# the database. You should use &get_record and &html_record
# to verify that the record was inserted properly and to make
# updating easier.

&html_print_headers;
print qq|
<html>
<head>
<title>$html_title: Record Added.</title>
</head>

<body background="http://www.citysingles.net/new/images/bg_yellowstripe.gif">
<p align="left">
<table border=0 cellpadding=5 cellspacing=3 width=485 align=center valign=top>
<tr><td>
<p><p align="left"><$font_title><b>
Record Added
</b></font></center>

<$font>
<P><Font face="Verdana, Arial, Helvetica" Size=2>The following record was successfully added to the database:</FONT>

#####Changed the following routine per short/long display modification 06/04/2001 CC#####

|; &html_record_long(&get_record($in{$db_key})); print qq|
</font></p>
|; &html_footer; print qq|
</td></tr>
</table>
</center>
</body>
</html>
|;
}

sub html_add_failure {
# --------------------------------------------------------
# The page that is returned if the addition failed. An error message
# is passed in explaining what happened in $message and the form is
# reprinted out saving the input (by passing in %in to html_record_form).

$form_upload = 1;
my ($message) = $_[0];

&html_print_headers;
print qq|
<html>
<head>
<title>$html_title: Error! Unable to Add Record.</title>
</head>

<body background="http://www.citysingles.net/new/images/bg_yellowstripe.gif">
<FORM ENCTYPE="multipart/form-data" action="$db_script_url" method="POST">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<p align="left">
<table border=0 cellpadding=5 cellspacing=3 width=485 align=center valign=top>
<tr><td>
<p><p align="left"><$font_title><b>
Error: <font color=red>Unable to Add Record</font>
</b></font></center>

<$font>
There were problems with the following fields: <FONT COLOR="red"><B>$message</B></FONT>
<P>Please fix any errors and submit the record again.</p></font>
|; &html_record_form (%in); print qq|
</font></p>
<p><p align="left"> <INPUT TYPE="SUBMIT" NAME="add_record" VALUE="Add Record"> <INPUT TYPE="RESET" VALUE="Reset Form"></center></p>
|; &html_footer; print qq|
</td></tr>
</table>
</center>
</form>
</body>
</html>
|;
}

##########################################################
## Viewing ##
##########################################################

sub html_view_search {
# --------------------------------------------------------
# This page is displayed when a user requests to search the
# database for viewing.
# Note: all searches must use GET method.
#
&html_print_headers;
print qq|
<html>
<head>
<title>$html_title: Search the Database.</title>
</head>

<body background="http://www.citysingles.net/new/images/bg_yellowstripe.gif">
<form action="$db_script_url" method="GET">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<p align="left">
<table border=0 cellpadding=5 cellspacing=3 width=485 align=left valign=top>
<tr><td>
<$font>
|; &html_search_options; print qq|
</font></p>
<p><p align="left"> <INPUT TYPE="SUBMIT" NAME="view_records" VALUE="View Records"> <INPUT TYPE="RESET" VALUE="Reset Form"></center></p>
|; &html_footer; print qq|
</td></tr>
</table>
</center>
</form>
</body>
</html>
|;
}

###########################################################
#####Added 06/04/2001 CC for CitySingles.net Personals#####
###########################################################

sub html_view_success {
# --------------------------------------------------------
# This page displays the results of a successful search.
# You can use the following variables when displaying your
# results:
#
# $numhits - the number of hits in this batch of results.
# $maxhits - the max number of hits displayed.
# $db_total_hits - the total number of hits.
# $db_next_hits - html for displaying the next set of results.
#

my (@hits) = @_;
my ($numhits) = ($#hits+1) / ($#db_cols+1);
my ($maxhits); $in{'mh'} ? ($maxhits = $in{'mh'}) : ($maxhits = $db_max_hits);
$in{'nh'} ? ($nh = $in{'nh'}) : ($nh = 1);

&html_print_headers;
print qq|
<html>
<head>
<title>$html_title: Search Results.</title>
</head>
<body background="http://www.citysingles.net/new/images/bg_yellowstripe.gif">
<p align="left">
<table border=0 cellpadding=5 cellspacing=3 width=485 align=left valign=top>
</table>|;

# Go through each hit and convert the array to hash and send to
# html_record for printing.
if ($maxhits == 1) {
&html_record_long(&array_to_hash(0, @hits));
}

else {
print qq|<p><$font>Your search returned <b>$db_total_hits</b> matches.</font>|;
if ($db_next_hits) { print "
<$font>Pages: $db_next_hits</font>"; }
$rec_count = 1;
print "<table>";
for (0 .. $numhits - 1) {
print "<tr>";
&html_record (&array_to_hash($_, @hits));
print "</tr>";
++$rec_count;
}
print "</table>";
if ($db_next_hits) { print "
<$font>Pages: $db_next_hits</font>";}
}
&html_footer;

print qq|</td></tr>
</table>
</blockquote>
</body>
</html>
|;
}


sub html_view_failure {
# --------------------------------------------------------
# The search for viewing failed. The reason is stored in $message
# and a new search form is printed out.

my ($message) = $_[0];

&html_print_headers;
print qq|
<html>
<head>
<title>$html_title: Search Failed.</title>
</head>

<body background="http://www.citysingles.net/new/images/bg_yellowstripe.gif">
<form action="$db_script_url" method="GET">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<p align="left">
<table border=0 cellpadding=5 cellspacing=3 width=485 align=left valign=top>
<tr><td>
<p><p align="left"><$font_title><b>
Search Failed
</b></font></center>

<$font>
<P>There were problems with the search. Reason: <FONT COLOR="red"><B>$message</B></FONT>
<BR>Please fix any errors and submit the record again.</p>
|; &html_record_form(%in); print qq|
|; &html_search_options; print qq|</p>
</font></p>
<p><p align="left"> <INPUT TYPE="SUBMIT" NAME="view_records" VALUE="View Records"> <INPUT TYPE="RESET" VALUE="Reset Form"></center></p>
|; &html_footer; print qq|
</td></tr>
</table>
</center>
</form>
</body>
</html>
|;
}

sub html_send_email_form {
#----------------------------------------------------------
my ($message) = $_[0];
$in{$db_key} =~ s/<?.B>//g;
%rec = &get_record($in{$db_key});
&html_print_headers;

print qq|
<html><head><title>$html_title: Send an email</title></head>
<body background="http://www.citysingles.net/new/images/bg_yellowstripe.gif">
<table width="485" border="0" cellspacing="1" cellpadding="1">
<tr>
<td>
<p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Send an
email </font></b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">

|; if ($message) { print qq|There was a problem: $message|; } print qq|
Fill in your email address, the subject of your email and the message
you wish to send to <b><font color="#990000">$rec{'Userid'}</font></b>.</font>
<p>|; print qq|
<form action="$db_script_url" method="POST">
<input type=hidden name="db" value="$db_setup">
<input type=hidden name="uid" value="$db_uid">
<input type=hidden name="$db_key" value="$in{$db_key}">
<table width="485" cellspacing="1" cellpadding="3" bgcolor="#000000">
<tr align="right" valign="bottom">
<td bgcolor="#FFCC00"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Your
email address:</font></b></td>
<td align="left" bgcolor="#FFFF99"> <b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type=text name="email" value="$in{'email'}" size=40>
</font></b></td>
</tr>
<tr align="right" valign="bottom">
<td bgcolor="#FFCC00"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Subject:</font></b></td>
<td align="left" bgcolor="#FFFF99"> <b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type=text name="subject" value="$in{'subject'}" size=40>
</font></b></td>
</tr>
<tr align="right" valign="bottom">
<td valign="top" bgcolor="#FFCC00">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="middle" align="right" height="25"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Your
message:</font></b></td>
</tr>
</table>
</td>
<td align="left" bgcolor="#FFFF99"> <b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<textarea name="emailmessage" cols=40 rows=10>$in{'emailmessage'}</textarea>
</font></b></td>
</tr>
</table>
<p align="left">
<input type="SUBMIT" name="send_email" value="Send Email">
<input type="RESET" value="Reset Form" name="RESET">
</p>
</form>
</td>
</tr>
</table>

|;

&html_footer;
print qq|</td></tr></table></body></html>|;
}

sub html_send_email_success {
#-----------------------------------------------
&html_print_headers;

print qq|
<html><head><title>$html_title: Send an email</title></head>
<body background="http://www.citysingles.net/new/images/bg_yellowstripe.gif">
<p align="left">
<table border=0 cellpadding=5 cellspacing=3 width=485 align=left valign=top>
<tr><td><p><p align="left"><$font_title><b>
Send an email
</b></font></center>

|;

print qq|<$font>Your email message was sent.</font>|;
print qq|<P><p align="left">
<a href="$db_script_link_url&$db_key=$in{$db_key}&view_records=1">
<$font>Go back to the record</font></a></center>|;

&html_footer;
print qq|</td></tr></table></body></html>|;
}


##########################################################
## Deleting ##
##########################################################

sub html_delete_search {
# --------------------------------------------------------
# The page is displayed when a user wants to delete records. First
# the user has to search the database to pick which records to delete.
# That's handled by this form.

&html_print_headers;<br