header("Cache-Control: max-age=2592000"); header('X-Frame-Options: DENY'); $cat=""; $user= "a1adult_a1adult"; $pass = "condom"; $db = "a1adult_a1ebooks"; $host = "localhost"; // hook up connection to MySQL $linkns = mysqli_connect($host, $user, $pass, $db); if (!$linkns) { echo "Error: Unable to connect to MySQL." . PHP_EOL; echo "Debugging error: " . mysqli_connect_error() . PHP_EOL; exit; } // this is the essential template for all pages // parameters from Session Vars will determine if a visitor is logged in. IF so then the Login and Register menu options disappear and the member name appears instead. $_SESSION['firstautbest']=""; $f4user=$_SESSION['f4user']; $login=$_SESSION['login']; // if ah is set on request then use it to find the affiliate id from members file if (isset($_REQUEST['ah']) and $_REQUEST['ah']!="") { $ah=$_REQUEST['ah']; $result=mysqli_query($linkns, "SELECT * FROM a1members WHERE m1_f4affhandle='$ah' "); $nr=mysqli_num_rows($result); if ($nr!=0) { while($row = mysqli_fetch_row($result)) { $id=$row[1]; // set the affiliate id to the member id associated with "ah" $_SESSION['id']=$id; } $selloffsite="N"; $_SESSION['selloffsite']=$selloffsite; } } if (isset($_REQUEST['id'])) {$id=$_REQUEST['id'];} else {$id=$_SESSION['id'];} if (!isset($id) or $id=="") { $id="f4all"; } $_SESSION['id']=$id; $_SESSION['selloffsite']="N"; // get some member details $bkcredit=0; $nletter="N"; if ($login=="Y") { $affstat="N"; $result=mysqli_query($linkns, "SELECT * FROM a1members WHERE m1_userid='$f4user' "); while($row = mysqli_fetch_row($result)) { if ($row[1]==$f4user) { $bkcredit=$row[25]; $nletter=$row[28]; $ahcode=$row[83]; $_SESSION['selloffsite']=$selloffsite="N"; } } $resultm=mysqli_query($linkns, "SELECT * FROM a1affachdr where ah_number='$f4user' "); while($rowm = mysqli_fetch_row($resultm)) { $acbal=$rowm[2]; $acbaluk=$rowm[5]; $acbaleuro=$rowm[6]; } } if (isset($_REQUEST['in'])) {$in=$_REQUEST['in'];} else {$in=$_SESSION['in'];} if (!isset($in) or $in=="") { $in="0"; } $_SESSION['in']=$in; // filter $cfilt $cfilt="3"; $_SESSION['cfilt']=$cfilt; $sh=1; $catseq="R"; if (isset($_REQUEST['sh'])) {$sh=$_REQUEST['sh'];} if (isset($_REQUEST['catseq'])) {$catseq=$_REQUEST['catseq'];} $lastlib=$_SESSION['lastlib']; $bkttest="312913"; $_SESSION['bkttest']=$bkttest; if (isset($_SESSION['no_items'])) {$no_items=$_SESSION['no_items'];} else {$no_items=0;} if (isset($_SESSION['orderno'])) {$orderno=$_SESSION['orderno'];} else {$orderno="";} if (isset($_SESSION['Total_Value'])) {$Total_Value=$_SESSION['Total_Value'];} else {$Total_Value="";} // set up tag and keys $lastpage="/ebooks/a".$aut.".htm"; $_SESSION['lastpage']=$lastpage; $_SESSION['lastlib']=$lastpage."?catseq=".$catseq."&sh=".$sh; $autlinkno=$aut; // get the author's name $autactgen="N"; $autbaract="N"; $resultau=mysqli_query($linkns, "SELECT * FROM 00authors where aut_number='$aut'"); while($rowau = mysqli_fetch_row($resultau)) { if ($rowau[1]==$aut) { $h1aut=$aut; $h1mbr=$rowau[2]; $autname=stripslashes($rowau[5]); $autlinkno=$rowau[1]; $mnuautlinkno=$rowau[30]; $autactgen=$rowau[28]; if (strlen($rowau[6])>20) {$autbaract="Y";} } else {$autname="Author Unknown";} } $keystring=$autname; $metaautpage=$autname; $bktitle=" Author page for ".$autname; $metautpage="https://a1adultebooks.com/ebooks/a".$aut.".htm"; $ahlink=$metautpage; ?> 99999) {$sh=1;} $page=($sh-1)/20; $page=$page+1; $contstring=$autname." : A1AdultEbooks : Page ".$page; $pagetitle=$autname." : A1AdultEbooks : Page ".$page; print ""; print ""; print ""; print "$pagetitle"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; ?> "; print " "; if ($dispbooks!="N") { print ""; } else { print ""; } print "
"; include("../scripts/leftbar2024.php"); include("../scripts/sidebar2024.php"); print "
"; print "
"; include("../scripts/leftbar2024.php"); include("../scripts/sidebar2024.php"); print "
"; print "
"; include("../scripts/leftbar2024.php"); include("../scripts/sidebar2024.php"); print "
"; if ($dispbooks=="N") { print "
"; include("../scripts/leftbar2024.php"); print "
"; print "
"; include("../scripts/leftbar2024.php"); print "
"; } print ""; print ""; if ($dispbooks!="N") { print ""; print " "; print "
"; $autbio=""; $autweb=""; $resultau=mysqli_query($linkns, "SELECT * FROM 00authors where aut_number='$aut'"); while($rowau = mysqli_fetch_row($resultau)) { if ($rowau[1]==$aut) { $autseek=$rowau[5]; $pubid=$rowau[2]; $autname=$rowau[5]; $isf4=$rowau[7]; $autbio=$rowau[6]; $autweb=$rowau[44]; $autname=stripslashes($autname); $autbio=stripslashes($autbio); $autweb=stripslashes($autweb); } } $autbio=stripslashes($autbio); $autweb=stripslashes($autweb); $pubdesc=""; if ($isf4=="Y") { $pubdesc="Published by Fiction4All"; } else { $pubdesc="Published by the author or their publisher";} // display author bio etc at top of page if (strlen($autbio)>10) { $prtaut=$autname; $prtaut=str_replace(" "," ",$prtaut); print ""; print " "; print "
"; print "

