<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'************************************************************************
' ECOMMERCEMAX SOLUTIONS http://www.ecommercemax.com
' Contact: info@ecommercemax.com
' January 2005
'*************************************************************************************
' ****     I M P O R T A N T   ****
' THIS IS A SINGLE-HOST LICENSE ONLY.
' YOU MAY NOT REDISTRIBUTE THIS SOFTWARE.
' YOU MAY NOT RESELL THIS SOFTWARE.
' ECOMMERCEMAX SOLUTIONS WILL PROSECUTE VIOLATORS TO THE FULLEST EXTENT OF THE LAW.
'*************************************************************************************

' *** WARRANTY DISCLAIMER. THE CODES ON THIS SCRIPT PACKAGE ARE PROVIDED    ***
' *** "AS IS" WITHOUT WARRANTIES OF ANY KIND EITHER EXPRESS OR IMPLIED. TO  ***
' *** THE FULLEST EXTENT POSSIBLE PURSUANT TO THE APPLICABLE LAW,           ***
' *** ECOMMERCEMAX SOLUTIONS DISCLAIMS ALL WARRANTIES, EXPRESSED OR         ***
' *** IMPLIED, INCLUDING, BUT NOT LIMITED TO, IMPLIED WARRANTIES OF         ***
' *** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, NON-INFRINGEMENT   ***
' *** OR OTHER VIOLATION OF RIGHTS. ECOMMERCEMAX SOLUTIONS DOES NOT         ***
' *** WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE, VALIDITY,      ***
' *** ACCURACY, OR RELIABILITY OF, OR THE RESULTS OF THE USE OF, OR         ***
' *** OTHERWISE RESPECTING, THE CODES ON THIS SCRIPT PACKAGE OR ANY         ***
' *** RESOURCES USED ON THIS SCRIPT PACKAGE.                                ***

' *** Limitation of Liability.                                                     ***
' *** IN NO EVENT WILL ECOMMERCEMAX SOLUTIONS, OR OTHER THIRD PARTIES              ***
' *** MENTIONED AT THIS SITE BE LIABLE FOR ANY DAMAGES WHATSOEVER (INCLUDING,      ***
' *** WITHOUT LIMITATION, THOSE RESULTING FROM LOST PROFITS, LOST DATA OR          ***
' *** BUSINESS INTERRUPTION) ARISING OUT OF THE USE, INABILITY TO USE, OR THE      ***
' *** RESULTS OF USE OF THIS SCRIPTS PACKAGE, ANY WEB SITES LINKED TO THIS TOOL,   ***
' *** OR THE MATERIALS OR INFORMATION CONTAINED HERE, WHETHER BASED ON WARRANTY,   ***
' *** CONTRACT, TORT OR ANY OTHER LEGAL THEORY AND WHETHER OR NOT ADVISED OF THE   ***
' *** POSSIBILITY OF SUCH DAMAGES. IF YOUR USE OF THE MATERIALS OR INFORMATION     ***
' *** FROM THIS TOOL RESULTS IN THE NEED FOR SERVICING, REPAIR OR CORRECTION OF    ***
' *** EQUIPMENT OR DATA, YOU ASSUME ALL COSTS THEREOF.                             ***

'*************************************************************************************
' ****     I M P O R T A N T   ****
' THIS IS A SINGLE-HOST LICENSE ONLY.
' YOU MAY NOT REDISTRIBUTE THIS SOFTWARE.
' YOU MAY NOT RESELL THIS SOFTWARE.
' ECOMMERCEMAX SOLUTIONS WILL PROSECUTE VIOLATORS TO THE FULLEST EXTENT OF THE LAW.
'*************************************************************************************

' This package was autodelivered to you by 
' using Ecommercemax's PAYPAL IPN MADE EASY SYSTEM
' Don't forget to check it out at http://www.ecommercemax.com/paypal_ipn_made_easy.asp
'*************************************************************************************
%>
<%
DIM pref_paypal_account, LOG_FILE, VENDOR_IDENTITY, VENDOR_NAME, VENDOR_EMAIL, VENDOR_EMAIL_CC, VENDOR_EMAIL_BCC, DATABASE_PATH, MM_connection_STRING

