<% Option Explicit %> <% Const PAGE_SIZE = 10 Dim oConn ' Connection Dim oRS ' Record Set Dim oSql Dim i Dim oCurPage Dim oPageLink i = 0 ' For Page Method oCurPage = 1 If (Request.QueryString("curP") <> "") Then oCurPage = CInt(Request.QueryString("curP")) ' End of For Page Method Set oConn = Session("conn") Set oRS = Server.CreateObject("ADODB.RecordSet") oSql = "SELECT DoDate, Topic, Speaker, Issue FROM tblProgramContent ORDER BY OrderNum, DateUpdate" oRS.Open oSql, oConn, adOpenStatic, adLockOptimistic %> Talkback Program :: Program Content
  Home :: Talkback Program :: Program Content

Program Content

Below is a detailed list of the dates, guest speakers and issues discussed on the TBPs for the last six months. The list of issues discussed on programs will be updated on a six monthly basis.

<% If (Not oRS.EOF) Then %> <% i = 0 ' Go to Current Cursor TakeCusorToCurrentPage oRS, oCurPage, PAGE_SIZE ' End of Go to Current Cursor Do While ((Not oRS.EOF) And (i < PAGE_SIZE)) i = i + 1 %> <% oRS.MoveNext Loop %>
Date Topic Guests  
<%=KhmerDate(oRS("DoDate"))%> <%=replaceSpChrOutPut(oRS("Topic"))%> <%=replaceSpChrOutPut(oRS("Speaker"))%> <%=replaceSpChrOutPut(oRS("Issue"))%>
<% If (i > 0) Then %> <% If (oRS.RecordCount > PAGE_SIZE) Then %> <% End If %>
Found: <%=oRS.RecordCount%> item(s)
 
<% ' Build Page Number oPageLink = "TbkProContent.asp?curP=" BuildPageNumber oRS, oCurPage, PAGE_SIZE, oPageLink %>
<% End If %> <% End If ' ORS.EOF%> <% Set oRS = Server.CreateObject("ADODB.RecordSet") oSql = "SELECT DoDate, Topic, Speaker, Issue FROM tblComingTopic ORDER BY OrderNum, DateUpdate" oRS.Open oSql, oConn, adOpenStatic, adLockOptimistic If (Not oRS.EOF) Then %>

Upcoming Topic

<% i = 0 ' Go to Current Cursor TakeCusorToCurrentPage oRS, oCurPage, PAGE_SIZE ' End of Go to Current Cursor Do While ((Not oRS.EOF) And (i < PAGE_SIZE)) i = i + 1 %> <% oRS.MoveNext Loop %>
Date Topic Guests  
<%=KhmerDate(oRS("DoDate"))%> <%=replaceSpChrOutPut(oRS("Topic"))%> <%=replaceSpChrOutPut(oRS("Speaker"))%> <%=replaceSpChrOutPut(oRS("Issue"))%>
<% If (i > 0) Then %> <% If (oRS.RecordCount > PAGE_SIZE) Then %> <% End If %>
Found: <%=oRS.RecordCount%> item(s)
 
<% ' Build Page Number oPageLink = "TbkProContent.asp?curP=" BuildPageNumber oRS, oCurPage, PAGE_SIZE, oPageLink %>
<% End If %> <% End If ' ORS.EOF%>