<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="Connections/dsPets.asp" -->
<%
set rsProductline = Server.CreateObject("ADODB.Recordset")
rsProductline.ActiveConnection = MM_dsPets_STRING
rsProductline.Source = "SELECT Productline_Name FROM tblProductline"
rsProductline.CursorType = 0
rsProductline.CursorLocation = 2
rsProductline.LockType = 3
rsProductline.Open()
rsProductline_numRows = 0
%>
<%
Dim rsProductList__MMColParam
rsProductList__MMColParam = "1"
if (Request.QueryString("Productline_ID") <> "") then rsProductList__MMColParam = Request.QueryString("Productline_ID")
%>
<%
set rsProductList = Server.CreateObject("ADODB.Recordset")
rsProductList.ActiveConnection = MM_dsPets_STRING
rsProductList.Source = "SELECT * FROM tblProduct WHERE Productline_ID = " + Replace(rsProductList__MMColParam, "'", "''") + " ORDER BY Product_Name ASC"
rsProductList.CursorType = 0
rsProductList.CursorLocation = 2
rsProductList.LockType = 3
rsProductList.Open()
rsProductList_numRows = 0
%>
<%
Dim rsProduct_line__MMColParam
rsProduct_line__MMColParam = "1"
if (Request.QueryString("Category_ID") <> "") then rsProduct_line__MMColParam = Request.QueryString("Category_ID")
%>
<%
set rsProduct_line = Server.CreateObject("ADODB.Recordset")
rsProduct_line.ActiveConnection = MM_dsPets_STRING
rsProduct_line.Source = "SELECT * FROM tblProductline WHERE Category_ID = " + Replace(rsProduct_line__MMColParam, "'", "''") + ""
rsProduct_line.CursorType = 0
rsProduct_line.CursorLocation = 2
rsProduct_line.LockType = 3
rsProduct_line.Open()
rsProduct_line_numRows = 0
%>
<%
Dim rsCategories__MMColParam
rsCategories__MMColParam = "1"
if (Request.QueryString("Category_ID") <> "") then rsCategories__MMColParam = Request.QueryString("Category_ID")
%>
<%
set rsCategories = Server.CreateObject("ADODB.Recordset")
rsCategories.ActiveConnection = MM_dsPets_STRING
rsCategories.Source = "SELECT * FROM tblCategory WHERE Category_ID = " + Replace(rsCategories__MMColParam, "'", "''") + ""
rsCategories.CursorType = 0
rsCategories.CursorLocation = 2
rsCategories.LockType = 3
rsCategories.Open()
rsCategories_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsProductList_numRows = rsProductList_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
rsProductList_total = rsProductList.RecordCount

' set the number of rows displayed on this page
If (rsProductList_numRows < 0) Then
  rsProductList_numRows = rsProductList_total
Elseif (rsProductList_numRows = 0) Then
  rsProductList_numRows = 1
End If

' set the first and last displayed record
rsProductList_first = 1
rsProductList_last  = rsProductList_first + rsProductList_numRows - 1

' if we have the correct record count, check the other stats
If (rsProductList_total <> -1) Then
  If (rsProductList_first > rsProductList_total) Then rsProductList_first = rsProductList_total
  If (rsProductList_last > rsProductList_total) Then rsProductList_last = rsProductList_total
  If (rsProductList_numRows > rsProductList_total) Then rsProductList_numRows = rsProductList_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsProductList_total = -1) Then

  ' count the total records by iterating through the recordset
  rsProductList_total=0
  While (Not rsProductList.EOF)
    rsProductList_total = rsProductList_total + 1
    rsProductList.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsProductList.CursorType > 0) Then
    rsProductList.MoveFirst
  Else
    rsProductList.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsProductList_numRows < 0 Or rsProductList_numRows > rsProductList_total) Then
    rsProductList_numRows = rsProductList_total
  End If

  ' set the first and last displayed record
  rsProductList_first = 1
  rsProductList_last = rsProductList_first + rsProductList_numRows - 1
  If (rsProductList_first > rsProductList_total) Then rsProductList_first = rsProductList_total
  If (rsProductList_last > rsProductList_total) Then rsProductList_last = rsProductList_total

