Funzione che dato un recordset, restituisce una tabella HTML contenente per intestazione i nomi delle colonne del recordset e le restanti righe con i dati. Nel caso il recordset fosse vuoto non restituisce niente.
<%
function toHTMLTable(byval rs)
dim headerHTMLTable, headerColumHTMLTable
dim dataColumHTMLTable, dataHTMLTableRow
dim value
with rs
if not (.bof and .eof) then
headerHTMLTable = "<tr>"
for each field in .fields
headerColumHTMLTable = headerColumHTMLTable & "<td>" & field.name & "</td>"
next
headerHTMLTable = headerHTMLTable & headerColumHTMLTable & "</tr>" & vbNewLine
do until .eof
dataColumHTMLTable = ""
for each field in .fields
if IsDate(rs(field.name)) then
value = Day(rs(field.name)) & "-" & Month(rs(field.name)) & "-" & _
year(rs(field.name))
else
value = rs(field.name)
end if
dataColumHTMLTable = dataColumHTMLTable & "<td>" & value & "</td>"
next
dataHTMLTableRow = dataHTMLTableRow & "<tr>" & dataColumHTMLTable & "</tr>" & vbNewLine
.movenext
loop
toHTMLTable = "<table border = '1'>" & headerHTMLTable & dataHTMLTableRow & "</table>"
else
toHTMLTable = ""
end if
end with
end function
%>
