<%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 & "" & trim(RS("fldNAME")) & vbcrlf ELSE strCATE = strCATE & "" & trim(RS("fldNAME")) & vbcrlf END IF RS.MoveNext WEND RS.Close %>

Show all FAQ's<%= strCATE %>

<% IF CATE = "" OR CATE = "0" THEN SQL = "SELECT ID, fldTITLE FROM faq_tbl_faq WHERE fldENABLE=1 ORDER BY fldORD" ELSE SQL = "SELECT ID, fldTITLE FROM faq_tbl_faq WHERE fldENABLE=1 AND fldCATE_ID = " & CATE & " ORDER BY fldORD" END IF Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorType = 3 RS.Open SQL, MyConn 'RS = MyConn.Execute(SQL) IF NOT RS.EOF THEN strRETURNED_DATA = RS.getrows ELSE EOF_VAL = True END IF RS.close IF Not EOF_VAL = True Then intNUM_COL=ubound(strRETURNED_DATA,1) intNUM_ROW=ubound(strRETURNED_DATA,2) FOR intROW_COUNTER = 0 TO intNUM_ROW ID = strRETURNED_DATA(0,intROW_COUNTER) TITLE = strRETURNED_DATA(1,intROW_COUNTER) I = I + 1 TOP_I = TOP_I + 1 %> <%=TITLE%> <% NEXT END IF %> <% I = 0 IF CATE = "" OR CATE = "0" THEN SQL = "SELECT ID, fldTITLE, fldSOLUTION, fldQUESTION FROM faq_tbl_faq WHERE fldENABLE=1 ORDER BY fldORD" ELSE SQL = "SELECT ID, fldTITLE, fldSOLUTION, fldQUESTION FROM faq_tbl_faq WHERE fldENABLE=1 AND fldCATE_ID = " & CATE & " ORDER BY fldORD" END IF Set RS = MyConn.Execute(SQL) IF NOT RS.EOF THEN strRETURNED_DATA = RS.getrows ELSE EOF_VAL = True END IF RS.close Set RS = Nothing MyConn.close Set MyConn = Nothing IF Not EOF_VAL = True Then intNUM_COL=ubound(strRETURNED_DATA,1) intNUM_ROW=ubound(strRETURNED_DATA,2) FOR intROW_COUNTER = 0 TO intNUM_ROW ID = strRETURNED_DATA(0,intROW_COUNTER) TITLE = strRETURNED_DATA(1,intROW_COUNTER) SOLUTION = strRETURNED_DATA(2,intROW_COUNTER) QUESTION = strRETURNED_DATA(3,intROW_COUNTER) I = I + 1 %> Q: <%=TITLE%> <%= Replace(QUESTION,vbcrlf," ") %> A: <%= Replace(SOLUTION,vbcrlf," ") %> <%If NOT I = 1 THEN%><%Else%><% End If %>  <%If NOT TOP_I = I THEN%><%Else%><% End If %> <% NEXT END IF %>