About $prtaut:

"; print "

$autbio

"; if ($autweb!="" and $autweb!=" ") { print "

Visit the author website at:$autweb

"; } print "
"; print "
"; } // check for author announcements $result=mysqli_query($linkns, "SELECT * FROM 00announce WHERE (pa_aut='$autlinkno' )"); $numrows = mysqli_num_rows($result); if ($numrows>0) { print ""; print " "; print "
"; print "

See annnouncements for this author after the books below

"; print "
"; print "
"; } $filterstrg="pr_f4ok='Y' and (pr_style='E' or pr_style='S' or pr_style='D' or pr_style='R')"; $notitles="0"; // first off calculate the total number in the category/author etc $totcnt=0; // check the file to get total number to include based on exclusion rules $result=mysqli_query($linkns, "SELECT * FROM 00productmeta WHERE ($filterstrg and pr_status='A' AND pr_aut='$aut' ) ORDER by pr_recno DESC"); $numrows = mysqli_num_rows($result); if ($numrows!=0) { $notitles="1"; } $endsh=(intval($numrows/20)*20)+1; if (!isset($sh) or $sh==""){$sh=1;} $shlast=$sh+19; if ($shlast>$numrows){$shlast=$numrows;} $pfcnt=0; $swcnt=1; if ($numrows==0) { $notitles="1"; } // header bar print ""; print " "; print " "; print "
"; // enter a little table for the header section! print ""; print " "; print " "; print "
"; print "
"; print " "; print " "; print " "; print " "; print "
"; print "

Sort"; print " "; print "

"; print ""; print ""; print ""; print ""; print "
"; print "
"; print "		"; print ""; print " "; print " "; print ""; print "
"; $prtaut=$autname; // $prtaut=str_replace(" ","C",$prtaut); print "

The $prtaut Library"; print "

"; $resultai=mysqli_query($linkns, "SELECT * FROM 00autinterviews WHERE ai_aut='$aut' "); $numrowsai = mysqli_num_rows($resultai); if ($numrowsai!=0) { print "

Click Here For Radio Interview And Other Media Links For $prtaut"; print "

"; } print "
"; if ($notitles=="1") { print "

No titles can be displayed - this could be a result of your Content Filter setting."; } if ($numrows>20) { print "

SELECT PAGE:
"; $numrowstop=$numrows+20; $cnt=20; while ($cnt<$numrowstop) { $page=$cnt/20; $startcnt=$cnt-19; if ($page==20 or $page==40 or $page==60 or $page==80 or $page==100 or $page==120 or $page==140 or $page==160 or $page==180 or $page==200 or $page==220 or $page==240 or $page==260 or $page==280) { print "
"; } if ($startcnt!=$sh) { print " $page "; } else { print " $page "; } $cnt=$cnt+20; } print "

