<%@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
%>
<%
'  *** 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
%>
<%
' *** Move To Record and Go To Record: declare variables

Set MM_rs    = rsProductList
MM_rsCount   = rsProductList_total
MM_size      = rsProductList_numRows
MM_uniqueCol = "Product_ID"
MM_paramName = "Product_ID"
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Specific Record: handle detail parameter

If (MM_paramIsDefined And MM_rsCount <> 0) Then

  ' get the value of the parameter
  param = Request.QueryString(MM_paramName)

  ' find the record with the unique column value equal to the parameter value
  MM_offset = 0
  Do While (Not MM_rs.EOF)
    If (Cstr(MM_rs.Fields.Item(MM_uniqueCol).Value) = param) Then
      Exit Do
    End If
    MM_offset = MM_offset + 1
    MM_rs.MoveNext
  Loop

  ' if not found, set the number of records and reset the cursor
  If (MM_rs.EOF) Then
    If (MM_rsCount < 0) Then MM_rsCount = MM_offset
    If (MM_size < 0 Or MM_size > MM_offset) Then MM_size = MM_offset
    MM_offset = 0

    ' reset the cursor to the beginning
    If (MM_rs.CursorType > 0) Then
      MM_rs.MoveFirst
    Else
      MM_rs.Close
      MM_rs.Open
    End If
  End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
    MM_rs.MoveNext
    i = i + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = i
    If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

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

  ' move the cursor to the selected record
  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
    MM_rs.MoveNext
    i = i + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
rsProductList_first = MM_offset + 1
rsProductList_last  = MM_offset + MM_size
If (MM_rsCount <> -1) Then
  If (rsProductList_first > MM_rsCount) Then rsProductList_first = MM_rsCount
  If (rsProductList_last > MM_rsCount) Then rsProductList_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Thomas Jolly Antiques</TITLE>
<link href="css/style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY BGCOLOR="FFFFFF" TOPMARGIN="0" LEFTMARGIN="0" MARGINHEIGHT="0" MARGINWIDTH="0">
<table width="613" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#A3B2C7"><img src="images/jolly_logo.gif" width="401" height="87">      <div align="right">
      </div></td>
  </tr>
  <tr valign="top" background="images/toptile.gif">
    <td><img src="images/toptile.gif" width="615" height="12"></td>
  </tr>
</table>
<!-- begin Top Nav -->
<!-- end Top Nav -->
<table width="612" border="0" cellspacing="0" cellpadding="0">
  <tr valign="top">
    <td width="252"><table width="250" border="0" cellspacing="0" cellpadding="0">
        <tr valign="top">
          <td width="27" rowspan="3">&nbsp;</td>
          <td><font color="#5E4A27" class="boldbrown"><img src="images/spacer.gif" width="252" height="113"></td>
        </tr>
        <tr valign="top">
          <td><table width="250" border="0" cellspacing="0" cellpadding="0">
            <tr valign="top">
              <td width="27" rowspan="3"><font color="#5E4A27"><img src="images/spacer.gif" width="27" height="5"></font></td>
              <td><span class="boldbrown"><p id="exampleID2"><font color="#5E4A27"><%=(rsProductList.Fields.Item("Product_Name").Value)%></font></p></span></td>
              <td rowspan="3"><font color="#5E4A27"><img src="images/spacer.gif" width="18" height="5"></font></td>
            </tr>
            <tr valign="top">
              <td>&nbsp;</td>
              </tr>
            <tr>
              <td><span class="popup"><%=(rsProductList.Fields.Item("Product_Description").Value)%></span></td>
              </tr>
          </table></td>
        </tr>
        <tr valign="top">
          <td>&nbsp;</td>
        </tr>
        </table></td>
    <td><img src="images/<%=(rsProductList.Fields.Item("Productline_ID").Value)%>/<%=(rsProductList.Fields.Item("Photo").Value)%>"></td>
  </tr>
</table>
<table width="615" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><img src="images/btm_contact_popup.gif" width="612" height="77"></td>
  </tr>
</table>
<br>
</BODY>
</HTML>
<%
rsProductline.Close()
%>
<%
rsProductList.Close()
%>
<%
rsProduct_line.Close()
%>