%if request("do")= "del" Then Set MyCmd1 = Server.CreateObject("ADODB.Command") MyCmd1.ActiveConnection = MyConn MyCmd1.CommandText = "UPDATE Forces_Items SET Deleted = 'yes' WHERE ItemID = ? " MyCmd1.Parameters.Append MyCmd1.CreateParameter("", 3, 1, , request("id")) Set RSDel = Server.CreateObject("ADODB.RecordSet") RSDel.Open MyCmd1 response.redirect "my-items.asp" end if %>
Sorry! You have no items for sale.
<%else Do WHILE NOT RSItems.EOF%>£<%=RSItems("Price")%>
" onclick="if(!confirm('Are you sure you want to delete this record? It will be removed permanently!')) return false;">
">
Description :
<%=RSItems("Description")%>