Thanks Stuart,
I failed to release the actual code for this. I can't see where I should be tagging your suggestion at??? A little assistance please?
Robert
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="DUMMY" -->
<%
Dim rsBikes__MMColParam
rsBikes__MMColParam = "BIKE"
If (Request("MM_EmptyValue"

<> ""

Then
rsBikes__MMColParam = Request("MM_EmptyValue"

End If
%>
<%
Dim rsBikes
Dim rsBikes_numRows
Set rsBikes = Server.CreateObject("ADODB.Recordset"

rsBikes.ActiveConnection = MM_Illusions_STRING
rsBikes.Source = "SELECT ArtPicNumber, ArtCategory, PicThumb FROM ArtPics WHERE ArtCategory = '" + Replace(rsBikes__MMColParam, "'", "''"

+ "'"
rsBikes.CursorType = 0
rsBikes.CursorLocation = 2
rsBikes.LockType = 1
rsBikes.Open()
rsBikes_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = 25
Dim HLooper1__index
HLooper1__index = 0
rsBikes_numRows = rsBikes_numRows + HLooper1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rsBikes_total
Dim rsBikes_first
Dim rsBikes_last
' set the record count
rsBikes_total = rsBikes.RecordCount
' set the number of rows displayed on this page
If (rsBikes_numRows < 0) Then
rsBikes_numRows = rsBikes_total
Elseif (rsBikes_numRows = 0) Then
rsBikes_numRows = 1
End If
' set the first and last displayed record
rsBikes_first = 1
rsBikes_last = rsBikes_first + rsBikes_numRows - 1
' if we have the correct record count, check the other stats
If (rsBikes_total <> -1) Then
If (rsBikes_first > rsBikes_total) Then
rsBikes_first = rsBikes_total
End If
If (rsBikes_last > rsBikes_total) Then
rsBikes_last = rsBikes_total
End If
If (rsBikes_numRows > rsBikes_total) Then
rsBikes_numRows = rsBikes_total
End If
End If
%>
<%
Dim MM_paramName
%>
<%
' *** Move To Record and Go To Record: declare variables
Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined
Dim MM_param
Dim MM_index
Set MM_rs = rsBikes
MM_rsCount = rsBikes_total
MM_size = rsBikes_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> ""

Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> ""

End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter
if (Not MM_paramIsDefined And MM_rsCount <> 0) then
' use index parameter if defined, otherwise use offset parameter
MM_param = Request.QueryString("index"

If (MM_param = ""

Then
MM_param = Request.QueryString("offset"

End If
If (MM_param <> ""

Then
MM_offset = Int(MM_param)
End If
' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' move the cursor to the selected record
MM_index = 0
While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
If (MM_rs.EOF) Then
MM_offset = MM_index ' set MM_offset to the last possible record
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
MM_index = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = MM_index
If (MM_size < 0 Or MM_size > MM_rsCount) Then
MM_size = MM_rsCount
End If
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
MM_index = 0
While (Not MM_rs.EOF And MM_index < MM_offset)
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats
' set the first and last displayed record
rsBikes_first = MM_offset + 1
rsBikes_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (rsBikes_first > MM_rsCount) Then
rsBikes_first = MM_rsCount
End If
If (rsBikes_last > MM_rsCount) Then
rsBikes_last = MM_rsCount
End If
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)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> ""

Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_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)
End If
If (MM_keepURL <> ""

Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> ""

Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' 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
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev
Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> ""

Then
MM_paramList = Split(MM_keepMove, "&"

MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"="

- 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> ""

Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> ""

Then
MM_keepMove = MM_keepMove & "&"
End If
MM_urlStr = Request.ServerVariables("URL"

& "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<html><!-- InstanceBegin template="/Templates/Illusions Gallery.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Illusions Custom Airbrush</title>
<!-- InstanceEndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="description" content="FW MX DW MX HTML">
<!-- Fireworks MX Dreamweaver MX target. Created Sat Dec 21 14:42:58 GMT-0800 (Pacific Standard Time) 2002-->
<script language="JavaScript">
<!--
function mmLoadMenus() {
if (window.mm_menu_0016234414_0) return;
window.mm_menu_0016234414_0 = new Menu("root",142,20,"Verdana, Arial, Helvetica, sans-serif",10,"#ffff00","#ffffff","#000000","#0000ff","left","middle",0,0,1000,-134,28,true,true,true,10,false,false);
mm_menu_0016234414_0.addMenuItem("About Us","location='about3.asp'"

;
mm_menu_0016234414_0.addMenuItem("Our Quality","location='quality3.asp'"

;
mm_menu_0016234414_0.addMenuItem("Our Time Frame","location='timeframe3.asp'"

;
mm_menu_0016234414_0.addMenuItem("Design & Procedures","location='design3.asp'"

;
mm_menu_0016234414_0.addMenuItem("About the Artist","location='artist3.asp'"

;
mm_menu_0016234414_0.addMenuItem("Our Awards","location='awards3.asp'"

;
mm_menu_0016234414_0.addMenuItem("Our News","location='news3.asp'"

;
mm_menu_0016234414_0.addMenuItem("Happy Campers!","location='campers3.asp'"

;
mm_menu_0016234414_0.addMenuItem("Our Webmaster","location='webmaster3.asp'"

;
mm_menu_0016234414_0.fontWeight="bold";
mm_menu_0016234414_0.hideOnMouseOut=true;
mm_menu_0016234414_0.menuBorder=1;
mm_menu_0016234414_0.menuLiteBgColor='#ffffcc';
mm_menu_0016234414_0.menuBorderBgColor='#cccccc';
mm_menu_0016234414_0.bgColor='#ffffff';
window.mm_menu_0314223409_0 = new Menu("root",130,20,"Verdana, Arial, Helvetica, sans-serif",10,"#ffff00","#ffffff","#000000","#0000ff","left","middle",0,0,1000,-134,28,true,true,true,10,false,false);
mm_menu_0314223409_0.addMenuItem("Motorcycle Art","location='cycleart3.asp'"

;
mm_menu_0314223409_0.addMenuItem("Auto Art","location='autoart3.asp'"

;
mm_menu_0314223409_0.addMenuItem("Mural Art","location='muralart3.asp'"

;
mm_menu_0314223409_0.addMenuItem("Fine Art","location='fineart3.asp'"

;
mm_menu_0314223409_0.addMenuItem("Special Art","location='specialart3.asp'"

;
mm_menu_0314223409_0.addMenuItem("Project Art","location='projectart3.asp'"

;
mm_menu_0314223409_0.fontWeight="bold";
mm_menu_0314223409_0.hideOnMouseOut=true;
mm_menu_0314223409_0.menuBorder=1;
mm_menu_0314223409_0.menuLiteBgColor='#ffffcc';
mm_menu_0314223409_0.menuBorderBgColor='#999999';
mm_menu_0314223409_0.bgColor='#ffffff';
window.mm_menu_0314224525_1 = new Menu("root",130,20,"Verdana, Arial, Helvetica, sans-serif",10,"#ffff00","#ffffff","#000000","#0000ff","left","middle",0,0,1000,-134,28,true,true,true,10,false,false);
mm_menu_0314224525_1.addMenuItem("Past Projects","location='pastprojects3.asp'"

;
mm_menu_0314224525_1.addMenuItem("Current Projects","location='currentprojects3.asp'"

;
mm_menu_0314224525_1.addMenuItem("Future Projects","location='futureprojects3.asp'"

;
mm_menu_0314224525_1.addMenuItem("Clients View","location='clientsview3.asp'"

;
mm_menu_0314224525_1.addMenuItem("Video's","location='videos3.asp'"

;
mm_menu_0314224525_1.addMenuItem("Customer's Awards","location='clientawards3.asp'"

;
mm_menu_0314224525_1.fontWeight="bold";
mm_menu_0314224525_1.hideOnMouseOut=true;
mm_menu_0314224525_1.menuBorder=1;
mm_menu_0314224525_1.menuLiteBgColor='#ffffcc';
mm_menu_0314224525_1.menuBorderBgColor='#999999';
mm_menu_0314224525_1.bgColor='#ffffff';
window.mm_menu_0314225141_2 = new Menu("root",130,20,"Verdana, Arial, Helvetica, sans-serif",10,"#ffff00","#ffffff","#000000","#0000ff","left","middle",0,0,1000,-134,28,true,true,true,10,false,false);
mm_menu_0314225141_2.addMenuItem("Show Schedules","location='showschedules3.asp'"

;
mm_menu_0314225141_2.addMenuItem("Comments","location='comments3.asp'"

;
mm_menu_0314225141_2.addMenuItem("Quotes","location='quotes3.asp'"

;
mm_menu_0314225141_2.addMenuItem("Questions","location='questions3.asp'"

;
mm_menu_0314225141_2.addMenuItem("Bob's Biker Bar","location='bikerbar3.asp'"

;
mm_menu_0314225141_2.fontWeight="bold";
mm_menu_0314225141_2.hideOnMouseOut=true;
mm_menu_0314225141_2.menuBorder=1;
mm_menu_0314225141_2.menuLiteBgColor='#ffffcc';
mm_menu_0314225141_2.menuBorderBgColor='#cccccc';
mm_menu_0314225141_2.bgColor='#ffffff';
window.mm_menu_0314225726_3 = new Menu("root",130,20,"Verdana, Arial, Helvetica, sans-serif",10,"#ffff00","#ffffff","#000000","#0000ff","left","middle",0,0,1000,-134,28,true,true,true,10,false,false);
mm_menu_0314225726_3.addMenuItem("Related Links","location='relatedlinks3.asp'"

;
mm_menu_0314225726_3.addMenuItem("Points of Interest","location='poilinks3.asp'"

;
mm_menu_0314225726_3.fontWeight="bold";
mm_menu_0314225726_3.hideOnMouseOut=true;
mm_menu_0314225726_3.menuBorder=1;
mm_menu_0314225726_3.menuLiteBgColor='#ffffcc';
mm_menu_0314225726_3.menuBorderBgColor='#cccccc';
mm_menu_0314225726_3.bgColor='#ffffff';
mm_menu_0314225726_3.writeMenus();
} // mmLoadMenus()
//-->
</script>
<script language="JavaScript1.2" src="mm_menu.js"></script>
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFF00" vlink="#99FFFF" alink="#FF0000" leftmargin="0" topmargin="0">
<script language="JavaScript1.2">mmLoadMenus();</script>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<!--DWLayoutTable-->
<!-- fwtable fwsrc="The Menu1.png" fwbase="illusions1.jpg" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="1" -->
<tr>
<!-- row 1 -->
<td><table border="0" cellpadding="0" cellspacing="0" width="108">
<tr>
<!-- row 1 -->
<td><img name="illusions1_r1_c1" src="Images/illusions1_r1_c1.jpg" width="108" height="76" border="0" alt=""></td>
</tr>
<tr>
<!-- row 2 -->
<td><a href="#" onMouseOut="MM_startTimeout();" onMouseOver="MM_showMenu(window.mm_menu_0016234414_0,0,25,null,'illusions1_r2_c1');"><img name="illusions1_r2_c1" src="Images/illusions1_r2_c1.jpg" width="108" height="64" border="0" alt=""></a></td>
</tr>
</table></td>
<td><table border="0" cellpadding="0" cellspacing="0" width="96">
<tr>
<!-- row 1 -->
<td><img name="illusions1_r1_c2" src="Images/illusions1_r1_c2.jpg" width="96" height="76" border="0" alt=""></td>
</tr>
<tr>
<!-- row 2 -->
<td><a href="#" onMouseOut="MM_startTimeout();" onMouseOver="MM_showMenu(window.mm_menu_0314223409_0,0,25,null,'illusions1_r2_c2');"><img name="illusions1_r2_c2" src="Images/illusions1_r2_c2.jpg" width="96" height="64" border="0" alt=""></a></td>
</tr>
</table></td>
<td><table border="0" cellpadding="0" cellspacing="0" width="96">
<tr>
<!-- row 1 -->
<td><img name="illusions1_r1_c3" src="Images/illusions1_r1_c3.jpg" width="96" height="76" border="0" alt=""></td>
</tr>
<tr>
<!-- row 2 -->
<td><a href="#" onMouseOut="MM_startTimeout();" onMouseOver="MM_showMenu(window.mm_menu_0314224525_1,0,25,null,'illusions1_r2_c3');"><img name="illusions1_r2_c3" src="Images/illusions1_r2_c3.jpg" width="96" height="64" border="0" alt=""></a></td>
</tr>
</table></td>
<td><table border="0" cellpadding="0" cellspacing="0" width="98">
<tr>
<!-- row 1 -->
<td><img name="illusions1_r1_c4" src="Images/illusions1_r1_c4.jpg" width="98" height="76" border="0" alt=""></td>
</tr>
<tr>
<!-- row 2 -->
<td><a href="#" onMouseOut="MM_startTimeout();" onMouseOver="MM_showMenu(window.mm_menu_0314225141_2,0,25,null,'illusions1_r2_c4');"><img name="illusions1_r2_c4" src="Images/illusions1_r2_c4.jpg" width="98" height="64" border="0" alt=""></a></td>
</tr>
</table></td>
<td><table border="0" cellpadding="0" cellspacing="0" width="96">
<tr>
<!-- row 1 -->
<td><img name="illusions1_r1_c5" src="Images/illusions1_r1_c5.jpg" width="96" height="76" border="0" alt=""></td>
</tr>
<tr>
<!-- row 2 -->
<td><a href="#" onMouseOut="MM_startTimeout();" onMouseOver="MM_showMenu(window.mm_menu_0314225726_3,0,25,null,'illusions1_r2_c5');"><img name="illusions1_r2_c5" src="Images/illusions1_r2_c5.jpg" width="96" height="64" border="0" alt=""></a></td>
</tr>
</table></td>
<td><table border="0" cellpadding="0" cellspacing="0" width="103">
<tr>
<!-- row 1 -->
<td><img name="illusions1_r1_c6" src="Images/illusions1_r1_c6.jpg" width="103" height="76" border="0" alt=""></td>
</tr>
<tr>
<!-- row 2 -->
<td><img name="illusions1_r2_c6" src="Images/illusions1_r2_c6.jpg" width="103" height="64" border="0" alt=""></td>
</tr>
</table></td>
<td><table border="0" cellpadding="0" cellspacing="0" width="33">
<tr>
<!-- row 1 -->
<td><img name="illusions1_r1_c7" src="Images/illusions1_r1_c7.jpg" width="33" height="76" border="0" alt=""></td>
</tr>
<tr>
<!-- row 2 -->
<td><img name="illusions1_r2_c7" src="Images/illusions1_r2_c7.jpg" width="33" height="64" border="0" alt=""></td>
</tr>
</table></td>
<td><img name="illusions1_r1_c8" src="Images/illusions1_r1_c8.jpg" width="52" height="140" border="0" alt=""></td>
<td><table border="0" cellpadding="0" cellspacing="0" width="84">
<tr>
<!-- row 1 -->
<td><img name="illusions1_r1_c9" src="Images/illusions1_r1_c9.jpg" width="84" height="76" border="0" alt=""></td>
</tr>
<tr>
<!-- row 2 -->
<td><img name="illusions1_r2_c9" src="Images/illusions1_r2_c9.jpg" width="84" height="64" border="0" alt=""></td>
</tr>
</table></td>
<td width="100%" background="Images/illusions1_r1_c10.jpg"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="1"><img src="spacer.gif" alt="" width="108" height="1"></td>
<td><img src="spacer.gif" alt="" width="96" height="1"></td>
<td><img src="spacer.gif" alt="" width="96" height="1"></td>
<td><img src="spacer.gif" alt="" width="98" height="1"></td>
<td><img src="spacer.gif" alt="" width="96" height="1"></td>
<td><img src="spacer.gif" alt="" width="103" height="1"></td>
<td><img src="spacer.gif" alt="" width="33" height="1"></td>
<td><img src="spacer.gif" alt="" width="52" height="1"></td>
<td><img src="spacer.gif" alt="" width="84" height="1"></td>
<td></td>
</tr>
</table>
<!-- InstanceBeginEditable name="Body" -->
<table width="100%" border="0" cellspacing="3" cellpadding="3">
<tr>
<td>
<table align="center">
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 5
numrows = 5
while((numrows <> 0) AND (Not rsBikes.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not rsBikes.EOF))
%>
<td> <table border="0" align="center" cellpadding="4" cellspacing="4">
<tr>
<td><div align="center"><img src="<%=(rsBikes.Fields.Item("PicThumb"

.Value)%>" alt=""></div></td>
</tr>
</table>
</td>
<%
startrw = startrw + 1
rsBikes.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
</table>
<p align="center"> </p>
<table border="0" width="50%" align="center">
<tr>
<td width="23%" align="center">
<% If MM_offset <> 0 Then %>
<a href="<%=MM_moveFirst%>"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">First</font></a>
<% End If ' end MM_offset <> 0 %> </td>
<td width="31%" align="center">
<% If MM_offset <> 0 Then %>
<a href="<%=MM_movePrev%>"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Previous</font></a>
<% End If ' end MM_offset <> 0 %> </td>
<td width="23%" align="center">
<% If Not MM_atTotal Then %>
<a href="<%=MM_moveNext%>"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Next</font></a>
<% End If ' end Not MM_atTotal %> </td>
<td width="23%" align="center">
<% If Not MM_atTotal Then %>
<a href="<%=MM_moveLast%>"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Last</font></a>
<% End If ' end Not MM_atTotal %> </td>
</tr>
</table></td>
</tr>
</table>
<!-- InstanceEndEditable -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top"> </td>
</tr>
</table>
<p> </p>
</body>
<!-- InstanceEnd --></html>
<%
rsBikes.Close()
Set rsBikes = Nothing
%>