<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% set rs = Server.CreateObject("ADODB.recordset") rs.Open "SELECT * FROM Beakers", 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)%>