<% dim conn 'database connection object dim rs 'recordset dim strSQL 'sql query dim endline endline = chr(10) 'create the connection object set conn = Server.CreateObject("ADODB.Connection") 'open the connection conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\hnt7c211\legacy\f7e8af3jk23sd3.mdb;" 'create a recordset set rs = Server.CreateObject("ADODB.Recordset") if Request.ServerVariables("REQUEST_METHOD") = "POST" then 'set the sql statement strSQL = "SELECT ID FROM Guestbook" 'set rs properties rs.LockType = adLockReadOnly 'run the query and save to rs rs.Open strSQL, conn dim cb 'loop through records, deleting checked do while not rs.EOF 'grab a checkbox cb = Request.Form("cb" & rs.Fields("ID")) 'if it is checked if cb = "ON" then 'delete the record 'response.write cb & rs.Fields("ID") & " is on" & endline strSQL = "DELETE * FROM Guestbook WHERE id=" & rs.Fields("ID") conn.Execute strSQL end if 'move to the next record rs.MoveNext loop rs.Close end if %>

<% strSQL = "SELECT * FROM Guestbook ORDER BY ID DESC" rs.Open strSQL, conn dim count count = 0 do while not rs.EOF if count mod 2 = 1 then response.write( "" ) else response.write( "" ) end if response.write( "" & endline ) response.write( "" & endline ) response.write( "" & endline ) response.write( "" & endline ) response.write( "" & endline ) response.write( "" & endline ) rs.MoveNext count = count + 1 loop rs.Close set rs = Nothing set conn = Nothing %>

Delete	Name	Location	Date	Entry
	" & rs.Fields("Name") & "	" & rs.Fields("Location") & "	" & rs.Fields("Date") & "	" & rs.Fields("Entry") & "