query_results

<%@ LANGUAGE="VBSCRIPT" %> query_results Here is the contents of the database!

<% Set oConn=Server.CreateObject("ADODB.Connection") oConn.Open "carldb" strSQLStatement = "SELECT * FROM TEST " Set oRs = oConn.Execute(strSQLStatement) oRs.MoveFirst %>

<% For Each oField In oRS.Fields %> <% Next %> <% Do While Not oRs.EOF %> <% For Each oField In oRs.Fields %> <% Next oRs.MoveNext %> <% Loop %>

<% = oField.Name %>
<% If IsNull(oField) Then Response.Write " " Else Response.Write oField.Value End If %>

<% oRs.Close Set oRs = Nothing %>