<% strSQL = "SELECT * FROM T_COMMENTS ORDER BY id DESC" if request.QueryString("id") <> "" then strSQL = "SELECT * FROM T_COMMENTS WHERE c_bID_fk = "&request.QueryString("id")&" ORDER BY id DESC" end if Set Rs_cList = Server.CreateObject("ADODB.Recordset") Rs_cList.ActiveConnection = strConn Rs_cList.Source = strSQL Rs_cList.CursorType = 0 Rs_cList.CursorLocation = 2 Rs_cList.LockType = 1 Rs_cList.Open() %>

<% If Not Rs_cList.EOF Then Rs_cList.MoveFirst While Not Rs_cList.EOF %> <% Rs_cList.MoveNext Wend else %> <% end if %> <%=Rs_cList("c_name")%> | <%=Rs_cList("c_time")%> ">)"> no comments available