<% 'THIS OPENS A DSN-LESS CONNECTION TO THE DATABASE Dim dbc, strConn, conString Set dbc = Server.CreateObject("ADODB.Connection") dbc.Open "DSN=cartold" %> <% Dim mode, orderID mode = request("x_response_code") if mode = "" then mode = Request.QueryString("mode") end if orderID = request("x_invoice_num") if orderID = "" then orderID = Request.QueryString("OrderID") end if 'FIRST WE CONFIRM THAT THEY WANT TO DELETE THIS RECORD 'IF THEY CLICK THE YES LINK BELOW WE REDIRECT BACK TO THIS PAGE UPDATING THE QUERY STRING TO MODE=DELETE IF Request.QueryString("mode")="confirm" THEN %> Are you sure you want to set Order Number <%=Request.QueryString("OrderID")%> as not shipped?
Charges to customers credit card will not be removed and will need to be removed manually.

">Yes | No <% END IF 'IF mode = "1" THEN IF mode = "ship" THEN 'LET'S DECLARE SOME VARIABLES DIM desc, SQL_UPDATE, rs1, rsOrder Set rsOrder = Server.CreateObject ("ADODB.Recordset") 'TRAP FOR ERRORS on error resume next 'CREATE THE DELETE SQL STATEMENT SQL_UPDATE = "UPDATE orders SET [ShippedDate]= '" & Date & "' WHERE [OrderID] = " & orderID & "AND [CCResponseCode] = '1'" 'EXECUTE SQL STATEMENT dbc.Execute(SQL_UPDATE) SQL_UPDATE = "SELECT orders.CCResponseCode, orders.CCardType FROM orders WHERE [OrderID] = " & orderID rsOrder.Open SQL_UPDATE, dbc, adOpenForwardOnly,adLockReadOnly If rsOrder("CCResponseCode") = "1" then %> <% 'IF THERE WERE ERRORS, SHOW THIS If err.number>0 then response.write "VBScript Errors Occured:" & "

" response.write "Error Number=" & err.number & "

" response.write "Error Descr.=" & err.description & "

" response.write "Help Context=" & err.helpcontext & "

" response.write "Help Path=" & err.helppath & "

" response.write "Native Error=" & err.nativeerror & "

" response.write "Source=" & err.source & "

" response.write "SQLState=" & err.sqlstate & "

" Response.Write "SQL_UPDATE" end if IF dbc.errors.count> 0 then response.write "Database Errors Occured" & "

" response.write SQLstmt & "

" for counter= 0 to dbc.errors.count response.write "Error #" & dbc.errors(counter).number & "

" response.write "Error desc. -> " & dbc.errors(counter).description & "

" next 'IF EVERYTHING WENT OK, SHOW THIS else 'LET'S DECLARE SOME VARIABLES DIM sqlEmail, rsEmail, sOrderID, mailObj, sEmail, xEmail, mailBody sOrderID = Request.QueryString("OrderID") Set rsEmail = Server.CreateObject ("ADODB.Recordset") 'TRAP FOR ERRORS 'on error resume next 'CREATE SQL STATEMENT TO GRAB CUSTOMERS EMAIL ADDRESS sqlEmail = "SELECT orders.OrderID, customers.Email as Email FROM customers INNER JOIN orders ON customers.CustID = orders.CustID WHERE (((orders.OrderID)=" & Int(sOrderID) & "));" 'EXECUTE SQL STATEMENT rsEmail.Open sqlEmail, dbc, adOpenForwardOnly, adLockReadOnly 'CREATE sEmail for the mailObj sEmail = rsEmail("Email") xEmail = "nate@drivethrurecords.com" set mailObj = server.createobject("SMTPsvg.Mailer") mailObj.FromName = "Drive-Thru Records.com - Store" mailObj.FromAddress = "store@drivethrurecords.com" mailObj.RemoteHost = "mail.drivethrurecords.com" mailObj.AddRecipient sEmail, sEmail mailObj.Subject = "Your Order #" & sOrderID & " @ Drive-Thru Records.com" mailBody = "Thank you ordering from the Drive-Thru Records Store." & vbCrLf mailBody = mailBody & "Your order, Order ID #" & sOrderID & ", was shipped on " & Date & "." mailBody = mailBody & vbCrLf & vbCrLf & "You can view your order receipt " mailBody = mailBody & vbCrLf &"http://www.drivethrurecords.com/store/order_report.asp?txtOrderID=" & sOrderID & "&emailadd=" & sEmail & " . " mailBody = mailBody & vbCrLf & vbCrLf & "You should receive it in 3 to 5 business days. For international orders please allow 2-3 weeks for delivery." mailBody = mailBody & vbCrLf & vbCrLf & "Thanks," mailBody = mailBody & vbCrLf & vbCrLf & "Drive-Thru Records" mailBody = mailBody & vbCrLf & vbCrLf & "store@drivethrurecords.com" mailBody = mailBody & vbCrLf & "www.drivethrurecords.com" mailObj.BodyText = mailBody if mailObj.SendMail then %> Shipping for Order Number <%=Request.QueryString("OrderID")%> Has Been Set to Shipped on <%=Date%>. Customer has been notified via Email. <% if request("x_response_code") = "1" then %>
Authorize.Net Transaction Response: <%=request("x_response_reason_text")%><%end if%>
Go Back <% else %> Shipping for Order Number <%=Request.QueryString("OrderID")%> Has Been Set to Shipped on <%=Date%>. ERROR Sending Email to Customer. <% if request("x_response_code") = "1" then %>
Authorize.Net Transaction Response: <%=request("x_response_reason_text")%><%end if%>
Go Back <% end if set mailObj = nothing end if else %> Shipping for Order Number <%=Request.QueryString("OrderID")%> Has not been set to shipped. This order is not authorized.

