sSQL = "SELECT TOP 20 [CustomerID], ContactName, CompanyName FROM Customers"
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open Application("ToNW_ConnectionString")
rs.Open sSQL, conn, adOpenForwardOnly, adLockReadOnly
' Kopf-Zeile mit Spaltennamen genieren
Response.Write "<table border=""1""><tr bgcolor=""red"">"
for i = 0 to rs.Fields.Count - 1
Response.Write "<td>" & rs.Fields(i).Name & "</td>"
next
' Table mit GetString genieren
Response.Write "</tr><tr><td>"
Response.Write rs.GetString(adClipString,100,"</td><td>", "</td></tr><tr><td>", "")
Response.Write "</td></tr></table>"
set rs = nothing
set conn = nothing