[Resolvido] criar dinamicamente uma tabela HTML

[xanburzum 169]

Como criar dinamicamente uma tabela HTML a partir de um recordset.

 

Tudo o que você precisa é a sua connection string e o nome da tabela.

 

**********************************************************************

 

<%    
        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>"
    %>