<%
'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>