'*** CHANGE THE FOLLOWIN TO YOUR OWN CONFIGURATION ***
pref_paypal_account = "greg@gregsinibaldi.com"
pref_private_path 	= "../access_db"
paypal_notify_url 	= "http://www.gregsinibaldi.com/store/ipn_processor.asp"
return_url 					= "http://www.gregsinibaldi.com/store/thankyou.asp"
cancel_url 					= "http://www.gregsinibaldi.com/store/cancel.asp"
login_url 					= "http://www.gregsinibaldi.com/store/login.asp"
VENDOR_NAME 				= "Greg Sinibaldi"			'*--> NAME OF YOUR COMPANY
VENDOR_EMAIL 				= "greg@gregsinibaldi.com"	'*--> YOUR PRIMARY EMAIL REGISTERED WITH PAYPAL
VENDOR_EMAIL_CC 		= ""  													'*--> CC EMAIL - FOR ADDITIONAL NOTIFICATION EMAIL - OPTIONAL
VENDOR_EMAIL_BCC 		= ""  													'*--> BCC EMAIL - FOR ADDITIONAL NOTIFICATION EMAIL - OPTIONAL

CONST TERMINATE_ON_SYSTEM_ERROR = FALSE	'*IF THERE IS A SERIOUS SYSTEM ERROR TRAPPED BY THE SYSTEM SUCH AS FAILURE TO 
																				'*CREATE A SERVER OBJECT, YOU MAY CHOOSE TO TERMINATE THE SCRIPT RIGHT AWAY.
																				'*JUST SET TERMINATE_ON_SYSTEM_ERROR TO "TRUE"
CONST AUDIT_TRAIL_ON = TRUE						' SET THIS TO TRUE TO ENABLE TEXT LOG FILE
LOG_FILE = "PAYPAL.txt"									'*PAYPAL AUDIT TRAIL LOG FILE
														'*NOTE: FOR ADDED SECURITY, IT IS BEST TO STORE THE LOG FILE OUTSIDE THE ROOT FOLDER 
														'*EX. "../Private/paypal.txt" --> here folder "Private" is outside the HTTP REACH
const remote_admin_login = "gsinibaldi"
const remote_admin_password = "Lupita123"
%>

<%
'************************************************************************
' ECOMMERCEMAX SOLUTIONS http://www.ecommercemax.com
' Contact: info@ecommercemax.com
' January 2005
'*************************************************************************************
' ****     I M P O R T A N T   ****
' THIS IS A SINGLE-HOST LICENSE ONLY.
' YOU MAY NOT REDISTRIBUTE THIS SOFTWARE.
' YOU MAY NOT RESELL THIS SOFTWARE.
' ECOMMERCEMAX SOLUTIONS WILL PROSECUTE VIOLATORS TO THE FULLEST EXTENT OF THE LAW.
'*************************************************************************************

' *** WARRANTY DISCLAIMER. THE CODES ON THIS SCRIPT PACKAGE ARE PROVIDED    ***
' *** "AS IS" WITHOUT WARRANTIES OF ANY KIND EITHER EXPRESS OR IMPLIED. TO  ***
' *** THE FULLEST EXTENT POSSIBLE PURSUANT TO THE APPLICABLE LAW,           ***
' *** ECOMMERCEMAX SOLUTIONS DISCLAIMS ALL WARRANTIES, EXPRESSED OR         ***
' *** IMPLIED, INCLUDING, BUT NOT LIMITED TO, IMPLIED WARRANTIES OF         ***
' *** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, NON-INFRINGEMENT   ***
' *** OR OTHER VIOLATION OF RIGHTS. ECOMMERCEMAX SOLUTIONS DOES NOT         ***
' *** WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE, VALIDITY,      ***
' *** ACCURACY, OR RELIABILITY OF, OR THE RESULTS OF THE USE OF, OR         ***
' *** OTHERWISE RESPECTING, THE CODES ON THIS SCRIPT PACKAGE OR ANY         ***
' *** RESOURCES USED ON THIS SCRIPT PACKAGE.                                ***

