<%
Dim Conn,Rs,i,Cnt,start,ends,Pg,MCnt,Recs,TPg,l
Dim curPage, pageSize, numPages
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("aijbeass.mdb")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "Questions",Conn,adOpenKeyset ,adLockOptimistic, adCmdTable
Rs.Filter = "Answer <> 'N' "
If Rs.RecordCount <> 0 Then
pageSize = 10
If Request.QueryString ("page") <> "" Then
curPage = CInt (Request.QueryString("page"))
Else
curPage = 1
End If
End If
If Rs.RecordCount <> 0 Then
Rs.PageSize = pageSize
numPages = Rs.PageCount
If curPage > numPages Then curPage = numPages
Rs.AbsolutePage = curPage
End If
%>
 FAQ
<% If Rs.RecordCount = 0 Then %>
No
Questions & Answers Found !
<% End If %>
<%
Do while pageSize > 0
If Rs.EOF Then
Exit Do
End If %>
|
Q: <%= Rs("Question")%> |
|
A: <%= Rs("Answer")%> |
<%
Rs.MoveNext
pageSize = pageSize - 1
i=i+1
If Rs.EOF Then
Exit Do
End If
Loop
%>
<% If curPage > 1 Then %>
|
<%= " Previous Page " %>
<% End If %>
<% If curpage < numPages Then %>
|
<%= " Next Page " %>
<% End If
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
%>
|
|
|
|
