<% textSearch = request("textSearch") Pages = Request("Pages") if Pages = "" then Pages = 1 rowcount = 0 set rsfaq=Server.CreateObject("ADODB.Recordset") if textSearch <> "" then sql = "SELECT * from faq where faqDetail like '%"&textSearch&"%' order by faqSort asc" else sql = "SELECT * from faq order by faqSort asc" end if rsfaq.Open sql, Conn, 1, 3 if not rsfaq.eof then rsfaq.PageSize = 100 rsfaq.AbsolutePage = Pages PageCount = cint(rsfaq.PageCount) end if %> บริษัท เอ็กซิม บิซิเนสอินเตอร์ จำกัด

<% colspan =2 ' คอลัมน์ rowcount = 1 while not rsfaq.eof and rowcount < rsfaq.PageSize if rowcount mod colspan = 1 then Response.Write "" %> <% if rowcount mod colspan = 0 then Response.Write "" rowcount = rowcount + 1 rsfaq.movenext wend %>

<%=rsfaq("faqHeader")%>

<%=ctext(rsfaq("faqDetail"))%>