sentinel
Posts: 568 Joined: 5/4/2005 From: Chicago, Illinois Status: offline
|
RE: Select Distinct - 7/12/2005 14:37:36
here it is <%
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'// Basic Username redirection file
'//
'// If the user has not logged in, Username will be blank
'// The user will then be redirected to login.
'//
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
If Session("UserName")&"" = "" Then
'// Note here, we are redirecting to the root directory ("/") and looking
'// for the file "login.asp"
'// If your login file is not in the root or named differently, this will
'// need to be changed
'// Do not change the code "&Request.Servervariables("URL")"
'Redirect and retain any querystring values
Response.redirect "/login.asp?Redirect=" &Request.Servervariables("URL") &"?" &Request.Servervariables("QUERY_STRING")
End if
%>
<html>
<head>
<% ' FP_ASP -- ASP Automatically generated by a Frontpage Component. Do not Edit.
FP_LCID = 1033 %>
<meta http-equiv="Content-Language" content="en-us">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<% ' FP_ASP -- ASP Automatically generated by a Frontpage Component. Do not Edit.
FP_CharSet = "windows-1252"
FP_CodePage = 1252 %>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>(( EvilBar )) Pimp Pages</title>
<script language="javascript" id="jcSpawn">
// Jimco Add-ins Spawn JavaScript
// This script is freely redistributable. //-->
function spawnJimcoPopup(url, name, options, h, w, x, y, scaleType)
{
var windowOptions;
if (scaleType == 'percent')
{
w = (w * screen.availWidth) / 100;
h = (h * screen.availHeight) / 100;
}
if (x == 'center')
{
x = (screen.availWidth - w) / 2;
y = (screen.availHeight - h) / 2;
}
windowOptions = options + ',width=' + w + ',height=' + h + ',left=' + x + ',top=' + y;
newWindow = window.open(url, name, windowOptions);
newWindow.focus();
}
</script>
</head>
<body bgcolor="#000000" text="#C0C0C0" link="#FF0000" vlink="#FFFF00">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FF0000" width="712">
<tr>
<td width="100%" bgcolor="#420808">
<p align="center"><font face="Verdana" size="1">
<img border="0" src="images/bganimate.gif"></font></td>
</tr>
<tr>
<td width="100%">
<p align="center"><font face="Verdana" size="1"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0" width="712" height="32">
<param name="movie" value="movie1.swf">
<param name="menu" value=false>
<param name="loop" value=false>
<param name="quality" value="high">
<embed src="movie1.swf" quality="high"
width="712" height="32"
type="application/x-shockwave-flash"
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">
</embed></object>
</font></td>
</tr>
</table>
</center>
</div>
<p align="center"> </p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="842">
<tr>
<td width="842" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="96%">
<tr>
<td width="53%" valign="top">
<div align="left">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="80%" bordercolor="#FF0000">
<tr>
<td width="100%">
<!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Users WHERE (UserID = ::UserID::) "
fp_sDefault="UserID="
fp_sNoRecords="No records returned."
fp_sDataConn="Database1"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice="UserID"
fp_sMenuValue="UserID"
fp_iDisplayCols=40
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<p style="margin-top: 0; margin-bottom: 0">
<b><font face="Verdana" size="2"> Evil ID #
<%=FP_FieldVal(fp_rs,"UserID")%></font></b></p>
<p style="margin-top: 0; margin-bottom: 0"> </p>
<table BORDER="0" width="377" style="border-collapse: collapse" bordercolor="#FF0000" cellpadding="0" cellspacing="0" height="196">
<tr>
<td width="240" align="left" valign="top" height="196">
<font face="Verdana" size="1"><a target="_blank" href="../uploads/<%=FP_FieldLink(fp_rs,"photo")%>">
<img src="../uploads/<%=FP_FieldLink(fp_rs,"photo")%>" width="182" height="183" border="0"></a></font><p>
<font face="Verdana" size="1">
<img border="0" src="images/email-r.gif">
<a href="postidim.asp?UserID=<%=FP_FieldURL(fp_rs,"UserID")%>">
Send Message</a></font><p style="margin-top: 0; margin-bottom: 0">
<img border="0" src="images/images.jpg" width="17" height="16"><font face="Verdana" size="1">
<a href="captured.asp?victim=<%=FP_FieldVal(fp_rs,"UserName")%>&userid=<%=Session(appName&"Userid")%>" onclick="spawnJimcoPopup('captured.asp?victim=<%=FP_FieldVal(fp_rs,"UserName")%>&userid=<%=Session(appName&"Userid")%>','CAPTURED','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no','400','400','center','center','pixel');return false;">
Capture My Soul</a></font><p style="margin-top: 0; margin-bottom: 0">
</td>
<td width="367" align="left" valign="top" height="196">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="40%" align="left" valign="top"><b>
<font face="Verdana" size="1">My Alias:</font></b></td>
<td width="60%" align="left" valign="top">
<font face="Verdana" size="1">
<%=FP_FieldVal(fp_rs,"UserName")%></font></td>
</tr>
<tr>
<td width="40%" align="left" valign="top"><b>
<font face="Verdana" size="1">Real Name:</font></b></td>
<td width="60%" align="left" valign="top">
<font face="Verdana" size="1">
<%=FP_FieldVal(fp_rs,"x_Firstname")%>
<%=FP_FieldVal(fp_rs,"x_Lastname")%></font></td>
</tr>
<tr>
<td width="40%" align="left" valign="top"> </td>
<td width="60%" align="left" valign="top"> </td>
</tr>
<tr>
<td width="40%" align="left" valign="top"><b>
<font face="Verdana" size="1">My Age:</font></b></td>
<td width="60%" align="left" valign="top">
<font face="Verdana" size="1">
<%=FP_FieldVal(fp_rs,"x_Age")%></font></td>
</tr>
<tr>
<td width="40%" align="left" valign="top"><b>
<font face="Verdana" size="1">My Sex:</font></b></td>
<td width="60%" align="left" valign="top">
<font face="Verdana" size="1">
<%=FP_FieldVal(fp_rs,"x_Sex")%></font></td>
</tr>
<tr>
<td width="40%" align="left" valign="top"><b>
<font face="Verdana" size="1">My Home:</font></b></td>
<td width="60%" align="left" valign="top">
<font face="Verdana" size="1">
<%=FP_FieldVal(fp_rs,"x_City")%>,
<%=FP_FieldVal(fp_rs,"x_State")%></font></td>
</tr>
<tr>
<td width="40%" align="left" valign="top"> </td>
<td width="60%" align="left" valign="top"> </td>
</tr>
</table>
<p style="margin-top: 0; margin-bottom: 0"> <p style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="1">Last Login:
<%=FP_FieldVal(fp_rs,"UpdateDatetime")%></font></td>
</tr>
</table>
<!--#include file="_fpclass/fpdbrgn2.inc"-->
</td>
</tr>
</table>
<p style="margin-top: 0; margin-bottom: 0"> </p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="377" bordercolor="#FF0000">
<tr>
<td width="100%" bgcolor="#CC0000">
<!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Users WHERE (UserID = ::UserID::)"
fp_sDefault="UserID="
fp_sNoRecords="No records returned."
fp_sDataConn="Database1"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=1
fp_fCustomQuery=False
BOTID=7
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<p style="margin-top: 0; margin-bottom: 0">
<b><font face="Verdana" size="1" color="#FFFFFF">The Skinny On
<%=FP_FieldVal(fp_rs,"UserName")%></font></b></p>
<!--#include file="_fpclass/fpdbrgn2.inc"-->
</td>
</tr>
<tr>
<td width="100%">
<!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Users WHERE (UserID = ::UserID::)"
fp_sDefault="UserID="
fp_sNoRecords=""
fp_sDataConn="Database1"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=17
fp_fCustomQuery=False
BOTID=6
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<p style="margin-top: 0; margin-bottom: 0"> </p>
<div align="center">
<center>
<table border="0" cellspacing="4" style="border-collapse: collapse" width="93%" cellpadding="3">
<tr>
<td width="28%" align="left" valign="top"><b>
<font face="Verdana" size="1">About Me</font></b></td>
<td width="72%" align="left" valign="top">
<font size="1" face="Verdana">
<%=FP_Field(fp_rs,"AboutYou")%></font></td>
</tr>
<tr>
<td width="28%" align="left" valign="top"><b>
<font face="Verdana" size="1">Turn On's</font></b></td>
<td width="72%" align="left" valign="top">
<font size="1" face="Verdana">
<%=FP_Field(fp_rs,"TurnOn")%></font></td>
</tr>
<tr>
<td width="28%" align="left" valign="top"><b>
<font face="Verdana" size="1">Favorite Place</font></b></td>
<td width="72%" align="left" valign="top">
<font size="1" face="Verdana">
<%=FP_Field(fp_rs,"FavClub")%></font></td>
</tr>
<tr>
<td width="28%" align="left" valign="top"><b>
<font face="Verdana" size="1">Favorite Drink</font></b></td>
<td width="72%" align="left" valign="top">
<font size="1" face="Verdana">
<%=FP_Field(fp_rs,"FavDrink")%></font></td>
</tr>
<tr>
<td width="28%" align="left" valign="top"><b>
<font face="Verdana" size="1">My Website</font></b></td>
<td width="72%" align="left" valign="top">
<font size="1" face="Verdana">
<%=FP_Field(fp_rs,"x_Website")%></font></td>
</tr>
</table>
</center>
</div>
<!--#include file="_fpclass/fpdbrgn2.inc"-->
<p> </td>
</tr>
</table>
<p style="margin-top: 0; margin-bottom: 0"> </p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="88%" bordercolor="#FF0000">
<tr>
<td width="100%" height="1" bgcolor="#CC0000"><b>
<font face="Verdana" size="1" color="#FFFFFF">Rate My Profile Page</font></b></td>
</tr>
<tr>
<td width="100%" height="10">
<!--webbot bot="DatabaseRegionStart" s-columnnames="UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music" s-columntypes="3,200,200,200,200,11,200,135,135,200,11,11,135,200,3,200,200,200,200,200,200,200,200,200,200,200,200,200,200,3,3,200,200,200,201,201,200,200,17,200,201" s-dataconnection="Database1" b-tableformat="FALSE" b-menuformat="FALSE" s-menuchoice s-menuvalue b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="FALSE" b-listseparator="FALSE" i-listformat="0" b-makeform="FALSE" s-recordsource="Spooky_Users" s-displaycolumns="UserID" s-criteria="{UserID} EQ {UserID} +" s-order s-sql="SELECT * FROM Spooky_Users WHERE (UserID = ::UserID::)" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="UserID=" s-norecordsfound="No records returned." i-maxrecords="256" i-groupsize="0" botid="0" u-dblib="_fpclass/fpdblib.inc" u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc" tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the start of a Database Results region.</font></td></tr></table>" startspan --><!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Users WHERE (UserID = ::UserID::)"
fp_sDefault="UserID="
fp_sNoRecords="No records returned."
fp_sDataConn="Database1"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=1
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="6698" --><form method="POST" action="rateupdate.asp">
<p style="margin-top: 0; margin-bottom: 0"><font color="#FF0000" size="1" face="Verdana">
<input type="radio" value="1" name="rating" checked></font><font color="#FF0000" face="Verdana" size="2">1</font><font color="#FF0000" size="1" face="Verdana"><input type="radio" value="2" name="rating"><font color="#FF0000" face="Verdana" size="2">2</font><input type="radio" value="3" name="rating"><font color="#FF0000" face="Verdana" size="2">3</font><input type="radio" value="4" name="rating"><font color="#FF0000" face="Verdana" size="2">4</font><input type="radio" value="5" name="rating"><font color="#FF0000" face="Verdana" size="2">5</font><input type="radio" value="6" name="rating"><font color="#FF0000" face="Verdana" size="2">6</font><input type="radio" value="7" name="rating"><font color="#FF0000" face="Verdana" size="2">7</font><input type="radio" value="8" name="rating"><font color="#FF0000" face="Verdana" size="2">8</font><input type="radio" value="9" name="rating"><font color="#FF0000" face="Verdana" size="2">9</font><input type="radio" value="10" name="rating"><font color="#FF0000" face="Verdana" size="2">10 </font></font>
<input type="submit" value="Rate Me" name="B1" style="font-family: Verdana; font-size: 8pt; color: #000000; border-style: dashed; border-width: 1; background-color: #FF0000"></p>
<input type="hidden" name="userid" value="<%=FP_FieldURL(fp_rs,"UserID")%>">
</form>
<p style="margin-top: 0; margin-bottom: 0"></p>
<!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="FALSE" u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the end of a Database Results region.</font></td></tr></table>" startspan --><!--#include file="_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan i-checksum="62730" --></td>
</tr>
<tr>
<td width="100%">
<!--webbot bot="DatabaseRegionStart" s-columnnames="AvgRating" s-columntypes="131" s-dataconnection="Database1" b-tableformat="FALSE" b-menuformat="FALSE" s-menuchoice s-menuvalue b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="FALSE" b-listseparator="FALSE" i-listformat="0" b-makeform="FALSE" s-recordsource s-displaycolumns="AvgRating" s-criteria s-order s-sql="SELECT AVG(Rating) AS AvgRating FROM Spooky_Rating WHERE (UserID = ::UserID::)" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="UserID=" s-norecordsfound="No records returned." i-maxrecords="256" i-groupsize="0" botid="1" u-dblib="_fpclass/fpdblib.inc" u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc" tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the start of a Database Results region.</font></td></tr></table>" startspan --><!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT AVG(Rating) AS AvgRating FROM Spooky_Rating WHERE (UserID = ::UserID::)"
fp_sDefault="UserID="
fp_sNoRecords="No records returned."
fp_sDataConn="Database1"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=1
fp_fCustomQuery=True
BOTID=1
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="62656" --><p style="margin-top: 0; margin-bottom: 0">
<b><font face="Verdana" size="2">My Current Rating:
<font color="#FFFF00">
<!--webbot bot="DatabaseResultColumn" s-columnnames="AvgRating" s-column="AvgRating" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>AvgRating<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"AvgRating")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="20495" --></font></font></b></p>
<!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="FALSE" u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the end of a Database Results region.</font></td></tr></table>" startspan --><!--#include file="_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan i-checksum="62730" --></td>
</tr>
</table>
<p style="margin-top: 0; margin-bottom: 0"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="88%" bordercolor="#FF0000">
<tr>
<td width="100%" bgcolor="#CC0000"><b>
<font face="Verdana" size="1" color="#FFFFFF">Upcoming Events</font></b></td>
</tr>
<tr>
<td width="100%">
<div align="left">
<table width="88%" cellspacing="3" cellpadding="3" style="border-collapse: collapse" border="0" align="left">
<thead>
</thead>
<tbody>
<!--webbot bot="DatabaseRegionStart" s-columnnames="EventName,UserName,UserId,description,longdescription,datefield,starthour,startminute,startmarker,location,address,city,state,postalcode,country,private,eventid" s-columntypes="200,200,200,200,200,200,129,129,129,200,200,200,129,129,200,129,3" s-dataconnection="Database1" b-tableformat="TRUE" b-menuformat="FALSE" s-menuchoice="datefield" s-menuvalue="datefield" b-tableborder="FALSE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="TRUE" i-listformat="0" b-makeform="FALSE" s-recordsource="Spooky_Events" s-displaycolumns="datefield,starthour,startminute,startmarker,EventName,city,state,eventid" s-criteria="[UserId] EQ {UserId} +" s-order="[datefield] -" s-sql="SELECT * FROM Spooky_Events WHERE (UserId = '::UserId::' and datefield >= { fn NOW() }) ORDER BY datefield DESC" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="UserId=" s-norecordsfound="No Events Listed" i-maxrecords="0" i-groupsize="5" botid="2" u-dblib="_fpclass/fpdblib.inc" u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc" tag="TBODY" preview="<tr><td colspan=64 bgcolor="#FFFF00" align="left" width="100%"><font color="#000000">This is the start of a Database Results region.</font></td></tr>" b-WasTableFormat="TRUE" b-ReplaceDatabaseRegion="FALSE" startspan --><!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Events WHERE (UserId = '::UserId::' and datefield >= { fn NOW() }) ORDER BY datefield DESC"
fp_sDefault="UserId="
fp_sNoRecords="<tr><td colspan=8 align=left width=""100%"">No Events Listed</td></tr>"
fp_sDataConn="Database1"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=5
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="datefield"
fp_sMenuValue="datefield"
fp_iDisplayCols=8
fp_fCustomQuery=False
BOTID=2
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="32499" --><tr>
<td align="left" valign="top">
<font face="Verdana" size="1">
<!--webbot bot="DatabaseResultColumn" s-columnnames="EventName,UserName,UserId,description,longdescription,datefield,starthour,startminute,startmarker,location,address,city,state,postalcode,country,private,eventid" s-column="datefield" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>datefield<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"datefield")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="19710" --></font></td>
<td align="left" valign="top">
<font face="Verdana" size="1">
<!--webbot bot="DatabaseResultColumn" s-columnnames="EventName,UserName,UserId,description,longdescription,datefield,starthour,startminute,startmarker,location,address,city,state,postalcode,country,private,eventid" s-column="starthour" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>starthour<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"starthour")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="24501" -->:<!--webbot bot="DatabaseResultColumn" s-columnnames="EventName,UserName,UserId,description,longdescription,datefield,starthour,startminute,startmarker,location,address,city,state,postalcode,country,private,eventid" s-column="startminute" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>startminute<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"startminute")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="36167" -->
<!--webbot bot="DatabaseResultColumn" s-columnnames="EventName,UserName,UserId,description,longdescription,datefield,starthour,startminute,startmarker,location,address,city,state,postalcode,country,private,eventid" s-column="startmarker" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>startmarker<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"startmarker")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="33620" --></font></td>
<td align="left" valign="top">
<font face="Verdana" size="1">
<a href="evileventview.asp?eventid=<%=FP_FieldURL(fp_rs,"eventid")%>&UserId=<%=FP_FieldURL(fp_rs,"UserId")%>">
<!--webbot bot="DatabaseResultColumn" s-columnnames="EventName,UserName,UserId,description,longdescription,datefield,starthour,startminute,startmarker,location,address,city,state,postalcode,country,private,eventid" s-column="EventName" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>EventName<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"EventName")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="20289" --></a></font></td>
<td align="left" valign="top">
<font face="Verdana" size="1">
<!--webbot bot="DatabaseResultColumn" s-columnnames="EventName,UserName,UserId,description,longdescription,datefield,starthour,startminute,startmarker,location,address,city,state,postalcode,country,private,eventid" s-column="city" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>city<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"city")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="6315" -->,
<!--webbot bot="DatabaseResultColumn" s-columnnames="EventName,UserName,UserId,description,longdescription,datefield,starthour,startminute,startmarker,location,address,city,state,postalcode,country,private,eventid" s-column="state" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>state<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"state")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="12162" --></font></td>
</tr>
<!--webbot bot="DatabaseRegionEnd" b-tableformat="TRUE" b-menuformat="FALSE" u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="5" clientside tag="TBODY" preview="<tr><td colspan=64 bgcolor="#FFFF00" align="left" width="100%"><font color="#000000">This is the end of a Database Results region.</font></td></tr><TR><TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=64><NOBR><INPUT TYPE=Button VALUE=" |< "><INPUT TYPE=Button VALUE=" < "><INPUT TYPE=Button VALUE=" > "><INPUT TYPE=Button VALUE=" >| "> [1/5]</NOBR><BR></td></tr>" startspan --><!--#include file="_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan i-checksum="62730" --></tbody>
</table>
</div>
<p> </td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
</table>
<p> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="89%" bordercolor="#FF0000">
<tr>
<td width="36%" bgcolor="#CC0000"><b>
<font face="Verdana" size="1" color="#FFFFFF">Evil Comments</font></b></td>
<td width="64%" bgcolor="#CC0000">
<!--webbot bot="DatabaseRegionStart" s-columnnames="UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType" s-columntypes="3,200,200,200,200,11,200,135,135,200,11,11,135,200,3,200,200,200,200,200,200,200,200,200,200,200,200,200,200,3,3,200,200,200,201,201,200,200,17,200,201,200" s-dataconnection="Database1" b-tableformat="FALSE" b-menuformat="FALSE" s-menuchoice s-menuvalue b-tableborder="FALSE" b-tableexpand="FALSE" b-tableheader="FALSE" b-listlabels="FALSE" b-listseparator="FALSE" i-listformat="0" b-makeform="FALSE" s-recordsource="Spooky_Users" s-displaycolumns="UserID" s-criteria="{UserID} EQ {UserID} +" s-order s-sql="SELECT * FROM Spooky_Users WHERE (UserID = ::UserID::)" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="UserID=" s-norecordsfound="No records returned." i-maxrecords="256" i-groupsize="0" botid="4" u-dblib="_fpclass/fpdblib.inc" u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc" tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the start of a Database Results region.</font></td></tr></table>" startspan --><!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Users WHERE (UserID = ::UserID::)"
fp_sDefault="UserID="
fp_sNoRecords="No records returned."
fp_sDataConn="Database1"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=1
fp_fCustomQuery=False
BOTID=4
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="6702" --><p style="margin-top: 0; margin-bottom: 0" align="right">
<b><font face="Verdana" size="1" color="#FFFFFF">
<a href="postcomment.asp?UserID=<%=FP_FieldURL(fp_rs,"UserID")%>" onclick="spawnJimcoPopup('postcomment.asp?UserID=<%=FP_FieldURL(fp_rs,"UserID")%>','comment','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no','400','400','center','center','pixel');return false;">
<font color="#FFFFFF">Post A Comment</font></a></font></b></p>
<!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="FALSE" u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the end of a Database Results region.</font></td></tr></table>" startspan --><!--#include file="_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan i-checksum="62730" --></td>
</tr>
<tr>
<td width="100%" colspan="2">
<!--webbot bot="DatabaseRegionStart" s-columnnames="UserId,UserName,TimeDate,comment,commentid,postname,UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType,UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType" s-columntypes="200,200,135,200,3,200,3,200,200,200,200,11,200,135,135,200,11,11,135,200,3,200,200,200,200,200,200,200,200,200,200,200,200,200,200,3,3,200,200,200,201,201,200,200,17,200,201,200,3,200,200,200,200,11,200,135,135,200,11,11,135,200,3,200,200,200,200,200,200,200,200,200,200,200,200,200,200,3,3,200,200,200,201,201,200,200,17,200,201,200" s-dataconnection="Database1" b-tableformat="FALSE" b-menuformat="FALSE" s-menuchoice="UserId" s-menuvalue="UserId" b-tableborder="FALSE" b-tableexpand="FALSE" b-tableheader="FALSE" b-listlabels="FALSE" b-listseparator="FALSE" i-listformat="0" b-makeform="FALSE" s-recordsource s-displaycolumns="UserId,UserName,TimeDate,comment,commentid,postname,UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType,UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType" s-criteria s-order s-sql="SELECT *, Spooky_Users.*<br>FROM Spooky_Comments INNER JOIN<br> Spooky_Users ON Spooky_Comments.UserName = Spooky_Users.UserName<br>WHERE (Spooky_Comments.UserId = '::UserId::')<br>ORDER BY Spooky_Comments.TimeDate DESC" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="UserId=" s-norecordsfound="No Comments Posted" i-maxrecords="0" i-groupsize="0" botid="3" u-dblib="_fpclass/fpdblib.inc" u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc" tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the start of a Database Results region.</font></td></tr></table>" b-WasTableFormat="FALSE" startspan --><!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT *, Spooky_Users.* FROM Spooky_Comments INNER JOIN Spooky_Users ON Spooky_Comments.UserName = Spooky_Users.UserName WHERE (Spooky_Comments.UserId = '::UserId::') ORDER BY Spooky_Comments.TimeDate DESC"
fp_sDefault="UserId="
fp_sNoRecords="No Comments Posted"
fp_sDataConn="Database1"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice="UserId"
fp_sMenuValue="UserId"
fp_iDisplayCols=90
fp_fCustomQuery=True
BOTID=3
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="16377" --><p style="margin-top: 0; margin-bottom: 0"> </p>
<div align="left">
<table border="0" cellpadding="3" cellspacing="3" style="border-collapse: collapse" width="100%" height="4">
<tr>
<td width="36%" rowspan="2" height="98" align="center" valign="top">
<font face="Verdana" size="2" color="#FF0000"> </font><font face="Verdana" size="1" color="#FF0000"><!--webbot bot="DatabaseResultColumn" s-columnnames="UserId,UserName,TimeDate,comment,commentid,postname,UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType,UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType" s-column="UserName" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>UserName<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"UserName")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="17279" --></font><p>
<font face="Verdana" size="2">
<a href="evilidview.asp?UserID=<%=FP_FieldURL(fp_rs,"UserID")%>">
<img src="../uploads/<%=FP_FieldLink(fp_rs,"photo")%>" width="111" height="110" border="0"></a></font></td>
<td width="64%" height="23" align="left" valign="top">
<p align="right">
<font color="#FF0000" face="Verdana" size="1">Posted On
</font><font face="Verdana" size="1" color="#FFFF00">
<!--webbot bot="DatabaseResultColumn" s-columnnames="UserId,UserName,TimeDate,comment,commentid,postname,UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType,UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType" s-column="TimeDate" b-tableformat="FALSE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>TimeDate<font size="-1">>></font>" startspan --><%=FP_FieldVal(fp_rs,"TimeDate")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="15989" --></font></td>
</tr>
<tr>
<td width="64%" height="75" align="left" valign="top" bgcolor="#3A0101">
<p style="margin-top: 0; margin-bottom: 0">
<font color="#FF0000" face="Verdana" size="1">
<!--webbot bot="DatabaseResultColumn" s-columnnames="UserId,UserName,TimeDate,comment,commentid,postname,UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType,UserID,x_Firstname,x_Lastname,UserName,x_Email,EmailUse,Password,AddDatetime,UpdateDatetime,AccessLevel,Admin,ActiveAccount,AccountExpires,RemoteAddress,LoginCount,x_Company,x_Address,x_City,x_State,x_Zip,x_Country,x_Phone,x_Cellphone,x_Fax,x_Website,x_Userfound,x_Spare,x_RefId,x_Trans_id,x_Auth_Code,u_id,x_Sex,Comments,photo,AboutYou,TurnOn,FavClub,FavDrink,public,x_Age,Music,AcctType" s-column="comment" b-tableformat="FALSE" b-hashtml="TRUE" b-makelink="FALSE" clientside b-MenuFormat preview="<font size="-1"><<</font>comment<font size="-1">>></font>" startspan --><%=FP_Field(fp_rs,"comment")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="14248" --></font></td>
</tr>
<tr>
<td width="100%" height="4" align="center" colspan="2">
<hr color="#800000"></td>
</tr>
</table>
</div>
<!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="FALSE" u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00" align="left"><font color="#000000">This is the end of a Database Results region.</font></td></tr></table>" startspan --><!--#include file="_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan i-checksum="62730" --></td>
</tr>
</table>
<p> <p> </div>
</td>
<td width="47%" align="left" valign="top">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%">
<table width="100%" border="1" style="border-collapse: collapse" cellpadding="0" cellspacing="0" bordercolor="#FF0000">
<thead>
</thead>
<tbody>
<!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Users WHERE (UserID = ::UserID::)"
fp_sDefault="UserID="
fp_sNoRecords="<tr><td colspan=1 align=left width=""100%"">No records returned.</td></tr>"
fp_sDataConn="Database1"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=1
fp_fCustomQuery=False
BOTID=1
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<tr>
<td bgcolor="#CC0000"><b>
<font face="Verdana" size="1" color="#FFFFFF">
<%=FP_FieldVal(fp_rs,"UserName")%>'s
Journal Entries</font></b></td>
</tr>
<!--#include file="_fpclass/fpdbrgn2.inc"-->
</tbody>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#FF0000">
<tr>
<td width="100%">
<!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Blog WHERE (userid = '::userid::') ORDER BY datetime DESC"
fp_sDefault="userid="
fp_sNoRecords="No Blogs"
fp_sDataConn="Database1"
fp_iMaxRecords=5
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice="username"
fp_sMenuValue="username"
fp_iDisplayCols=5
fp_fCustomQuery=False
BOTID=5
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<p style="margin-top: 0; margin-bottom: 0">
</p>
<p style="margin-top: 0; margin-bottom: 0">
<b>
<font face="Verdana" size="1">
<%=FP_FieldVal(fp_rs,"title")%></font></b><font face="Verdana" size="1">
..</font><font face="Verdana" size="1" color="#FFFFFF"><a href="evilblogview.asp?userid=<%=FP_FieldURL(fp_rs,"userid")%>&blogid=<%=FP_FieldURL(fp_rs,"blogid")%>">Read</a></font></p>
<!--#include file="_fpclass/fpdbrgn2.inc"-->
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<p> </p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#FF0000">
<tr>
<td width="100%" bgcolor="#CC0000"><b>
<font face="Verdana" size="1" color="#FFFFFF">My Taste In Music</font></b></td>
</tr>
<tr>
<td width="100%">
<!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Users WHERE (UserID = ::UserID::)"
fp_sDefault="UserID="
fp_sNoRecords="No records returned."
fp_sDataConn="Database1"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=1
fp_fCustomQuery=False
BOTID=8
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<p style="margin-top: 0; margin-bottom: 0">
<b><font face="Verdana" size="1">
<%=FP_Field(fp_rs,"Music")%></font></b></p>
<p style="margin-top: 0; margin-bottom: 0"> </p>
<!--#include file="_fpclass/fpdbrgn2.inc"-->
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#FF0000">
<tr>
<td width="100%" bgcolor="#CC0000">
<p style="margin-top: 0; margin-bottom: 0"><b>
<font face="Verdana" size="1" color="#FFFFFF">My Video Jukebox</font></b></td>
</tr>
<tr>
<td width="100%" align="center">
<!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Videos WHERE (userid = '::userid::')"
fp_sDefault="userid="
fp_sNoRecords="No records returned."
fp_sDataConn="Database1"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=1
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice="username"
fp_sMenuValue="username"
fp_iDisplayCols=4
fp_fCustomQuery=True
BOTID=9
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"--><p>
<p align="center">
<%=FP_Field(fp_rs,"video")%></p>
<div align="center">
<!--#include file="_fpclass/fpdbrgn2.inc"-->
</div>
<p align="center"><b><font face="Verdana" size="1">Juke Box
Video Selector</font></b></td>
</tr>
</table>
</td>
</tr>
</table>
<p> </p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#FF0000">
<tr>
<td width="100%" bgcolor="#CC0000"><b>
<font face="Verdana" size="1" color="#FFFFFF">My Photo Album</font></b></td>
</tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#FF0000">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="90%">
<tr>
<td width="100%">
<!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_Upload WHERE (userid = '::userid::') ORDER BY timedate DESC"
fp_sDefault="userid="
fp_sNoRecords="No records returned."
fp_sDataConn="Database1"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=6
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=4
fp_fCustomQuery=True
BOTID=11
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"--><p>
<%If x = 0 then %>
<tr>
<%end if%>
<%x=x+1%>
<td>
<p align="center">
<a target="_blank" href="../uploads/<%=FP_FieldLink(fp_rs,"filename")%>">
<img border="0" src="../uploads/<%=FP_FieldLink(fp_rs,"filename")%>" width="110" height="110" align="right"></a> <br>
</td>
<% If x < 3 then %>
<%Else
x = 0%>
</td></tr>
<%end if%>
<!--#include file="_fpclass/fpdbrgn2.inc"-->
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" align="left" valign="top">
<p> </p>
<p> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#FF0000">
</font></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#CC0000">
<b><font face="Verdana" size="1" color="#FFFFFF">Captured
Souls</font></b></td>
</tr>
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="119" height="107">
<tr>
<td width="1" height="1" colspan="3">
<p style="margin-top: 0; margin-bottom: 0" align="left"><!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_WellOfSouls INNER JOIN Spooky_Users ON Spooky_WellOfSouls.Victim = Spooky_Users.UserName WHERE (Spooky_WellOfSouls.UserId = '::UserId::') "
fp_sDefault="userid="
fp_sNoRecords="Well Of Souls Is Empty"
fp_sDataConn="Database1"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=6
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=4
fp_fCustomQuery=True
BOTID=12
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<%If x = 0 then %> </tr>
<tr>
<%end if%>
<%x=x+1%>
<td height="131" width="1" colspan="3" valign="top">
<p align="left">
<font face="verdana" color="red" size=1><a href="evilidviewsoul.asp?UserID=<%=FP_FieldURL(fp_rs,"UserID")%>">
<%=FP_FieldLink(fp_rs,"username")%><img src="../uploads/<%=FP_FieldLink(fp_rs,"photo")%>" width="111" height="110" border="0" align="right"></a> <br>
</td>
<% If x < 3 then %>
<%Else
x = 0%>
</td></tr>
<%end if%>
<!--#include file="_fpclass/fpdbrgn2.inc"--></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<center><!--#include file="navbar.htm"--></p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-size:8pt" width="58%">
<tr>
<td width="100%"> <!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Spooky_CSS WHERE (userid = '::userid::') ORDER BY timedate DESC"
fp_sDefault="userid="
fp_sNoRecords=""
fp_sDataConn="Database1"
fp_iMaxRecords=1
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice="css"
fp_sMenuValue="css"
fp_iDisplayCols=1
fp_fCustomQuery=False
BOTID=10
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<p>
<%=FP_Field(fp_rs,"css")%></p>
<!--#include file="_fpclass/fpdbrgn2.inc"--></td>
</tr>
</table>
</body>
</html>
|