{"id":2164,"date":"2011-09-24T16:05:24","date_gmt":"2011-09-24T20:05:24","guid":{"rendered":"http:\/\/www.iowawebnet.com\/ein\/?p=2164"},"modified":"2012-09-24T16:05:56","modified_gmt":"2012-09-24T20:05:56","slug":"classic-asp-delete-script","status":"publish","type":"post","link":"https:\/\/www.iowawebnet.com\/ein\/2011\/09\/classic-asp-delete-script\/","title":{"rendered":"Classic asp delete script"},"content":{"rendered":"<pre>\r\n<code>\r\n&lt;%\r\n'define variables\r\nDIM objConn, objRS                     'connection\r\nDIM i_last, count, bgcolor             'even row bg color\r\nDim job, recID                         'fetching query strings         \r\njob = Request.QueryString(\"do\")\r\nrecID = Request.QueryString(\"rid\")\r\n\r\nDim sqlstatement                        ' sql query command string\r\n\r\n\r\nIf job = \"del\" Then\r\nSET objConn = Server.CreateObject(\"ADODB.Connection\")\r\n    objConn.ConnectionTimeOut = 30\r\n    objConn.Open \"DSN=MySystemDSN\"\r\n\r\n          sqlstatement = \"DELETE FROM Customers WHERE ID=\" &recID\r\n\t\t\r\n\tSET objRS = objConn.EXECUTE(sqlstatement)\r\n\tobjConn.Close\r\n    SET objConn = nothing\r\n\r\nEnd If\r\n%>\r\n<\/code>\r\n<\/pre>\n<pre>\r\n<code>\r\n'retrieving records\r\n&lt;table>\r\n\r\n&lt;%\r\nSET objConn = Server.CreateObject(\"ADODB.Connection\")\r\n    objConn.ConnectionTimeOut = 30\r\n    objConn.Open \"DSN=MySystemDSN\"\r\n\t\t\t\t\t\r\n    SET objRS = Server.CreateObject(\"ADODB.RecordSet\")\r\n\tobjRS.Open \"SELECT * FROM Tellers ORDER BY Teller_Name\",objConn\r\n\t DO WHILE NOT objRS.EOF\r\n\t count=count + 1\r\n\t i_last=right(count,1)\r\n\t select case i_last\r\n\t case \"1\",\"3\",\"5\",\"7\",\"9\"\r\n\t       bgcolor=\"#DDEAF7\"       'odd row bg color\r\n\t case else\r\n               bgcolor=\"#FFFFFF\"       'even row bg color\r\n\t end select\r\n%>\r\n   &lt;tr bgcolor=\"< %= bgcolor %>\">\r\n\t&lt;td>&lt;%= objRS(\"Customer_Name\") %>\r\n\t&lt;td>&lt;%= objRS(\"Customer_Number\") %>\r\n\t&lt;td>>&lt;a href=\"default.asp?do=del&rid=&lt;%= objRS(\"ID\") %>\" \r\n             onclick=\"return confirm('Are you sure you want to delete?')\" >Delete\r\n   &lt;\/tr>\r\n&lt;%\r\n        objRS.MoveNext\r\n   LOOP\r\n        objRS.Close\r\n\tobjConn.Close\r\n\t\t\t\t\t\r\nSET objRS = nothing\r\nSET objConn = nothing\r\n%>\r\n&lt;\/table>\r\n<\/code>\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>&lt;% &#8216;define variables DIM objConn, objRS &#8216;connection DIM i_last, count, bgcolor &#8216;even row bg color Dim job, recID &#8216;fetching query strings job = Request.QueryString(&#8220;do&#8221;) recID = Request.QueryString(&#8220;rid&#8221;) Dim sqlstatement &#8216; sql query command string If job = &#8220;del&#8221; Then SET objConn = Server.CreateObject(&#8220;ADODB.Connection&#8221;) objConn.ConnectionTimeOut = 30 objConn.Open &#8220;DSN=MySystemDSN&#8221; sqlstatement = &#8220;DELETE FROM Customers WHERE ID=&#8221; [&hellip;]<\/p>\n","protected":false},"author":35,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[33],"tags":[30,34],"class_list":["post-2164","post","type-post","status-publish","format-standard","hentry","category-classic-asp","tag-access-2","tag-classic-asp-2"],"_links":{"self":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/2164"}],"collection":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/users\/35"}],"replies":[{"embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/comments?post=2164"}],"version-history":[{"count":8,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/2164\/revisions"}],"predecessor-version":[{"id":2172,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/2164\/revisions\/2172"}],"wp:attachment":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/media?parent=2164"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/categories?post=2164"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/tags?post=2164"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}