' *** Limitation of Liability.                                                     ***
' *** IN NO EVENT WILL ECOMMERCEMAX SOLUTIONS, OR OTHER THIRD PARTIES              ***
' *** MENTIONED AT THIS SITE BE LIABLE FOR ANY DAMAGES WHATSOEVER (INCLUDING,      ***
' *** WITHOUT LIMITATION, THOSE RESULTING FROM LOST PROFITS, LOST DATA OR          ***
' *** BUSINESS INTERRUPTION) ARISING OUT OF THE USE, INABILITY TO USE, OR THE      ***
' *** RESULTS OF USE OF THIS SCRIPTS PACKAGE, ANY WEB SITES LINKED TO THIS TOOL,   ***
' *** OR THE MATERIALS OR INFORMATION CONTAINED HERE, WHETHER BASED ON WARRANTY,   ***
' *** CONTRACT, TORT OR ANY OTHER LEGAL THEORY AND WHETHER OR NOT ADVISED OF THE   ***
' *** POSSIBILITY OF SUCH DAMAGES. IF YOUR USE OF THE MATERIALS OR INFORMATION     ***
' *** FROM THIS TOOL RESULTS IN THE NEED FOR SERVICING, REPAIR OR CORRECTION OF    ***
' *** EQUIPMENT OR DATA, YOU ASSUME ALL COSTS THEREOF.                             ***

'*************************************************************************************
' ****     I M P O R T A N T   ****
' THIS IS A SINGLE-HOST LICENSE ONLY.
' YOU MAY NOT REDISTRIBUTE THIS SOFTWARE.
' YOU MAY NOT RESELL THIS SOFTWARE.
' ECOMMERCEMAX SOLUTIONS WILL PROSECUTE VIOLATORS TO THE FULLEST EXTENT OF THE LAW.
'*************************************************************************************

' This package was autodelivered to you by 
' using Ecommercemax's PAYPAL IPN MADE EASY SYSTEM
' Don't forget to check it out at http://www.ecommercemax.com/paypal_ipn_made_easy.asp
'*************************************************************************************
%>
<%
db_path = server.MapPath(pref_private_path & "\myData.mdb") 
MM_connection_STRING = "Provider=MSDASQL; Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db_path
'response.write "db=" & MM_connection_STRING
'response.End()
%>

<%
Private function fix_single_quote(str)
  fix_single_quote = trim(replace(replace(str, "'", "''"), "|", ""))
end function

Function MYCART_PRODUCT_COUNT( cartid )
  Dim rs
    set rs = Server.CreateObject("ADODB.Recordset")
  	rs.ActiveConnection = MM_Connection_STRING
    rs.Source = "SELECT COUNT(*) as VAR_COUNT FROM tbl_cart WHERE cartid = " & cartid
    rs.CursorType = 0
    rs.CursorLocation = 2
    rs.LockType = 3
    rs.Open()
	MYCART_PRODUCT_COUNT = rs("VAR_COUNT")
	rs.Close
End Function

Function MYCART_PRICE( cartid )
  Dim rs
    set rs = Server.CreateObject("ADODB.Recordset")
	rs.ActiveConnection = MM_Connection_STRING
    rs.Source = "SELECT SUM(i.item_cost) as sum_cost FROM tbl_cart c, tbl_items i WHERE c.item_code=i.item_code and c.cartid = " & cartid
    rs.CursorType = 0
    rs.CursorLocation = 2
    rs.LockType = 3
    rs.Open()
	MYCART_PRICE = Cdbl(rs("sum_cost"))
	rs.Close
End Function

