<%

dim conn
dim rs
dim strID

set conn = server.createobject("adodb.connection")
conn.open strconn

strDelete = "DELETE " & _
 " FROM tblDelete" & _
 " WHERE (((tblDelete.id)=" & request("StrID") & "))"
conn.execute(strDelete)

'Add a new record to the db so the demo doesn't crash!
set rs = server.createobject("adodb.recordset")
rs.open "tblDelete", conn, 2, 2
rs.addnew
rs("TimeCreated") = Now()
rs.update
rs.movelast
strID = rs("id")
rs.close
set rs = nothing
%>

<table>
<% 
set rs2 = server.createobject("adodb.recordset")
strsql99 = "select tblDelete.ID, tblDelete.TimeCreated from tblDelete order by tblDelete.id DESC"
rs2.open strsql99, conn
rs2.movefirst
Do While NOT rs2.EOF 
%>
<tr>
<td><b>ID #</b></td>
<td><font color="red"><% = rs2("id")%></font></td>
<td><b>Time Record was created</b></td>
<td><font color="red"><% = rs2("TimeCreated")%></font></td>
</tr>
<% 
rs2.movenext
Loop 
%>
<% 
rs2.close
set rs2= nothing
set conn = nothing
%>
</table>