"; print "
"; } // if numrows>19 else { print "
"; } print "
"; print "
"; print ""; print " "; print "
"; $lcnt=0; $maxcnt=0; // now process the products file for category/author etc $pdbflg="Y"; $numcells=1; if ($catseq=="A") // alphabetical by title { $resultp=mysqli_query($linkns, "SELECT pr_code FROM 00productmeta WHERE ($filterstrg and pr_status='A' AND pr_aut='$aut' ) ORDER by pr_titlelc"); } // end of list by latest addition first if ($catseq=="R") // Date added - most recent titles first { $resultp=mysqli_query($linkns, "SELECT pr_code FROM 00productmeta WHERE ($filterstrg and pr_status='A' and pr_aut='$aut' ) ORDER by pr_recno DESC"); } // end of date added if ($catseq=="D") // best-selling this year { $resultp=mysqli_query($linkns, "SELECT pr_code FROM 00productmeta WHERE ($filterstrg and pr_status='A' and pr_aut='$aut' ) ORDER by pr_yrsold DESC "); } // end of best-selling this year if ($catseq=="E") // best-selling all time { $resultp=mysqli_query($linkns, "SELECT pr_code FROM 00productmeta WHERE ($filterstrg and pr_status='A' and pr_aut='$aut' ) ORDER by pr_nosold DESC "); } // end of best-selling all time if ($catseq=="L") // word count low high { $resultp=mysqli_query($linkns, "SELECT pr_code FROM 00productmeta WHERE ($filterstrg and pr_status='A' and pr_aut='$aut' ) ORDER by pr_words "); } // end of word count - low high if ($catseq=="M") // word count high low { $resultp=mysqli_query($linkns, "SELECT pr_code FROM 00productmeta WHERE ($filterstrg and pr_status='A' and pr_aut='$aut' ) ORDER by pr_words DESC "); } // end of word count - high low if ($catseq=="P") // list price low high { $resultp=mysqli_query($linkns, "SELECT pr_code FROM 00productmeta WHERE ($filterstrg and pr_status='A' and pr_aut='$aut' ) ORDER by pr_pubprice "); } // end of price - low high if ($catseq=="Q") // list price high low { $resultp=mysqli_query($linkns, "SELECT pr_code FROM 00productmeta WHERE ($filterstrg and pr_status='A' and pr_aut='$aut' ) ORDER by pr_pubprice DESC"); } // end of price - high low $fromaut="Y"; while($rowp = mysqli_fetch_row($resultp)) { $pfcnt++; if ($pfcnt>=$sh and $pfcnt<=$shlast) { $pr=$rowp[0]; include("../scripts/bookprocmeta.php"); include("../scripts/booklayout2022.php"); print "
"; } } print "
"; print ""; // now try contributions to anthologies/GP // check the file to get total number to include based on exclusion rules $noanths="0"; $result=mysqli_query($linkns, "SELECT * FROM gpanthsubs WHERE (gs_autno='$aut' and gs_anthstatus='A' ) ORDER by gs_recno DESC"); $numrows = mysqli_num_rows($result); if ($numrows!=0) { $noanths="1"; } $result=mysqli_query($linkns, "SELECT * FROM ddanthsubs WHERE (gs_autno='$aut' and gs_anthstatus='A' ) ORDER by gs_recno DESC"); $numrows = mysqli_num_rows($result); if ($numrows!=0) { $noanths="1"; } // header bar print ""; print " "; print "
"; if ($noanths=="1") { $prtaut=$autname; $prtaut=str_replace(" "," ",$prtaut); print "

$prtaut Anthology Contributions"; $result=mysqli_query($linkns, "SELECT * FROM gpanthsubs WHERE (gs_autno='$aut' and gs_anthstatus='A' and gs_product!='0' ) "); $numrows = mysqli_num_rows($result); if ($numrows!=0) { print "

$prtaut has contributions in the following Gravestone Press anthologies"; $oldpr=0; while($row = mysqli_fetch_row($result)) { $pr=$row[18]; if ($pr!=0) { $resultp=mysqli_query($linkns, "SELECT * FROM 00productmeta WHERE (pr_gpok='Y' and pr_status='A' AND pr_code='$pr') ORDER by pr_pubprice DESC"); while($rowp = mysqli_fetch_row($resultp)) { if ($pr!=$oldpr) { $pr=$rowp[1]; include("../scripts/bookprocmeta.php"); include("../scripts/booklayout2022.php"); print "

"; } $oldpr=$pr; } } } } $result=mysqli_query($linkns, "SELECT * FROM ddanthsubs WHERE (gs_autno='$aut' and gs_anthstatus='A' and gs_product!='0' ) "); $numrows = mysqli_num_rows($result); if ($numrows!=0) { print "

