access_asp thread: Only if your board look at this.
My page seem to be taking forever to return the results.
Im very new to this and I know looking at a page like this out of context
must be a bit crazy.
But if you can spot why the page seems to hang please let me know.
How can I tell if it?s the page or the server thats the problem?
Steven
Code below
===========================================================
<!-- #BeginTemplate "/Templates/main.dwt" --><!-- DW6 --><head>
<!-- #BeginEditable "doctitle" --> <!-- #EndEditable -->
<!-- METADATA TYPE="typelib" FILE="C:\Program Files\Common
Files\System\ado\msado15.dll" -->
<% server.scripttimeout = 300 %>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL="SHORTCUT ICON" HREF="../favicon.ico">
<script language="JavaScript">
function loadurl() {
document.login.varurl.value=document.URL;
}
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0;
i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a
[i];}}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++)
x.src=x.oSrc;
}
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))
>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++)
x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers
[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return
x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for
(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc)
x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<title>Find a puppy in the UK for free, Find a breeder, Sell puppies for
free</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt
(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight;
onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH)
location.reload();
}
MM_reloadPage(true);
//-->
</script>
<%
if len(session("id")) > 8 then
logInLay = "visibility: hidden;"
loggedInLay = "visibility: visible;"
elseif request.Cookies ("log")("yes") = "yes" then
session("id") = request.Cookies ("log")("cid")
session("type") = request.Cookies ("log")("type")
logInLay = "visibility: hidden;"
loggedInLay = "visibility: visible;"
else
logInLay = "visibility: visible;"
loggedInLay = "visibility: hidden;"
end if
%>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0"
marginwidth="0" marginheight="0" onLoad="MM_preloadImages
('../admin/images/right_side_menu_03.jpg');loadurl()" ><a name="top"></a>
<%
server.execute "noscript_top.htm"
%><table width="100%" border="0" cellpadding="0" cellspacing="0"
class="table" ID="Table1">
<tr>
<td height="3" valign="top" class="tdgray" colspan="2"><img
src="../admin/spacer.gif" width="1" height="3"></td>
</tr>
<tr>
<td width="863" height="73" valign="top">
<table width="680" border="0" cellpadding="0" cellspacing="0"
class="secondTable" ID="Table2">
<tr>
<td height="73" width="160" valign="top"
class="TDcenterTitle"> <!-- #BeginEditable "asp" -->
<img src="../admin/spacer.gif" width="160" height="1"><BR>
<!-- #EndEditable --></td>
<td valign="middle" width="160" class="TDcenterAd"
align="center">
<div align="center"><img src="../admin/spacer.gif"
width="160" height="1"><BR>
<img src="../admin/spacer.gif" width="7" height="1"><img
src="../admin/testad.jpg" width="120" height="60" align="absmiddle"><BR>
<img src="../admin/spacer.gif"></div>
</td>
<td width="220" valign="top">
<table width="180" border="0" cellpadding="0" cellspacing="0"
class="SearchTableHead" ID="Table3">
<tr>
<td width="220" height="1" valign="middle"
align="center"><img src="../admin/spacer.gif" width="220" height="1"></td>
</tr>
<tr>
<td valign="top" height="72"> </td>
</tr>
</table>
</td>
<td width="52"></td>
<td width="180" valign="top">
<table width="180" border="0" cellpadding="0" cellspacing="0"
class="LoginTableHead" ID="Table4">
<!--DWLayoutTable-->
<form name="login" method="post" action="../login.asp"
ID="Form1">
<tr>
<td height="9" colspan="3" valign="top"><img
src="../admin/spacer.gif" width="220" height="9"></td>
</tr>
<tr>
<td valign="top" width="7" rowspan="3"><img
src="../admin/spacer.gif" width="7" height="55"></td>
<td width="206" height="19" align="center" valign="top"
class="bottomstrip"><!--DWLayoutEmptyCell--> </td>
<td width="7" rowspan="3" valign="top"><img
src="../admin/spacer.gif" width="7" height="55"></td>
</tr>
<tr>
<td height="19" align="left" valign="middle"
class="bottomstrip"><!--DWLayoutEmptyCell-->
</td>
</tr>
<tr>
<td height="19" valign="middle" class="bottomstrip">
<div id="LoggedIn" style="position:absolute; left:542px; top:3px;
width:220px; height:73px; z-index:3; <%= loggedInLay%>">
<table width="180" border="0" cellpadding="0"
cellspacing="0" ID="Table5">
<!--DWLayoutTable-->
<tr>
<td valign="top" colspan="3" height="9"><img
src="../admin/spacer.gif" width="220" height="9"></td>
</tr>
<tr>
<td width="7" height="55" valign="top"><img
src="../admin/spacer.gif" width="7" height="55"></td>
<td valign="top" class="bottomstrip"
align="center" width="206" >You are logged in<BR>
<a
href="http://www.OpenUniTestSite.co.uk/logout.asp"class="bottomstrip"
>LOGOUT</a></td>
<td width="7" valign="top"><img
src="../admin/spacer.gif" width="7" height="55"></td>
</tr>
<tr>
<td colspan="3" valign="top" height="9"><img
src="../admin/spacer.gif" width=220 height="9"></td>
</tr>
</table>
</div>
<div id="notLoggedIn" style="position:absolute;
left:542px; top:3px; width:220px; height:73px; z-index:2; <%= logInLay%>">
<table width="180" border="0" cellpadding="0"
cellspacing="0" ID="Table6">
<tr>
<td valign="top" colspan="4"><img
src="../admin/spacer.gif" width="220" height="9"></td>
</tr>
<tr>
<td valign="top" width="7" rowspan="3"><img
src="../admin/spacer.gif" width="7" height="55"></td>
<td valign="top" colspan="2"
class="bottomstrip" align="center">Please
login or Register
<input type="hidden" name="varurl"
ID="Hidden1"> </td>
<td width="7" rowspan="3" valign="top"><img
src="../admin/spacer.gif" width="7" height="55"></td>
</tr>
<tr>
<td align="left" width="55" valign="middle"
class="bottomstrip">User
name</td>
<td valign="middle" width="151"
class="bottomstrip" align="left">
<input type="text" name="loguser"
class="bottomstrip" size="10" tabindex=1 ID="Text1">
Remember
<input type="checkbox" name="reme"
value="yes" checked ID="Checkbox1">
</td>
</tr>
<tr>
<td valign="middle"
class="bottomstrip">Password</td>
<td valign="middle" class="bottomstrip"> <input
type="password" name="logpass" class="bottomstrip" size="10" tabindex=2
ID="Password1">
<a href="javascript:document.login.submit();"
class="bottomstrip" tabindex=3>Login</a> : <a
href="../register.asp" class="bottomstrip">Register</a></td>
</tr>
<tr>
<td colspan="4" valign="top"><img
src="../admin/spacer.gif" width=220 height="9"></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="9" colspan="3" valign="top"><img
src="../admin/spacer.gif" width=220 height="9"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
<td width="156"></td>
</tr>
<tr>
<td height="4" valign="top" class="tdgray" colspan="2"><img
src="../admin/spacer.gif" width="1" height="1"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0"
ID="Table7">
<tr>
<td height="20" colspan="2" valign="top" bgcolor="9174C2"> <img
src="../admin/spacer.gif" width="740" height="1" align="top"><BR>
<img src="../image/image_paw/20s_purple_paw.jpg" width="20"
height="20" align="absmiddle" border="0">
<span class="menutext">Classifides / Find a pet</span> | <img
src="../image/image_paw/20s_purple_paw.jpg" width="20" height="20"
align="absmiddle">
<span class="menutext">Pet information & Help</span> | <img
src="../image/image_paw/20s_purple_paw.jpg" width="20" height="20"
align="absmiddle">
<span class="menutext">Members Functions
<!--#include file="../include/subs.asp" -->
</span></td>
<td width="100%" valign="top" bgcolor="9174C2"> </td>
</tr>
<tr>
<td colspan="3" valign="top" class="tdgray"><img
src="../admin/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td width="600"><img height="1" width="600"
src="../image/image_gen/spacer.gif"></td>
<td width="143"><img height="1" width="143"
src="../image/image_gen/spacer.gif"></td>
<td></td>
</tr>
<tr>
<td height="1"><img height="1" width="600"
src="../image/image_gen/spacer.gif"></td>
<td><img height="1" width="143"
src="../image/image_gen/spacer.gif"></td>
<td></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" ID="Table8">
<tr>
<td height="21" valign="top" colspan="3">
<table width="100%" border="0" cellpadding="0" cellspacing="0"
class="leftMenuText" ID="Table9">
<tr>
<td width="760" height="21" valign="top"><!--
#BeginEditable "InfoStrip" -->
<div align="center"><font color="#FF0000"><span
class="bottomstrip">!!!!! Please
be aware that OpenUniTestSite.co.uk is in development and
will not be running
till mid Jan 2003. Some of the ads below may be test
ads. !!!!!</span></font></div>
<!-- #EndEditable --></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="145" height="206" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0"
ID="Table10">
<tr>
<td width="145" height="25" valign="top"><img
src="../admin/images/menu_01.jpg" width="145" height="25"></td>
</tr>
<tr>
<td valign="top" height="167"
background="../admin/images/menu_02.jpg" class="leftMenuText">
<div align="center">
<p class="leftMenuText"><a href="../index.asp"
class="leftMenuText">Home</a><br>
<a href="index.asp" class="leftMenuText">Search for
puppy/dog</a><br>
Search for a Service<br>
<a href="../add/add_puppy.asp" class="leftMenuText">Add a
puppy/dog</a><br>
Add a service<br>
<a href="../dogDetails.asp"
class="leftMenuText">About</a><br>
Contact<br>
<a href="../coming_soon.htm"
class="leftMenuText">Info/Help</a><br>
<a href="../register.asp"
class="leftMenuText">Register</a><br>
Members area<br>
News Letter</p>
</div>
</td>
</tr>
<tr>
<td height="14" valign="top"><img
src="../admin/images/menu_03.jpg" width="145" height="14"></td>
</tr>
</table>
</td>
<td width="100%" valign="top"> <!-- #BeginEditable "centerTable" -->
<table width="100%" border="0" cellpadding="0" cellspacing="0"
ID="Table11">
<!--DWLayoutTable-->
<tr>
<td width="470" height="52" valign="top"><table width="100%"
border="0" cellpadding="0" cellspacing="0" class="mainBodyText"
ID="Table12">
<!--DWLayoutTable-->
<tr>
<td width="16" rowspan="5" valign="top"><!--
DWLayoutEmptyCell--> </td>
<td width="440" valign="top"><img
src="../image/image_bg/images/notFoundYet_01.gif" width="440"
height="10"></td>
<td width="14" rowspan="5" valign="top"><!--
DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td valign="top"><table width="100%" border="3"
cellpadding="0" cellspacing="0" bordercolor="#c0b7dc" ID="Table13">
<!--DWLayoutTable-->
<tr>
<td width="219" valign="top"><table width="100%"
border="0" cellpadding="0" cellspacing="0" ID="Table14">
<!--DWLayoutTable-->
<tr>
<td width="32" height="32" valign="top"><img
src="../image/image_win/info.gif" width="37" height="37"></td>
<td width="182" valign="middle"
class="mainBodyText"><%
'declear var in subs
sqltext = 0
struser = 0
strarea = 0
countmain = 0
countarea = 0
countbreed = 0
if len(request.QueryString("sortby")) < 1 then
sortby = "price"
else
sortby = request.QueryString("sortby")
end if
'picks up var from form and creats sql for main sub
struser = request.QueryString("breed")
strarea = request.QueryString("area")
if struser = "all" then
struser = "LIKE '%'"
dobreed = 1
else
struser = "= '" & struser & "'"
dobreed = 0
end if
if strarea = "all" then
strarea = " AND area LIKE '%'"
doarea = 1
else
strarea = " AND area = '" & strarea & "'"
doarea = 0
end if
'***********************************************************************
sub maincou
Set oRS=Server.CreateObject("ADODB.recordset")
'sqltext = "SELECT * FROM clas WHERE (breedpure LIKE '" & struser & "' OR
breedtwo LIKE '" & struser & "') AND live = '1'" & strarea & " ORDER BY
price;"
sqltext = "SELECT breedpure, breedtwo, clasid, price, area, live,
datecreated, datedue, notes FROM clas WHERE (breedpure " & struser & " OR
breedtwo " & struser & ") AND live = 1" & strarea & " ORDER BY " & sortby
& ";"
oRS.Open sqltext, "DSN=OpenUniTestSite", adOpenKeyset ,adLockOptimistic
countmain = oRS.RecordCount
ors.close
Set oRS = Nothing
end sub
call maincou
resultno = request.QueryString("rn")
if resultno = "" then
resultno = "10"
end if
pagenoa = countmain / resultno
pagenob = fix(countmain / resultno)
if pagenoa = pagenob then
pageno = pagenoa
else
pageno = pagenob + 1
end if
ofpage = request.QueryString("pn")
if ofpage = "" then
ofpage = "1"
end if
%><%=countmain%>
Results found<br>
Page <%=ofpage%> of <%=pageno%></td>
</tr>
</table></td>
<td width="221" valign="top"><table width="100%"
border="0" cellpadding="0" cellspacing="0" ID="Table15">
<!--DWLayoutTable-->
<tr>
<td width="32" height="37" valign="middle"><a
href="index.asp"><img src="../image/image_win/search_world_m.jpg"
width="32" height="32" border="0" align="absmiddle"></a></td>
<td width="185" valign="middle"
class="mainBodyText"><a href="index.asp">New
Bacic Search<br>
New Advanced Search</a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><img
src="../image/image_bg/images/notFoundYet_02.gif" width="440"
height="10"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0"
class="mainBodyText" ID="Table16">
<!--DWLayoutTable-->
<tr>
<td width="15" height="191" valign="top"> <p><img
src="../image/image_gen/spacer.gif" width="15" height="15"></p></td>
<td width="440" valign="top"><table width="100%" border="0"
cellpadding="0" cellspacing="0" ID="Table17">
<!--DWLayoutTable-->
<tr>
<td width="440" valign="top"><table width="100%"
border="0" cellpadding="0" cellspacing="0" ID="Table18">
<!--DWLayoutTable-->
<tr>
<form name="form1" method="get" action=""
ID="Form2">
<td width="440" height="15" valign="top"> <div
align="right"><span class="mainBodyText">
<input name="breed" type="hidden" id="breed"
value="<%=request.QueryString("breed")%>">
<input name="area" type="hidden" id="area"
value="<%=request.QueryString("area")%>">
<input name="st" type="hidden" id="st"
value="<%=request.QueryString("st")%>">
<input name="pn" type="hidden" id="pn"
value="<%=ofpage%>">
Results per page
<select name="rn" id="rn"
onchange="javascript:document.form1.pn.value=1 ;document.form1.submit();">
<option value="<%=resultno%>" selected><%
=resultno%></option>
<option value="10">10</option>
<option value="15">15</option>
<option value="20">20</option>
<option value="30">30</option>
</select>
Sort by:</span>
<select name="sortby" class="SortByDropDown"
onchange="document.form1.submit()" ID="Select1">
<option value="price"
selected>Price</option>
<option value="price">Age of ad</option>
<option value="price">Cross Breeds
first</option>
<option value="price">Pedigree
first</option>
</select>
<img src="../image/image_gen/spacer.gif"
width="20" height="15" border="0">
</div></td></form></tr>
</table><table width="100%" border="0" cellpadding="0"
cellspacing="0" bgcolor="#333366" ID="Table19">
<!--DWLayoutTable-->
<tr>
<td width="440" valign="top"><img
src="../image/image_bg/images/topBotforyourResults_01.gif" width="25"
height="25"><img
src="../image/image_bg/images/topBotforyourResults_02.gif" width="390"
height="25"><img
src="../image/image_bg/images/topBotforyourResults_03.gif" width="25"
height="25"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><%
response.Flush
'declear var in subs
sqltext = 0
struser = 0
strarea = 0
countmain = 0
countarea = 0
countbreed = 0
if len(request.QueryString("sortby")) < 1 then
sortby = "price"
else
sortby = request.QueryString("sortby")
end if
'function to build found boxes
function build
(breedone,breedtwo,price,area,ageofad,readynow,notes,clasid)
searchr = "<table width='100%' border='0' cellpadding='0'
cellspacing='0' class='puppySeachTable'><!--DWLayoutTable--><tr><td
colspan='2' valign='top' bgcolor='#dedee9'>"
searchr = searchr & "<strong><a href='../dogdetails.asp?breed=" &
breedone & "'>" & breedone & "</a>"
if breedtwo = "NO" then
else
searchr = searchr & "& <a href='../dogdetails.asp?breed=" & breedtwo
& "'>" & breedtwo & "</a> corss"
end if
searchr = searchr & "</strong></td><td align='right' valign='top'
bgcolor='#dedee9'><div align='right'>"
searchr = searchr & "<strong>£" & price & "</strong>"
searchr = searchr & "</div></td></tr><tr class='mainBodyText'><td
colspan='3' valign='top'>Location: "
searchr = searchr & "<strong>" & area & "</strong>"
searchr = searchr & "<BR>Age of ad: "
datecreated = date - ageofad
searchr = searchr & "<strong>" & datecreated & " Days</strong>"
searchr = searchr & "<BR>Are ready for collection: "
if readynow < date then
readynow = "Now"
elseif datedue = date then
readynow = "Today"
else
readynow = formatdatetime(datedue,1)
end if
searchr = searchr & "<strong>" & readynow & "</strong>"
searchr = searchr & "</td></tr><tr class='bottomstrip'><td colspan='3'
valign='top'>"
searchr = searchr & notes & " <a href='../clas/viewdetails.asp?
view=" & clasid & "'> <em>More>></em></a>"
searchr = searchr & "</td></tr><tr bgcolor='#89ADC0'><td valign='top'><!--
DWLayoutEmptyCell--> </td><td colspan='2' valign='top'><div
align='right'>"
searchr = searchr & "<a href='../clas/viewdetails.asp?view=" & clasid
& "'>View Details<img src='../image/image_win/arrow.gif' width='11'
height='15' align='absmiddle' border='0'></a>"
searchr = searchr & "</div></td></tr></table><BR>"
response.Write searchr
response.Flush
end function
'picks up var from form and creats sql for main sub
struser = request.QueryString("breed")
strarea = request.QueryString("area")
if struser = "all" then
struser = "LIKE '%'"
dobreed = 1
else
struser = "= '" & struser & "'"
dobreed = 0
end if
if strarea = "all" then
strarea = " AND area LIKE '%'"
doarea = 1
else
strarea = " AND area = '" & strarea & "'"
doarea = 0
end if
'***********************************************************************
sub main
Set oRS=Server.CreateObject("ADODB.recordset")
'sqltext = "SELECT * FROM clas WHERE (breedpure LIKE '" & struser & "' OR
breedtwo LIKE '" & struser & "') AND live = '1'" & strarea & " ORDER BY
price;"
sqltext = "SELECT breedpure, breedtwo, clasid, price, area, live,
datecreated, datedue, notes FROM clas WHERE (breedpure " & struser & " OR
breedtwo " & struser & ") AND live = 1" & strarea & " ORDER BY " & sortby
& ";"
oRS.Open sqltext, "DSN=OpenUniTestSite", adOpenKeyset ,adLockOptimistic
countmain = oRS.RecordCount
resultno = request.QueryString("rn")
if resultno = "" then
resultno = "10"
end if
pagenoa = countmain / resultno
pagenob = fix(countmain / resultno)
if pagenoa = pagenob then
pageno = pagenoa
else
pageno = pagenob + 1
end if
ofpage = request.QueryString("pn")
if ofpage = "" then
ofpage = "1"
end if
'ors.movefirst
startp = (cint(resultno) * cint(ofpage)) - cint(resultno)
jumpn = 1
Do until ors.eof or cint(endp) = cint(resultno)
if jumpn = 1 then
jumpn = 0
ors.move cint(startp)
end if
'breedone,breedtwo,price,area,ageofad,readynow,notes,clasid
notesnew = ors("notes")
call badl(notesnew)
response.Write build(ors("breedpure"),ors("breedtwo"),ors("price"),ors
("area"),ors("datecreated"),ors("datedue"),notesnew,ors("clasid"))
endp = endp + 1
ors.movenext
Loop
ors.close
Set oRS = Nothing
response.Write "MAIN SEARCH " & startp
end sub
'***************************************************************
sub breeds
strarea = "AND area <> '" & request.QueryString("area") & "' "
Set oRS=Server.CreateObject("ADODB.recordset")
'sqltext = "SELECT * FROM clas WHERE (breedpure LIKE '" & struser & "' OR
breedtwo LIKE '" & struser & "') AND live = '1'" & strarea & " ORDER BY
price;"
sqltext = "SELECT breedpure, breedtwo, clasid, price, area, live FROM
clas WHERE (breedpure " & struser & " OR breedtwo " & struser & ") AND
live = 1 " & strarea & " ORDER BY price;"
oRS.Open sqltext, "DSN=OpenUniTestSite", adOpenKeyset ,adLockOptimistic
'ors.movefirst
Do until ors.eof
response.Write ors("clasid") & ","
ors.movenext
Loop
countbreed = oRS.RecordCount
ors.close
Set oRS = Nothing
response.Write "BREEDS SEARCH" & "<BR>"
end sub
'*************************************************************************
sub area
strarea = "AND area = '" & request.QueryString("area") & "' "
struser = "<> '" & request.QueryString("breed") & "' "
Set oRS=Server.CreateObject("ADODB.recordset")
'sqltext = "SELECT * FROM clas WHERE (breedpure LIKE '" & struser & "' OR
breedtwo LIKE '" & struser & "') AND live = '1'" & strarea & " ORDER BY
price;"
sqltext = "SELECT breedpure, breedtwo, clasid, price, area, live FROM
clas WHERE (breedpure " & struser & " AND breedtwo " & struser & ") AND
live = 1 " & strarea & " ORDER BY price;"
oRS.Open sqltext, "DSN=OpenUniTestSite", adOpenKeyset ,adLockOptimistic
'ors.movefirst
Do until ors.eof
response.Write ors("clasid") & ","
ors.movenext
Loop
countarea = oRS.RecordCount
ors.close
Set oRS = Nothing
response.Write "AREA SEARCH" & "<BR>"
end sub
'*************************************************************************
call main
if request.QueryString("breed") = "all" or request.QueryString("area")
= "all" then
else
call breeds
end if
if request.QueryString("breed") = "all" or request.QueryString("area")
= "all" then
else
call area
end if
response.Write "<BR>" & countmain & " <BR>" & countbreed
response.Write "<BR>" & countarea
%></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0"
cellpadding="0" cellspacing="0" bgcolor="#333366" ID="Table20">
<!--DWLayoutTable-->
<tr>
<td width="440" valign="top"><img
src="../image/image_bg/images/topBotforyourResults_04.gif" width="25"
height="25"><img
src="../image/image_bg/images/topBotforyourResults_05.gif" width="390"
height="25"><img
src="../image/image_bg/images/topBotforyourResults_06.gif" width="25"
height="25"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0"
cellpadding="0" cellspacing="0" ID="Table21">
<!--DWLayoutTable-->
<tr>
<td width="440" height="15" valign="top"><img
src="../image/image_gen/spacer.gif" width="15" height="15"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="15" valign="top"><img
src="../image/image_gen/spacer.gif" width="15" height="15"></td>
</tr>
</table>
<!-- #EndEditable --></td>
<td width="145" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0"
ID="Table22">
<tr>
<td width="145" height="25" valign="top"><img
src="../admin/images/right_side_menu_01.jpg" width="145" height="25"></td>
</tr>
<tr>
<td valign="top" height="167"
background="../admin/images/right_side_menu_02.jpg" align="center"><!--
#BeginEditable "adsTable" --><!-- #EndEditable --></td>
</tr>
<tr>
<td height="14" valign="top"><img
src="../admin/images/right_side_menu_03.jpg" width="145" height="14"
name="bot" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage
('bot','','../admin/images/right_side_menu_03.jpg',1)"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="0"></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="1"><img height="1" width="145"
src="../image/image_gen/spacer.gif"></td>
<td></td>
<td><img height="1" width="145"
src="../image/image_gen/spacer.gif"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0"
ID="Table23">
<tr>
<td width="100%" height="17" valign="top"><img
src="../admin/spacer.gif" width="15" height="15"></td>
</tr>
<tr>
<td valign="top" height="3" class="tdgray"><img
src="../admin/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td height="19" valign="middle" bgcolor="#d3e4ff" align="left"
class="bottomstrip"> <a href="#top" class="bottomstrip">Top
of page</a> | <a href="../coming_soon.htm" class="bottomstrip">Tell
a friend</a> | <a href="../coming_soon.htm"
class="bottomstrip">Print
page</a> | <a href="../coming_soon.htm" class="bottomstrip">Give
feedback</a> | <a href="../coming_soon.htm" class="bottomstrip">Add
to favorites</a> | <a href="../coming_soon.htm"
class="bottomstrip">Make
this you home page</a> | <a href="../coming_soon.htm#"
class="bottomstrip">Terms/conditions/privace
statment</a> | © <a href="http://www.OpenUniTestSite.co.uk"
class="bottomstrip">OpenUniTestSite.co.uk</a>
</td>
</tr>
<tr>
<td height="3" valign="top" class="tdgray"><img
src="../admin/spacer.gif" width="1" height="1"></td>
</tr>
</table><%
server.execute "noscript_bot.htm"
%>
</body>
<!-- #EndTemplate --></html>
View Cart
