<%@ LANGUAGE = VBScript %> <%set conn=Server.CreateObject("ADODB.Connection") conn.Open "DSN=TestDb" set rs=Server.CreateObject("ADODB.recordset") rs.Open "Select * from tab1", conn%> <%for each x in rs.Fields response.write("") next%> <%do until rs.EOF%> <%for each x in rs.Fields%> <%next rs.MoveNext%> <%loop rs.close conn.close %>

" & x.name & "
<%Response.Write(x.value)%>