<%Dim SQL, RS, strRETURNED_DATA, EOF_VAL, intNUM_COL, intNUM_ROW, intROW_COUNTER, ID, TITLE, I, TOP_I, _ strCATE, CATE I = 0 CATE = Trim(Request.QueryString("CATE")) IF IS_VALID_ID(CATE) = False THEN CATE = 0 SQL = "SELECT fldNAME, ID FROM faq_tbl_cate ORDER BY fldNAME ASC" Call OPEN_DB() Set RS = Server.CreateObject("ADODB.Recordset") RS.LockType = 1 RS.CursorType = 0 RS.Open SQL, MyConn WHILE NOT RS.EOF IF CATE = trim(RS("ID")) Then strCATE = strCATE & "