$prtaut has contributions in the following Double Dragon anthologies"; $oldpr=0; while($row = mysqli_fetch_row($result)) { $pr=$row[18]; if ($pr!=0) { $resultp=mysqli_query($linkns, "SELECT * FROM 00productmeta WHERE (pr_gpok='Y' and pr_status='A' AND pr_code='$pr') ORDER by pr_pubprice DESC"); while($rowp = mysqli_fetch_row($resultp)) { if ($pr!=$oldpr) { $pr=$rowp[1]; include("../scripts/bookprocmeta.php"); include("../scripts/booklayout2022.php"); print "

"; } $oldpr=$pr; } } } } $oldanth=0; $result=mysqli_query($linkns, "SELECT * FROM gpanthsubs WHERE (gs_autno='$aut' and gs_anthstatus='A' and gs_product='0') ORDER by gs_anthno "); $numrows = mysqli_num_rows($result); if ($numrows!=0) { print "

$prtaut has contributions in these upcoming Gravestone Press anthologies:-"; while($row = mysqli_fetch_row($result)) { if ($oldanth!=$row[5]) { $anthtitle=stripslashes($row[6]); print "

$anthtitle"; $oldanth=$row[5]; } } } $oldanth=0; $result=mysqli_query($linkns, "SELECT * FROM ddanthsubs WHERE (gs_autno='$aut' and gs_anthstatus='A' and gs_product='0') ORDER by gs_anthno "); $numrows = mysqli_num_rows($result); if ($numrows!=0) { print "

$prtaut has contributions in these upcoming Double Dragon anthologies:-"; while($row = mysqli_fetch_row($result)) { if ($oldanth!=$row[5]) { $anthtitle=stripslashes($row[6]); print "

$anthtitle"; $oldanth=$row[5]; } } } } print "

"; // put in announcements $resultan=mysqli_query($linkns, "SELECT * FROM 00announce WHERE (pa_aut='$autlinkno' and pa_prod='0' )"); $numrows = mysqli_num_rows($resultan); if ($numrows!=0) { print ""; print " "; print "
"; print "

ANNOUNCEMENTS FOR THIS AUTHOR

"; print "
"; } $resultan=mysqli_query($linkns, "SELECT * FROM 00announce WHERE (pa_aut='$autlinkno' and pa_prod='0' ) order by pa_date DESC"); while($rowan = mysqli_fetch_row($resultan)) { $annrec=$rowan[0]; $anntype=$rowan[3]; $anndate=$rowan[4]; $anntitle=stripslashes($rowan[5]); $anndesc=stripslashes($rowan[6]); $annlogo=$rowan[7]; // get type description $resultad=mysqli_query($linkns, "SELECT * FROM 00announcetypes where at_type='$anntype' "); while($rowad = mysqli_fetch_row($resultad)) { $tdesc=stripslashes($rowad[2]); } $atyr=substr($anndate,0,4); $atmth=substr($anndate,4,2); $atday=substr($anndate,6,2); $badge=""; if ($annlogo!="") { $badge="https://fiction4all.com/announcements/$annlogo"; } print "
"; if ($badge!="") { print ""; print " "; print " "; print "
"; print "

"; print "		"; } print "

Date : Day ($atday) Mth ($atmth) Year ($atyr)"; print "

Type : $tdesc"; print "

$anntitle"; print "

$anndesc"; if ($badge!="") { print "

"; } } $resultan=mysqli_query($linkns, "SELECT * FROM 00announce WHERE (pa_aut='$autlinkno' and pa_prod!='0' ) order by pa_date DESC"); while($rowan = mysqli_fetch_row($resultan)) { $annrec=$rowan[0]; $anntype=$rowan[3]; $anndate=$rowan[4]; $anntitle=stripslashes($rowan[5]); $anndesc=stripslashes($rowan[6]); $annlogo=$rowan[7]; // get type description $resultad=mysqli_query($linkns, "SELECT * FROM 00announcetypes where at_type='$anntype' "); while($rowad = mysqli_fetch_row($resultad)) { $tdesc=stripslashes($rowad[2]); } $atyr=substr($anndate,0,4); $atmth=substr($anndate,4,2); $atday=substr($anndate,6,2); $badge=""; if ($annlogo!="") { $badge="https://fiction4all.com/announcements/$annlogo"; } print "
"; if ($badge!="") { print ""; print " "; print " "; print "
"; print "

"; print "		"; } print "

Date : Day ($atday) Mth ($atmth) Year ($atyr)"; print "

Type : $tdesc"; print "

$anntitle"; print "

$anndesc"; if ($badge!="") { print "

"; } } print "
"; } print ""; include("../scripts/bottombar2024.php"); ?>