function MYCART_ADD_ITEM( cartid, item_code, qty )
  dim rs, Cmd
	dim strresult 
  if NOT isNumeric(qty) or isNull(qty) or (qty = "") OR (qty = "0") then 'Minimum qty should always be 1
	  qty = 1
	end if
    '** Fetch the product detail
    set rs = Server.CreateObject("ADODB.Recordset")
  	rs.ActiveConnection = MM_Connection_STRING
    rs.Source = "SELECT * FROM tbl_items WHERE item_code = '" & item_code & "'"
    rs.CursorType = 0
    rs.CursorLocation = 2
    rs.LockType = 3
    rs.Open()
	'** Update or Insert to cart
	if NOT rs.eof then
 		MYCART_DELETE_ITEM cartid, item_code
  	Set Cmd = Server.CreateObject("ADODB.Command")
		Cmd.ActiveConnection = MM_Connection_STRING
		Cmd.CommandText = "INSERT INTO tbl_cart (cartid, item_code) VALUES ('" & cartid & "','" & fix_single_quote(item_code) & "')"
		Cmd.Execute
	end if
	rs.Close
	set rs = nothing
End function

Sub MYCART_DELETE_ITEM( cartid, theitem_code )
  dim Cmd
	'** Remove cart	entry
    Set Cmd = Server.CreateObject("ADODB.Command")
    Cmd.ActiveConnection = MM_Connection_STRING
    Cmd.CommandText = "DELETE FROM tbl_cart WHERE cartid = " & cartid & " AND item_code = '" & theitem_code & "'"
    Cmd.Execute
End Sub

Sub MYCART_EMPTY( cartid )
  dim Cmd
	'** Empty the shopcart
    Set Cmd = Server.CreateObject("ADODB.Command")
    Cmd.ActiveConnection = MM_Connection_STRING
    Cmd.CommandText = "DELETE FROM tbl_cart WHERE cartid = " & cartid & " "
    Cmd.Execute
End Sub

%>
<%
'************************************************************************
' ECOMMERCEMAX SOLUTIONS http://www.ecommercemax.com
' Contact: info@ecommercemax.com
' January 2005
'*************************************************************************************
' ****     I M P O R T A N T   ****
' THIS IS A SINGLE-HOST LICENSE ONLY.
' YOU MAY NOT REDISTRIBUTE THIS SOFTWARE.
' YOU MAY NOT RESELL THIS SOFTWARE.
' ECOMMERCEMAX SOLUTIONS WILL PROSECUTE VIOLATORS TO THE FULLEST EXTENT OF THE LAW.
'*************************************************************************************

' *** WARRANTY DISCLAIMER. THE CODES ON THIS SCRIPT PACKAGE ARE PROVIDED    ***
' *** "AS IS" WITHOUT WARRANTIES OF ANY KIND EITHER EXPRESS OR IMPLIED. TO  ***
' *** THE FULLEST EXTENT POSSIBLE PURSUANT TO THE APPLICABLE LAW,           ***
' *** ECOMMERCEMAX SOLUTIONS DISCLAIMS ALL WARRANTIES, EXPRESSED OR         ***
' *** IMPLIED, INCLUDING, BUT NOT LIMITED TO, IMPLIED WARRANTIES OF         ***
' *** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, NON-INFRINGEMENT   ***
' *** OR OTHER VIOLATION OF RIGHTS. ECOMMERCEMAX SOLUTIONS DOES NOT         ***
' *** WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE, VALIDITY,      ***
' *** ACCURACY, OR RELIABILITY OF, OR THE RESULTS OF THE USE OF, OR         ***
' *** OTHERWISE RESPECTING, THE CODES ON THIS SCRIPT PACKAGE OR ANY         ***
' *** RESOURCES USED ON THIS SCRIPT PACKAGE.                                ***

