If rs.RecordCount = 0 Then
Response.Write("No records found for category " & Request.QueryString("qryCategory"))
Else
Response.Write("<font color=" & "white" & "><H3>Items Found for Category: <b><font color=" & "yellow" & ">" & Request.QueryString("qryCategory") & "</font></font></b></H3>")
If not rs.bof then RS.movefirst
' Build a table here
Response.Write("<TABLE BORDER=1 CELLSPACING=4 CELLPADDING=4 COLS=5 WIDTH=940 BGCOLOR=#F0F0FF>")
Response.Write("<TR>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=2% BGCOLOR=#C8C8FF><B>ID</B></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=18% BGCOLOR=#C8C8FF><B>One Line Summary</B></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=18% BGCOLOR=#C8C8FF><B>Problem</B></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=50% BGCOLOR=#C8C8FF><B>Procedure</B></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=14% BGCOLOR=#C8C8FF><B>Notes</B></TD>")
Response.Write("</TR>")
Do While Not rs.eof
' Do
Response.Write("<TR>")
Response.Write("<TD>" & rs("Upload_Category.Category_Id") & "</TD>")
Response.Write("<TD><b><font face=" & "red" & ">" & rs("subject") & "</TD></b></font>")
Response.Write("<TD>" & rs("problem") & "</TD>")
Response.Write("<TD>" & rs("proc") & "</TD>")
Response.Write("<TD>" & rs("notes") & "</TD>")
Response.Write("</TR>")
rs.movenext
' Loop until rs.eof
Loop
rs.Close
Response.Write("</TABLE>")
End If
End If