<%
' Open Database Connection Server.MapPath(".")
dbPath = "E:/hshome/webcaddy/database/storedbexchange.mdb"
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
shipID = Request.QueryString( "invoice" )
orderTotal = Request.QueryString( "amount" )
orderTotal2 = Request.QueryString( "custom" )
sqlString = "UPDATE ship SET "&_
"ship_payment = " & orderTotal & " , " &_
"ship_status = 1 , " &_
"ship_paydate = '" & Now() & " ' " &_
"WHERE ship_shipID = " & shipID
IF session( "iDebugLevel" ) = 1 THEN %>
Session Debug Level Set to:<%=session( "iDebugLevel" )%>
sqlString: <%=sqlstring%>
<%END IF
%>
Thanks for your PayPal payment.
You will receive an email letting you know when your order
ships
Your order status will update shortly to reflect this payment
Return to Order Status Page
Email me if you
have a problem or question