' *** Limitation of Liability.                                                     ***
' *** IN NO EVENT WILL ECOMMERCEMAX SOLUTIONS, OR OTHER THIRD PARTIES              ***
' *** MENTIONED AT THIS SITE BE LIABLE FOR ANY DAMAGES WHATSOEVER (INCLUDING,      ***
' *** WITHOUT LIMITATION, THOSE RESULTING FROM LOST PROFITS, LOST DATA OR          ***
' *** BUSINESS INTERRUPTION) ARISING OUT OF THE USE, INABILITY TO USE, OR THE      ***
' *** RESULTS OF USE OF THIS SCRIPTS PACKAGE, ANY WEB SITES LINKED TO THIS TOOL,   ***
' *** OR THE MATERIALS OR INFORMATION CONTAINED HERE, WHETHER BASED ON WARRANTY,   ***
' *** CONTRACT, TORT OR ANY OTHER LEGAL THEORY AND WHETHER OR NOT ADVISED OF THE   ***
' *** POSSIBILITY OF SUCH DAMAGES. IF YOUR USE OF THE MATERIALS OR INFORMATION     ***
' *** FROM THIS TOOL RESULTS IN THE NEED FOR SERVICING, REPAIR OR CORRECTION OF    ***
' *** EQUIPMENT OR DATA, YOU ASSUME ALL COSTS THEREOF.                             ***

'*************************************************************************************
' ****     I M P O R T A N T   ****
' THIS IS A SINGLE-HOST LICENSE ONLY.
' YOU MAY NOT REDISTRIBUTE THIS SOFTWARE.
' YOU MAY NOT RESELL THIS SOFTWARE.
' ECOMMERCEMAX SOLUTIONS WILL PROSECUTE VIOLATORS TO THE FULLEST EXTENT OF THE LAW.
'*************************************************************************************

' This package was autodelivered to you by 
' using Ecommercemax's PAYPAL IPN MADE EASY SYSTEM
' Don't forget to check it out at http://www.ecommercemax.com/paypal_ipn_made_easy.asp
'*************************************************************************************
%>
<%
Session.Timeout = 60
if session("cartid") = "" then 
  session("cartid") = session.SessionID
end if

dim alternaterowcolor
'alternaterowcolor = "#66CCFF"  'UNCOMMENT THIS TO HAVE ALTERNATE ROW BACKGROUND COLORS
dim debugpage
debugpage=0

'on error resume next
rowsperpage = 10
move_direction = request.form("move_direction")
offset = CInt(request("offset"))

Set rs_item = Server.CreateObject("ADODB.Recordset")
rs_item.ActiveConnection = MM_connection_STRING
rs_item.Source = "SELECT * FROM tbl_items where onhold=0 and category_id = 2 ORDER BY sort_id, item_description" 
rs_item.CursorType = 0
rs_item.CursorLocation = 2
rs_item.LockType = 1
rs_item.Open()

'Count total rows - didnt use "record.recordcount" here to always provide accurate count
if not rs_item.eof then
  rs_item.movefirst()
  totalrows = 0
  while not rs_item.eof
    totalrows = totalrows + 1
 	  rs_item.movenext()
  wend
end if
'if totalrows < rowsperpage then rowsperpage = totalrows
'what action to take?
select case ucase(move_direction)
  case "FIRST"
    offset = 1
  case "PREVIOUS"
    offset = offset - rowsperpage 
	if offset < 1 then offset = 1
  case "NEXT"  
    offset = offset + rowsperpage 
	if offset > totalrows then offset = (totalrows - rowsperpage) + 1
  case "LAST"  
    offset = (totalrows - rowsperpage) + 1
  case else
    offset = 1		
