tabela html(sql server)

[mebkocznski 0]

Pessoal,Segue uma função que cria uma tabela em HTML, simplesmente informando o Recordset.........Para acessar a função façam o seguinteSet ORs = Server.CreateObject("adodb.recordset") ORs.Open "Select * from tb_usuario",oConn,2,2,1Response.Write CriaTabelaHtml(Ors)Falow Galera !!!!!!!!!

Function CriaTabelaHTML(ORs)Dim StrHtmlDim CountDim StrParametrosDim CorStrHtml = "<table id='" & nome_tabela & "' border=0 width=""100%"" Align=""center"">" & vbCrLfStrHtml = StrHtml & "<tr>" & vbCrLf        For Count = 0 to ORs.Fields.Count - 1            StrHtml = StrHtml & "<td BgColor=""#336699"" width='10%'><Font Color=""White"">" & ORs.Fields.item(Count).name & "</font></td>" & vbCrLf        NextStrHtml = StrHtml & "</tr>" & vbCrLf                        Cor = "White"        Do Until ORs.EOF                        If Cor = "White" Then                Cor = "Silver"                Else                Cor = "White"            End If                    StrHtml = StrHtml & "<tr>" & vbCrLf            For Count = 0 to ORs.Fields.Count - 1                StrHtml = StrHtml & "<td Bgcolor='" & Cor & "' width='10%'>" & ORs.Fields.Item(Count) & "</td>" & vbCrLf            Next                    StrHtml = StrHtml & "</tr>" & vbCrLf        StrHtml = StrHtml & "</table>" & vbCrLf        ORs.MoveNext        Loop            CriaTabelaHTML = StrHtml        If Err <> 0 then  Response.Write Err.Description & " - " & Err.number & " - " & Err.Source End if        End Function

[Salgado 4]

Só uma correção:

Aqui:

        StrHtml = StrHtml & "</tr>" & vbCrLf
       StrHtml = StrHtml & "</table>" & vbCrLf
       ORs.MoveNext
       Loop

Coloque assim:

        StrHtml = StrHtml & "</tr>" & vbCrLf
       ORs.MoveNext
       Loop
       StrHtml = StrHtml & "</table>" & vbCrLf

Da maneira anterior ele estava fechando a tabela a cada passada.

No mais, uma bela função.

 

 

Valeu?

[mebkocznski 0]

POde crer.....Falow !!!!