Home » Classic ASP » Classic asp delete script

Classic asp delete script


<%
'define variables
DIM objConn, objRS                     'connection
DIM i_last, count, bgcolor             'even row bg color
Dim job, recID                         'fetching query strings         
job = Request.QueryString("do")
recID = Request.QueryString("rid")

Dim sqlstatement                        ' sql query command string


If job = "del" Then
SET objConn = Server.CreateObject("ADODB.Connection")
    objConn.ConnectionTimeOut = 30
    objConn.Open "DSN=MySystemDSN"

          sqlstatement = "DELETE FROM Customers WHERE ID=" &recID
		
	SET objRS = objConn.EXECUTE(sqlstatement)
	objConn.Close
    SET objConn = nothing

End If
%>


'retrieving records
<table>

<%
SET objConn = Server.CreateObject("ADODB.Connection")
    objConn.ConnectionTimeOut = 30
    objConn.Open "DSN=MySystemDSN"
					
    SET objRS = Server.CreateObject("ADODB.RecordSet")
	objRS.Open "SELECT * FROM Tellers ORDER BY Teller_Name",objConn
	 DO WHILE NOT objRS.EOF
	 count=count + 1
	 i_last=right(count,1)
	 select case i_last
	 case "1","3","5","7","9"
	       bgcolor="#DDEAF7"       'odd row bg color
	 case else
               bgcolor="#FFFFFF"       'even row bg color
	 end select
%>
   <tr bgcolor="< %= bgcolor %>">
	<td><%= objRS("Customer_Name") %>
	<td><%= objRS("Customer_Number") %>
	<td>><a href="default.asp?do=del&rid=<%= objRS("ID") %>" 
             onclick="return confirm('Are you sure you want to delete?')" >Delete
   </tr>
<%
        objRS.MoveNext
   LOOP
        objRS.Close
	objConn.Close
					
SET objRS = nothing
SET objConn = nothing
%>
</table>