<% '---------------------------------------------------------------------------- ' 1.ประกาศตัวแปร Dim page, rowCount, i, ans, sWhere, sSearch '---------------------------------------------------------------------------- ' 2.Validate ตัวแปรที่เก็บค่าของหน้าในการแสดงผล RecordSet page = Trim(Request.QueryString("page")) If page = "" Then page = 1 sSearch = Trim(Request.QueryString("search")) ans = Trim(Request.QueryString("ans")) If sSearch = "" Then If IsNumeric(ans) Then If ans=1 Then sWhere = " where nanswer>=1" If ans=0 Then sWhere = " where nanswer=0" If ans=2 Then sWhere = " order by nanswer DESC, qnumber DESC" If ans=3 Then sWhere = " order by nanswer, qnumber DESC" If ans=4 Then sWhere = " order by answers.adate DESC, questions.qdate DESC" If ans=5 Then sWhere = " order by nview DESC, qnumber DESC" Else sWhere = "" End If Else sWhere = " where qtopic like '%"& doQuote(sSearch) &"%' Or qnote like '%"& doQuote(sSearch) &"%'" End If '----------------------------------------------------------------- ' 3.ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง Questions มาแสดงผล Call ConnectDB(dbPath) sql="select * from questions" & sWhere & " order by QNumber DESC" If ans="2" Or ans="3" Or ans="5" Then sql="select * from questions" & sWhere ElseIf ans = "4" Then sql = "SELECT DISTINCTROW Questions.QNumber, Questions.QTopic, Questions.QName, Questions.QDate, Questions.NAnswer, Questions.NView, Questions.QIP Questions.QPicture FROM Questions LEFT JOIN Answers ON Questions.QNumber = Answers.QNumber" & sWhere End If Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic ' กำหนดจำนวนเรคคอร์ดที่จะแสดงในแต่ละหน้า rs.PageSize = 5 rs.Open sql,conn If Not rs.EOF Then ' กำหนดว่าต้องการแสดงผลลัพธ์จากหน้าไหน rs.AbsolutePage = CInt(page) rowCount = 0 Do While Not rs.EOF And rowCount < rs.PageSize %> <% rowCount = rowCount + 1 rs.MoveNext Loop Else %> <% End If %>

<% =left(rs("QName"),50)%>... <%If replace(left(rs("qdate"),10)," ","") = replace(formatdatetime(date,2)," ","") and rs("nanswer") = 0 then%> <%elseif rs("nanswer") <> 0 then%> <%end if%>