<% 'THIS OPENS A DSN-LESS CONNECTION TO THE DATABASE Dim dbc, strConn, conString Set dbc = Server.CreateObject("ADODB.Connection") dbc.Open "DSN=cartold" %> <% '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 deleted?

">Yes | No <% END IF 'IF THEY HAVE CONFIRMED DELETE THEN DELETE IT IF Request.QueryString("mode") = "delete" THEN 'LET'S DECLARE SOME VARIABLES DIM desc, SQL_UPDATE, rs1 'TRAP FOR ERRORS on error resume next 'CREATE THE DELETE SQL STATEMENT SQL_UPDATE = "UPDATE orders SET [CCResponseCode]= '999' WHERE [OrderID] = " & Request.querystring("OrderID") 'EXECUTE SQL STATEMENT 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 %> Order Number <%=Request.QueryString("OrderID")%> Has Been Set as Deleted.
Go Back <% end if elseIF Request.QueryString("mode") = "undelete" THEN 'LET'S DECLARE SOME VARIABLES 'TRAP FOR ERRORS on error resume next 'CREATE THE DELETE SQL STATEMENT SQL_UPDATE = "UPDATE orders SET [CCResponseCode] = Null WHERE [OrderID] = " & Request.querystring("OrderID") 'EXECUTE SQL STATEMENT 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 %> Order Number <%=Request.QueryString("OrderID")%> Has Been Set as unDeleted.
Go Back <% end if elseIF Request.QueryString("mode") = "remove" THEN 'LET'S DECLARE SOME VARIABLES 'TRAP FOR ERRORS on error resume next 'CREATE THE DELETE SQL STATEMENT SQL_UPDATE = "DELETE FROM Orders WHERE [OrderID] = "_ & Request("OrderID") 'EXECUTE SQL STATEMENT 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 %>

Order Number <%=Request.QueryString("OrderID")%> Has Been removed.
<% end if end if 'CLOSE AND DESTROY CONNECTION dbc.Close set dbc=nothing %>