Data Set Results
<% Set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=IBMDA400;Data Source=SYSNAME;User ID=user;Password=secret;" sql = "SELECT EMPNAM, EMPAD1, EMPAD2, EMPSTE, EMPZIP FROM QGPL.EMPMAST" Set rs = Server.CreateObject("ADODB.Recordset") set rs.ActiveConnection=conn rs.Open sql if conn.errors.count=0 Then Response.write "
Query for File " & request.Form("LibFile") & "
" rs.MoveFirst if Not rs.EOF Then for x=0 to rs.fields.count-1 Response.write "
" & rs.fields(x).name & "
" next End If do until rs1.eof Response.write "
" For I=0 To rs1.Fields.Count-1 Response.write "
" & Trim(rs1.Fields(I).Value) & "
" Next Response.write "
" rs.MoveNext loop rs.close conn.close Response.write "
" %>