End If
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>JOLLY ANTIQUES</TITLE>
<link href="css/style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
	background-image: url(images/bg_tile.gif);
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</HEAD>
<BODY BGCOLOR="FFFFFF" TOPMARGIN="0" LEFTMARGIN="0" MARGINHEIGHT="0" MARGINWIDTH="0">
<!-- begin Top Nav -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#A3B2C7"><a href="index.html"><img src="images/jolly_logo.gif" width="401" height="87" border="0"></a></td>
    <td bgcolor="#A3B2C7"><div align="right">
        <table width="99" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><img src="images/spacer.gif" width="99" height="38"></td>
          </tr>
          <tr>
            <td><a href="index.html"><img src="images/globalnav_home.gif" width="99" height="15" border="0"></a></td>
          </tr>
          <tr>
            <td><a href="about.html"><img src="images/globalnav_about.gif" width="99" height="14" border="0"></a></td>
          </tr>
          <tr>
            <td><a href="#" onClick="MM_openBrWindow('http://www.thomasjolly.com/contact.html','contact','toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,width=600,height=600')"><img src="images/globalnav_contact.gif" width="99" height="20" border="0"></a></td>
          </tr>
        </table>
    </div></td>
  </tr>
  <tr valign="top" bgcolor="#5E4A27">
    <td height="7" colspan="2"><img src="images/spacer.gif" width="1" height="6"></td>
  </tr>
  <tr valign="top" bgcolor="#FFFF99">
    <td height="1" colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
  </tr>
  <tr valign="top" bgcolor="#5E4A27">
    <td height="6" colspan="2"><img src="images/spacer.gif" width="1" height="5"></td>
  </tr>
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0">
  <tr valign="top">
    <td width="166"><img src="images/left_nav.gif" width="166" height="477" border="0" usemap="#Map2"><br>
&nbsp;</td>
    <td bgcolor="#FFFFFF">
<!-- Product Content -->
<!-- Product Content -->  
<table>
<%
count = 0
while not( rsProductList.eof )

