<% flag = 1 'Initialize the recordset Set oRS = Server.CreateObject("ADODB.RecordSet") 'Filter the record set SQL ="SELECT * FROM Category WHERE CategoryDisplay = '1' AND ParentID='" & Cat & "' ORDER BY CategoryDescription" 'Open the recordset oRS.Open SQL, oConn%> <% Do While Not oRS.EOF If flag = 1 then for i=0 to rs.fields.count-1 If i = oRS.fields.count-1 then Response.Write(rs(i).name & "
") else Response.Write(rs(i).name & ";") end if next flag = 0 end if for i=0 to rs.fields.count-1 If i = oRS.fields.count-1 then Response.Write(rs(i) & "
") else Response.Write(rs(i) & ";") end if next rs.MoveNext Loop oRS.Close set rs = nothing 'Kill the Database connection oConn.Close set oConn = nothing %>