<% Response.Buffer=true %> <% 'adoRS.Open "SHOW TABLES" ' 'while not adoRS.EOF ' 'for counter = 0 to adoRS.Fields.Count - 1 ' 'response.write adoRS.Fields(counter).value & " " ' 'next ' 'response.write "
" ' 'adoRS.MoveNext ' 'wend strSQL = "SHOW TABLES" Set rs = LoadRSFromDB(strSQL) while not rs.EOF for counter = 0 to rs.Fields.Count - 1 response.write rs.Fields(counter).value & " " next response.write "
" rs.MoveNext wend strSQL = "select * from content_anchorlist" set rs = LoadRSFromDB(strSQL) if not rs.EOF then response.write("table found") end if %>