if ( ( count mod 3 ) = 0 ) then ''' Change The Number after mod to the number of columns you want
count1 = 0
if (count1 = 0 and count > 0) then %>
</tr>
<% end if %>
<tr>
<td valign="top"  width="40%"> 

<!-- Nested -->
<table  cellpadding="5" cellspacing="5">
<tr>
<td valign="top"><a href="product.asp?<%= MM_keepURL & MM_joinChar(MM_keepURL) & "Product_ID=" & rsProductList.Fields.Item("Product_ID").Value %>" target="_blank"><img src="images/<%=(rsProductList.Fields.Item("Productline_ID").Value)%>/<%=(rsProductList.Fields.Item("Thumbnail").Value)%>" border="0"></a></td>
<td valign="top">
<a href="product.asp?<%= MM_keepURL & MM_joinChar(MM_keepURL) & "Product_ID=" & rsProductList.Fields.Item("Product_ID").Value %>"><strong><p id="exampleID2"><%=(rsProductList.Fields.Item("Product_Name").Value)%></p></strong></a><a href="product.asp?<%= MM_keepURL & MM_joinChar(MM_keepURL) & "Product_ID=" & rsProductList.Fields.Item("Product_ID").Value %>" target="_blank"><em>more detail</em></a></td>
</tr>
</table>
<!-- End Nested -->

</td>
<%
else
%>
<td valign="top" width="40%"> <table cellpadding="5" cellspacing="5">
<tr>
<td valign="top"><a href="product.asp?<%= MM_keepURL & MM_joinChar(MM_keepURL) & "Product_ID=" & rsProductList.Fields.Item("Product_ID").Value %>" target="_blank"><img src="images/<%=(rsProductList.Fields.Item("Productline_ID").Value)%>/<%=(rsProductList.Fields.Item("Thumbnail").Value)%>" border="0"></a></td>
<td valign="top">
<a href="product.asp?<%= MM_keepURL & MM_joinChar(MM_keepURL) & "Product_ID=" & rsProductList.Fields.Item("Product_ID").Value %>"><strong><p id="exampleID2"><%=(rsProductList.Fields.Item("Product_Name").Value)%></p></strong></a><a href="product.asp?<%= MM_keepURL & MM_joinChar(MM_keepURL) & "Product_ID=" & rsProductList.Fields.Item("Product_ID").Value %>" target="_blank"><em>more detail</em></a></td>
</tr>
</table></td>
<%
end if
rsProductList.MoveNext

count = count + 1
count1 = count1 + 1
wend
count1=3-count1
if count1<3 and Count1>0 then
for i=1 to count1%>
<td valign="top" width="20%">&nbsp;</td>
<%next%>
</tr>
<%else%>
</tr>
<% end if %>
</table>
   
   
   
   
   
<!-- Product Content -->
<!-- Product Content -->
<!-- Product Content -->
<!-- Product Content -->
      <br>
  </td>
  </tr>
</table>
<map name="Map2">
           <area shape="rect" coords="25,58,82,68" href="http://thomasjollyantiques.1stdibs.com/search.php?cat=A">
        <area shape="rect" coords="26,75,68,86" href="http://thomasjollyantiques.1stdibs.com/search.php?cat=C">
        <area shape="rect" coords="27,91,56,101" href="http://thomasjollyantiques.1stdibs.com/search.php?cat=G&subcat=G1">
        <area shape="rect" coords="26,109,83,120" href="http://thomasjollyantiques.1stdibs.com/search.php?cat=E">
        <area shape="rect" coords="27,125,71,134" href="http://thomasjollyantiques.1stdibs.com/search.php?cat=B">
        <area shape="rect" coords="24,140,47,152" href="http://thomasjollyantiques.1stdibs.com/search.php?cat=D">
        <area shape="rect" coords="27,159,68,170" href="http://thomasjollyantiques.1stdibs.com/search.php?cat=D&subcat=D1">
        <area shape="rect" coords="26,175,68,185" href="http://thomasjollyantiques.1stdibs.com/search.php?cat=G&subcat=G10">
        <area shape="rect" coords="27,192,72,202" href="http://thomasjollyantiques .1stdibs.com/search.php?cat=F">
        <area shape="rect" coords="22,253,70,265" href="product_list.asp?Category_ID=2&Productline_ID=10">
        <area shape="rect" coords="23,271,66,283" href="product_list.asp?Category_ID=2&Productline_ID=11">
        <area shape="rect" coords="24,288,64,298" href="product_list.asp?Category_ID=2&Productline_ID=12">
        <area shape="rect" coords="24,304,83,318" href="product_list.asp?Category_ID=2&Productline_ID=13">
        <area shape="rect" coords="27,322,75,334" href="product_list.asp?Category_ID=2&Productline_ID=14">
        <area shape="rect" coords="24,339,89,353" href="product_list.asp?Category_ID=2&Productline_ID=15">
        <area shape="rect" coords="18,383,142,412" href="#" onClick="MM_openBrWindow('http://www.thomasjolly.com/email_newsletter.html','','toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,width=600,height=450')">
        <area shape="rect" coords="15,224,143,248" href="reproductions.html">
        <area shape="rect" coords="15,224,143,248" href="reproductions.html">
        <area shape="rect" coords="11,25,121,52" href="antiques.html">
</map>
<p>&nbsp;</p>
</BODY>
</HTML>
<%
rsProductline.Close()
%>
<%
rsProductList.Close()
%>
<%
rsProduct_line.Close()
%>
<%
rsCategories.Close()
%>