end select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Store - Extras</title>
<SCRIPT LANGUAGE="JAVASCRIPT">
<!-- Begin
function NewWindow(locmap, map, w, h, noresizable, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+', toolbar=0, menubar=0, scrollbars='+ '1' +',resizable'

win = window.open(locmap, map, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</SCRIPT>
<style type="text/css">
<!--
.style5 {color: #FFCC33; font-family: Verdana, Arial, Helvetica, sans-serif; }
body,td,th {
	color: #CC6600;
	font-size: 12px;
}
body {
	background-color: #333333;
}
a:link {
	color: #FFCC33;
}
.style16 {font-size: 12}
.style18 {font-size: 12; font-weight: bold; }
.style19 {font-size: 12px}
.style35 {	font-size: 14px;
	font-weight: bold;
}
.style36 {font-size: 12px; font-family: Verdana, Arial, Helvetica, sans-serif; }
a:visited {
	color: #CC6666;
}
.style39 {font-size: 12px; font-family: Verdana, Arial, Helvetica, sans-serif; color: #CC6600; }
.style40 {font-size: 14px}
.style41 {color: #CC6600}
-->
</style>
</head>
<body>
<table width="801" border="0" align="center">
  <tr align="left" valign="top">
    <th height="62" colspan="7" scope="col"><img src="../Images/logo2-with-bgrd.gif"></th>
  </tr>
  <tr align="left" valign="top">
    <th height="4" colspan="7" scope="col">
      <div align="left"><img src="../Images/spacehorizontal.jpg" width="800" height="2"></div></th>
  </tr>
  <tr align="left" valign="top">
    <th width="23" height="18" valign="bottom" scope="col">
      <script type="text/javascript" src="../swfobject.js"></script>
      <div id="home"> box </div>
      <script type="text/javascript">
   var so = new SWFObject("../home_button.swf", "home", "100", "22", "7", "#333333");
   so.write("home");
  </script>
    <th width="23" valign="bottom" scope="col">
      <script type="text/javascript"></script>
      <div id="bio"> box </div>
      <script type="text/javascript">
   var so = new SWFObject("../bio_button.swf", "home", "100", "22", "7", "#333333");
   so.write("bio");
  </script>
    <th width="23" valign="bottom" scope="col">
      <script type="text/javascript"></script>
      <div id="calendar"> box </div>
      <script type="text/javascript">
   var so = new SWFObject("../calendar_button.swf", "home", "100", "22", "7", "#333333");
   so.write("calendar");
  </script>
    <th width="23" valign="bottom" scope="col">
      <script type="text/javascript"></script>
      <div id="projects"> box </div>
      <script type="text/javascript">
   var so = new SWFObject("../projects_button.swf", "home", "100", "22", "7", "#333333");
   so.write("projects");
  </script></th>
    <th width="23" height="18" valign="bottom" scope="col">
      <script type="text/javascript" ></script>
      <div id="contact"> box </div>
      <script type="text/javascript">
   var so = new SWFObject("../contact_button.swf", "home", "100", "22", "7", "#333333");
   so.write("contact");
  </script></th>
    <th width="21" valign="bottom" scope="col">
      <script type="text/javascript"></script>
      <div id="store"> box </div>
      <script type="text/javascript">
   var so = new SWFObject("../store_button.swf", "home", "100", "22", "7", "#333333");
   so.write("store");
  </script>
    </th>
      <th width="641" valign="bottom" scope="col">
	  <script type="text/javascript" src="swfobject.js"></script>
      <div id="press"> box </div>
      <script type="text/javascript">
   var so = new SWFObject("../press_button.swf", "home", "100", "22", "7", "#333333");
   so.write("press");
</script>
  </tr>
  <tr align="left" valign="top">
    <th height="18" colspan="7" scope="col"><img src="../Images/spacehorizontal.jpg" width="800" height="2"></th>
  </tr>
</table>
<br>
<table width="800" align="center">
  <tr>
    <td width="90"><div align="left"><img src="../Images/background-7-opt.jpg" width="90" height="70"></div></td>
    <td width="186" valign="top"><p><span class="style35"><span class="style5">Extras<br>
        </span></span><span class="style36"><span class="style5"><span class="style41">Music and more...</span> <br>
        </span></span><span class="style36"><span class="style5"><br>
        </span></span></p>
    </td>
    <td width="107" valign="top"><div align="left"><span class="style36"><span class="style5"><a href="store.asp">Back to Store</a></span></span></div></td>
    <td width="397" valign="top"><div align="left"><span class="style36"><span class="style5"><a href="shoppingcart.asp"><font face="Verdana, Arial, Helvetica, sans-serif"></font></a><font face="Verdana, Arial, Helvetica, sans-serif"><a href="shoppingcart.asp"><img src="images/cart.gif" width="13" height="15" hspace="0" vspace="0" border="0" align="absmiddle"></a></font> <a href="shoppingcart.asp">View Cart</a></span></span></div></td>
  </tr>
</table>
<p align="center" class="style39">&nbsp;</p>
<p align="center" class="style39">Check back soon for more content... </p>
<!--<table width="800" border="1" align="center">
  <tr>
    <td width="38" class="style39">CD<br></td>
    <td width="245" class="style39">Description</td>
    <td width="211" class="style39">Track Name </td>
    <td width="278" class="style39">Price</td>
  </tr>
</table>
<table width="800"  border="1" align="center" style="border-collapse: collapse">
  <%
		if totalrows > 0 then rs_item.movefirst()
		'position to current offset
		i = 1
		while (i < offset and not rs_item.eof)
			i = i + 1
				rs_item.movenext()
		wend
		i = 1
		while i < (rowsperpage+1) and not rs_item.eof 
		%>
  <%
		if NOT rs_item.eof then 
			if bgcolor = alternaterowcolor then bgcolor = "" else bgcolor = alternaterowcolor
		%>
  <form name="form1" method="post" action="shoppingcart.asp">
    <tr>
      <td>
        <table width="780"  border="0" align="left" cellpadding="0" cellspacing="0" >
          <tr>
            <td width="44">
              <table width="40%"  border="0" cellspacing="0" cellpadding="4">
                <tr>
                  <td width="100%" colspan="2" align="left" valign="top"><div align="right" class="style19">
                      <div align="left"></div>
                      <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif"> </font> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font> </div>
                      <div align="left" class="style19">
                        <div align="left">
                          <div align="right" class="style19">
                            <div align="left" class="style19">
                              <div align="left"><span class="style39">
                                <%if rs_item("item_image")<>"" then%>
                                <img src="images/<%=rs_item("item_image")%>" align="middle">
                                <%end if%>
                              </span> </div>
                            </div>
                          </div>
                        </div>
                      </div>
                  </div></td>
                </tr>
            </table></td>
            <td width="249" align="center" valign="middle" class="style19"><div align="left"></div>
                <div align="right">
                  <div align="right" class="style19">
                    <div align="left" class="style39"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs_item("item_description")%></font></div>
                  </div>
              </div></td>
            <td width="215" align="center" valign="middle" class="style19"><div align="left"><span class="style39"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs_item("item_code")%>
                        <input name="item_code" type="hidden" id="item_code6" value="<%=rs_item("item_code")%>">
            </font></span></div></td>
            <td width="96" align="center" valign="middle" class="style19"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif"><font face="Verdana, Arial, Helvetica, sans-serif"><%=formatcurrency(rs_item("item_cost"))%></font></font></div></td>
            <td width="79" align="center" valign="middle" class="style19"><div align="left">
                <input name="buy" type="submit" class="style19" id="buy4" value="Add to cart">
            </div></td>
            <td width="97" align="center" valign="middle" class="style19"><div align="left"><a href="#" onClick="NewWindow('more_info.asp?item_code=<%=rs_item("item_code")%>', 'map', '350', '150', 0, 0)"
	><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="images/speaker.gif" width="36" height="27" hspace="0" vspace="0" border="0" align="absmiddle">Preview</font></a> </div></td>
          </tr>
        </table>
        <p class="style39">&nbsp;</p></td>
    </tr>
  </form>
  <%end if%>
  <%
	  i = i + 1
    rs_item.movenext()
 	  wend
  	lastrow = (offset-1) + (i-1)
	  %>
</table>
<p align="center">&nbsp;</p>
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><a href="shoppingcart.asp"><img src="images/cart.gif" width="13" height="15" hspace="0" vspace="0" border="0" align="absmiddle"></a></font>&nbsp;<a href="shoppingcart.asp" class="style36"><font face="Verdana, Arial, Helvetica, sans-serif">View cart </font></a></p>
<p align="center" class="style18">&nbsp;</p>
</body>
</html>
<%
rs_item.Close()
set rs_item = nothing
%>-->