[xanburzum]

Mostra como criar dinamicamente uma tabela HTML a partir de um conjunto de registros. Tudo que você precisa é a seqüência de conexão eo nome da tabela.

CÓDIGO

<%    
        Dim conn
        Dim cmd
        Dim rs
        
        Set conn = Server.CreateObject("ADODB.Connection")
        Set cmd = Server.CreateObject("ADODB.Command")
        
        cmd.ActiveConnection = "Provider = MSDASQL;Data Source=Northwind;Database=Northwind;User Id=;Password=;"
        cmd.CommandText = "SELECT * FROM Customers"
        
        Set rs = cmd.Execute
        
        Response.Write "<table width=100% border=1>"
        Response.Write "<tr>"
        for i = 1 to rs.Fields.Count - 1
            Response.Write "<td><strong>" & rs.Fields(i).Name & "<strong></td>"
        next
            Response.Write "</tr>"
            
        Do While Not rs.EOF
                Response.Write "<tr>"
            for i = 1 to rs.Fields.Count - 1
                    Response.Write "<td>" & rs.Fields(i) & "</td>"
            next
            rs.MoveNext
                Response.Write "</tr>"
        Loop
                Response.Write "</table>"
    %>