<% if rsOrder("CCardType") = "Visa" OR rsOrder("CCardType") = "Mastercard" Then%>

<%else%>

Would you like to Authorize & Ship. ">Yes | No

<% end if end if %> <% elseif Request.QueryString("mode")="unship" THEN 'LET'S DECLARE SOME VARIABLES 'TRAP FOR ERRORS 'on error resume next 'CREATE THE DELETE SQL STATEMENT SQL_UPDATE = "UPDATE orders SET [ShippedDate]= NULL WHERE [OrderID] = " & Request("OrderID") dbc.Execute(SQL_UPDATE) %> <% 'IF THERE WERE ERRORS, SHOW THIS If err.number>0 then response.write "VBScript Errors Occured:" & "

" response.write "Error Number=" & err.number & "

" response.write "Error Descr.=" & err.description & "

" response.write "Help Context=" & err.helpcontext & "

" response.write "Help Path=" & err.helppath & "

" response.write "Native Error=" & err.nativeerror & "

" response.write "Source=" & err.source & "

" response.write "SQLState=" & err.sqlstate & "

" Response.Write "SQL_UPDATE" end if IF dbc.errors.count> 0 then response.write "Database Errors Occured" & "

" response.write SQLstmt & "

" for counter= 0 to dbc.errors.count response.write "Error #" & dbc.errors(counter).number & "

" response.write "Error desc. -> " & dbc.errors(counter).description & "

