If you are not a member you can Join Here FREE.
HTML
}
sub mainmenu{
print <Your Account
Member's Name: $mbr_fullname
Account No: $mbr_id
HTML
}
sub myads{
print <My Classified Ads
Only Ads which have a status of Approved are displayed on the main web site.
HTML
$q = "Select f_ad_id, f_ad_title, f_ad_status from t_ad WHERE f_mbr_id='$mbr_id' ORDER BY f_ad_status";
&dbmain ($m1, $m2, $q);
$numrows=$data->numrows;
if ($numrows>0){
$j=0;
while($j<$numrows){
@record=$data->fetchrow;
$ad_id_list=@record[0];
$ad_title_list=@record[1];
$ad_status_list=@record[2];
if ($ad_status_list eq "P"){
$ad_status_txt="Pending";
}
elsif ($ad_status_list eq "L"){
$ad_status_txt="Approved";
}
print <
Ad id: $ad_id_list
Ad Status: $ad_status_txt
Title: $ad_title_list
HTML
$picimage=$imgdir."cl"."$ad_id_list.jpg";
if (-e "$ENV{DOCUMENT_ROOT}$picimage"){
$showimage=$imgdir."cl"."$ad_id_list.jpg";
print <
HTML
}
else{
print <No image online
HTML
}
print <
HTML
$j++;
}
}
else{
print <
HTML
}
sub mbrpassword{
print <
Account No: $mbr_id
Change Password
New Password (max 9 chars)
Repeat New Password (max 9 chars)
HTML
}
sub mbrdetails{
print <
HTML
}
sub chkmbr{
$q = "Select f_mbr_profupdate, f_teamcode, f_mbr_rpt from t_mbr where f_mbr_id='$mbr_id'";
&dbmain ($m1, $m2, $q);
@record=$data->fetchrow;
$mbr_profupdate=@record[0];
$mbr_team=@record[1];
$mbr_rpt=@record[2];
$rpt_visible=@record[3];
$q = "Select f_teamdesc from t_teams WHERE f_teamcode='$mbr_team'";
&dbmain ($d1, $d2, $q);
@record=$data->fetchrow;
$teamdesc=@record[0];
}
sub getprefs{
print <
HTML
}
sub getlistboxsubject_mbr{
$q_plus = "Select f_subject_id from t_mbrpref1 WHERE f_mbr_id='$mbr_id' AND f_website_id='$website_id'";
&dbmain_plus ($d1, $d2, $q_plus);
@record_plus=$data_plus->fetchrow;
$mbr_pref_subject_id=@record_plus[0];
print <
HTML
if ($mbr_pref_subject_id eq ""){
print "\n";
}
else{
print "\n";
}
$q_plus = "Select f_subject_id, f_subject_desc from t_subject WHERE f_website_id='$website_id' ORDER BY f_subject_desc";
&dbmain_plus ($d1, $d2, $q_plus);
$numrows_plus=$data_plus->numrows;
$j_plus=0;
while ($j_plus<$numrows_plus){
@record_plus=$data_plus->fetchrow;
$show_subject_id=@record_plus[0];
$show_subject_desc=@record_plus[1];
if ($show_subject_id eq $mbr_pref_subject_id){
print "\n";
}
else{
print "\n";
}
$j_plus++;
}
print <
HTML
}
sub getlistboxartist_mbr{
$q_plus = "Select f_subject_id from t_mbrpref1 WHERE f_mbr_id='$mbr_id' AND f_website_id='$website_id'";
&dbmain_plus ($d1, $d2, $q_plus);
@record_plus=$data_plus->fetchrow;
$mbr_pref_subject_id=@record_plus[0];
print <
HTML
if ($mbr_pref_subject_id eq ""){
print "\n";
}
else{
print "\n";
}
$q_plus = "Select f_artist_id, f_artist_fname, f_artist_lname from t_artist ORDER BY f_artist_lname";
&dbmain_plus ($d1, $d2, $q_plus);
$numrows_plus=$data_plus->numrows;
$j_plus=0;
while ($j_plus<$numrows_plus){
@record_plus=$data_plus->fetchrow;
$show_artist_id=@record_plus[0];
$show_artist_fname=@record_plus[1];
$show_artist_lname=@record_plus[2];
$show_artist_fullname="$show_artist_fname $show_artist_lname";
if ($show_artist_id eq $mbr_pref_subject_id){
print "\n";
}
else{
print "\n";
}
$j_plus++;
}
print <
HTML
}
sub getmlists{
print <Mailing lists
Would you like to receive email (eg to tell you about new prints/paintings which we have
added to our catalogue) and occasionally FREE GIFT CERTIFICATES. If so simply add your name to
one or more of our subject-specific mailing lists below.
Important: You may also recieve email/gift certificates based upon the
preferences which you have set up. If you do not wish to receive any email (or gift certificates)
there is an option in Your Profile to state this preference.