<%@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
'*************************************************************************************
%>
<%
if session("cartid") = "" then 
  session("cartid") = session.SessionID
end if

if request("buy") <> "" then
	productid = request("item_code")
	qty = 1
	if productid <> "" then
  	description = MYCART_ADD_ITEM (session("cartid"), productid, qty )
	end if
end if

'empty_cart = request("empty_cart")
'if empty_cart <> "" then MYCART_EMPTY session("cartid")

delete_productid = request("d")
if delete_productid <> "" then MYCART_DELETE_ITEM  session("cartid"), delete_productid 

Set rscart = Server.CreateObject("ADODB.Recordset")
rscart.ActiveConnection = MM_connection_STRING
rscart.Source = "SELECT c.*, i.* FROM tbl_cart c, tbl_items i WHERE c.item_code = i.item_code and c.cartid = " & session("cartid") 
rscart.CursorType = 0
rscart.CursorLocation = 2
rscart.LockType = 1
rscart.Open()
if rscart.eof then
  cart_is_empty = true
else
  cart_is_empty = false
end if
%>
<html>
<head>
<title>Shopping Cart</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style5 {color: #FFCC33; font-family: Verdana, Arial, Helvetica, sans-serif; }
body,td,th {
	color: #CC6600;
}
body {
	background-color: #333333;
}
a:link {
	color: #FFCC33;
}
.style6 {font-family: Verdana, Arial, Helvetica, sans-serif}
.style8 {
	color: #FFCC33;
	font-weight: bold;
}
.style11 {color: #FFCC33; font-weight: bold; font-size: 14px; }
.style12 {font-size: 12px}
.style13 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; }
a:visited {
	color: #CC6666;
}
-->
</style>
</head>

<body>
<center>
</center>
<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="29" 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="29" 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="29" 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="29" 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="29" 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="28" 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"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top"><div align="left"><span class="style11"><font face="Verdana, Arial, Helvetica, sans-serif">Your Shopping Cart</font></span></div></td>
  </tr>
  <tr>
    <td height="258" valign="top"><div align="left">
      <p>
        <%
if cart_is_empty then %>
        <br>
        <span class="style12"><font color="#CC6600" face="Verdana, Arial, Helvetica, sans-serif">There are no items in your shopping cart. Click <a href="store.asp">here</a> to go to main music store.</font></span> <br>
        <%					
else
dim subtotal
%>
      </p>
    </div>
      <table width="800"  border="0" align="left" cellpadding="5" cellspacing="0">
        <tr>
          <td height="119" valign="top"><table width="100%"  border="1" align="left" cellpadding="3" cellspacing="0" style="border-collapse: collapse">
              <tr>
                <td><span class="style8"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Item</font></span></td>
                <td width="14%"><center class="style8">
                    <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Cost</font>
                </center></td>
              </tr>
              <%
subtotal= 0
itemcount = 0
while not rscart.eof
%>
              <tr>
                <td width="55%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rscart("item_code")%>&nbsp;- <%=rscart("item_description")%><a href="shoppingcart.asp?d=<%=rscart("item_code")%>"><img src="images/remove.gif" width="100" height="15" border="0" onClick="javascript: return confirm('Remove this item from your cart?')"></a>
                      <input name="productid" type="hidden" id="productid2" value="<%=rscart("item_code")%>">
                </font></td>
                <td><center>
                  </center>
                    <center>
                      <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=formatcurrency(rscart("item_cost"))%></font>
                  </center></td>
              </tr>
              <%
itemcount = itemcount  + 1
subtotal = subtotal + rscart("item_cost")
rscart.movenext
wend
%>
              <tr>
                <td><div align="right"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Total:</font></strong>&nbsp; </div></td>
                <td><center class="style6">
                    <font size="2"><%=formatcurrency(subtotal)%></font>
                </center></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td height="148" valign="top"><br>
            <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td valign="middle"><center>
                      <form name="frmcart" method="post" action="store.asp">
                        <input type="submit" name="Submit" value="Continue browsing">
                      </form>
                  </center></td>
                  <td valign="middle"><center>
                      <form name="frmcart" method="post" action="process_payment.asp">
                        <input name="checkout" type="submit" id="checkout" value="Proceed to Payment">
                      </form>
                  </center></td>
                </tr>
          </table>          
          <br>
          <span class="style13">After clicking Proceed to Payment button, you will be asked to provide your credit card info (via PayPal) to complete your payment, after which, an email that includes the Download Code and Password will be sent to you instantly along with a link to your download page.</span><br>
          <% end if %></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td valign="top"><div align="left">
        <p>&nbsp;</p>
        </div>      </td></tr>
</table>
<br>
</body>
</html>
<%
rscart.close
set rscart = nothing
%>