" next 'IF EVERYTHING WENT OK, SHOW THIS else %> Shipping for Order Number <%=Request.QueryString("OrderID")%> Has Been Set to Not Shipped.
Go Back <% end if %> <% elseif Request.QueryString("mode")="authCC" THEN if request.Querystring("transid") <> "" THEN 'Update the data and set to shipped 'CREATE THE DELETE SQL STATEMENT SQL_UPDATE = "UPDATE orders SET [ShippedDate]= '" & Date & "', [CCResponseCode] = '1', [CCTrasactionID] = '"& request.querystring("transid") &"' WHERE [OrderID] = " & Request.QueryString("OrderID") 'EXECUTE SQL STATEMENT dbc.Execute(SQL_UPDATE) 'LET'S DECLARE SOME VARIABLES sOrderID = Request.QueryString("OrderID") Set rsEmail = Server.CreateObject ("ADODB.Recordset") 'TRAP FOR ERRORS 'on error resume next 'CREATE SQL STATEMENT TO GRAB CUSTOMERS EMAIL ADDRESS sqlEmail = "SELECT orders.OrderID, customers.Email as Email FROM customers INNER JOIN orders ON customers.CustID = orders.CustID WHERE (((orders.OrderID)=" & Int(sOrderID) & "));" 'EXECUTE SQL STATEMENT rsEmail.Open sqlEmail, dbc, adOpenForwardOnly, adLockReadOnly 'CREATE sEmail for the mailObj sEmail = rsEmail("Email") xEmail = "jordan@vectorsquad.com" set mailObj = server.createobject("SMTPsvg.Mailer") mailObj.FromName = "Drive-Thru Records.com - Store" mailObj.FromAddress = "store@drivethrurecords.com" mailObj.RemoteHost = "mail.drivethrurecords.com" mailObj.AddRecipient sEmail, sEmail mailObj.Subject = "Your Order #" & sOrderID & " @ Drive-Thru Records.com" mailBody = "Thank you ordering from the Drive-Thru Records Store." & vbCrLf mailBody = mailBody & "Your order, Order ID #" & sOrderID & ", was shipped on " & Date & "." mailBody = mailBody & vbCrLf & vbCrLf & "You can view your order receipt " mailBody = mailBody & vbCrLf &"http://www.drivethrurecords.com/store/order_report.asp?txtOrderID=" & sOrderID & "&emailadd=" & sEmail & " . " mailBody = mailBody & vbCrLf & vbCrLf & "You should receive it in 3 to 5 business days. For international orders please allow 2-3 weeks for delivery." mailBody = mailBody & vbCrLf & vbCrLf & "Thanks," mailBody = mailBody & vbCrLf & vbCrLf & "Drive-Thru Records" mailBody = mailBody & vbCrLf & vbCrLf & "store@drivethrurecords.com" mailBody = mailBody & vbCrLf & "www.drivethrurecords.com" mailObj.BodyText = mailBody if mailObj.SendMail then %> Shipping for Order Number <%=Request.QueryString("OrderID")%> Has Been Set to Shipped on <%=Date%> and the order has been authorized with the transaction ID updated. Customer has been notified via Email. <% if request("x_response_code") = "1" then %>
Authorize.Net Transaction Response: <%=request("x_response_reason_text")%><%end if%> <% else %> Shipping for Order Number <%=Request.QueryString("OrderID")%> Has Been Set to Shipped on <%=Date%> and the order has been authorized with the transaction ID updated. ERROR Sending Email to Customer. <% if request("x_response_code") = "1" then %>
Authorize.Net Transaction Response: <%=request("x_response_reason_text")%><%end if%> <% end if %>
Go Back <% ELSE 'No Transaction ID was entered %> You must enter a Transaction ID.
Go Back <% END IF elseif Request.QueryString("mode")="auth" THEN 'CREATE THE DELETE SQL STATEMENT SQL_UPDATE = "UPDATE orders SET [ShippedDate]= '" & Date & "', [CCResponseCode] = '1' WHERE [OrderID] = " & orderID 'EXECUTE SQL STATEMENT dbc.Execute(SQL_UPDATE) 'LET'S DECLARE SOME VARIABLES sOrderID = Request.QueryString("OrderID") Set rsEmail = Server.CreateObject ("ADODB.Recordset") 'TRAP FOR ERRORS 'on error resume next 'CREATE SQL STATEMENT TO GRAB CUSTOMERS EMAIL ADDRESS sqlEmail = "SELECT orders.OrderID, customers.Email as Email FROM customers INNER JOIN orders ON customers.CustID = orders.CustID WHERE (((orders.OrderID)=" & Int(sOrderID) & "));" 'EXECUTE SQL STATEMENT rsEmail.Open sqlEmail, dbc, adOpenForwardOnly, adLockReadOnly 'CREATE sEmail for the mailObj sEmail = rsEmail("Email") xEmail = "nate@drivethrurecords.com" set mailObj = server.createobject("SMTPsvg.Mailer") mailObj.FromName = "Drive-Thru Records.com - Store" mailObj.FromAddress = "store@drivethrurecords.com" mailObj.RemoteHost = "mail.drivethrurecords.com" mailObj.AddRecipient sEmail, sEmail mailObj.Subject = "Your Order #" & sOrderID & " @ Drive-Thru Records.com" mailBody = "Thank you ordering from the Drive-Thru Records Store." & vbCrLf mailBody = mailBody & "Your order, Order ID #" & sOrderID & ", was shipped on " & Date & "." mailBody = mailBody & vbCrLf & vbCrLf & "You can view your order receipt " mailBody = mailBody & vbCrLf &"http://www.drivethrurecords.com/store/order_report.asp?txtOrderID=" & sOrderID & "&emailadd=" & sEmail & " . " mailBody = mailBody & vbCrLf & vbCrLf & "You should receive it in 3 to 5 business days. For international orders please allow 2-3 weeks for delivery." mailBody = mailBody & vbCrLf & vbCrLf & "Thanks," mailBody = mailBody & vbCrLf & vbCrLf & "Drive-Thru Records" mailBody = mailBody & vbCrLf & vbCrLf & "store@drivethrurecords.com" mailBody = mailBody & vbCrLf & "www.drivethrurecords.com" mailObj.BodyText = mailBody if mailObj.SendMail then %> Shipping for Order Number <%=Request.QueryString("OrderID")%> Has Been Set to Shipped on <%=Date%> and the order has been authorized. Customer has been notified via Email. <% if request("x_response_code") = "1" then %>
Authorize.Net Transaction Response: <%=request("x_response_reason_text")%><%end if%> <% else %> Shipping for Order Number <%=Request.QueryString("OrderID")%> Has Been Set to Shipped on <%=Date%> and the order has been authorized. ERROR Sending Email to Customer. <% if request("x_response_code") = "1" then %>
Authorize.Net Transaction Response: <%=request("x_response_reason_text")%><%end if%> <% end if %>
Go Back <% end if 'CLOSE AND DESTROY CONNECTION dbc.Close set dbc=nothing %>