<% response.buffer = true %> <% On Error Resume Next Dim adoCon Dim rsGuestbook Dim strSQL Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bm.mdb") Set rsGuestbook = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM SongBook ORDER BY ddd" rsGuestbook.Open strSQL, adoCon, 2, 2 ccc = 1000 Do While not rsGuestbook.EOF '''Response.Write "
" & rsGuestbook("ID") rsGuestbook("ID") = ccc '''rsGuestbook("Active") = "T" rsGuestbook.Update ccc = ccc + 1 rsGuestbook.MoveNext Loop If adoCon.errors.count>0 then Response.Write "
" & adoCon.errors.count & " ERRORS OCCURRED!
" Response.Write "
" & Err.description End If Set rsGuestbook = Nothing Set adoCon = Nothing %> Reindexing complete!!!