<% SQLCmd= "delete from BulletinBoard where status=0" set connect=Server.CreateObject("ADODB.Connection") connect.Open DBname set Rs=Server.CreateObject("ADODB.Recordset") 'Rs.Open "drop table BulletinBoard" Rs.Open SQLCmd,connect,3,3 response.write SQLCmd response.write "OK"& "
" SQLCmd= "SELECT * from BulletinBoard" Rs.Open SQLCmd,connect,3,3 on error resume next For i=1 to Rs.RecordCount For j=0 to Rs.Fields.Count-1 Response.Write Rs.Fields(j) & "  " If Err.number<>0 THen Response.write i &":"&"err.description"&"
" End If Next Response.Write "
" Rs.MoveNext Next %>