"
For i = 0 to RS.Fields.Count - 1
risultati = risultati & ""
' che tipo di campo è?
Select Case rs(i).Type
' binari
Case adVarBinary, adLongVarBinary
risultati = risultati & "[bin]"
' boolean
Case adBoolean
risultati = risultati & ""
' date
Case adDate, adDBDate, adDBTime
risultati = risultati & CDate(rs(i))
' altro
Case Else
risultati = risultati & Server.HtmlEncode(rs(i))
End Select
risultati = risultati & " | "
Next
risultati = risultati & "
"
rs.MoveNext
Loop
set rs = nothing
conn.Close
set conn = Nothing
' output
Response.Write ("