|
| |
 จดหมายข่าวรายเดือน |
<%
PageSizes =10
MaxPage =10
NumColumn = 2
If IsEmpty(Request.Querystring("PageNo")) then
CurrPage = 1
ElseIf Request.Querystring("PageNo")= "" then
CurrPage = 1
Else
CurrPage = Cint(Request.Querystring("PageNo"))
End If
Set Rs=Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM "&myModule_Table&" WHERE "&myModule_Table&"_Language='"&Page_Language&"'"
If Request("gid") <> "" Then
SQL = SQL & " AND "&myModule_Table&"_Year='"&Request("gid")&"'"
End If
SQL = SQL & " AND "&myModule_Table&"_ModuleKey='"&SystemModuleKey&"' ORDER BY "&myModule_Table&"_Order DESC"
Rs.Open SQL,db,1,3
TotalRecordCount=Rs.RecordCount
If TotalRecordCount > 0 Then
Rs.Pagesize=PageSizes
Rs.AbsolutePage = CurrPage
next10 = getNext10(CurrPage)
prev10 = getPrev10(CurrPage)
indexs=1
column=1
Do While Not Rs.Eof And indexs<=int(PageSizes)
If column=1 Then
%>
<%
End If
%>
| |
|
| ปีที่ 2 ฉบับที่ 1
|
| ประจำเดือนมกราคม 2552 |
| |
|
|
 |
| |
|
| ปีที่ 1 ฉบับที่ 3
|
| ประจำเดือนธันวาคม 2551 |
| |
|
|
|
| |
|
| ปีที่ 1 ฉบับที่ 2
|
| ประจำเดือนพฤศจิกายน 2551 |
| |
|
|
|
| |
|
|
|
| ปีที่ 1 ฉบับที่ 1 |
| ประจำเดือนตุลาคม 2551 |
| |
|
|
| |
|
| |
|
|
<%
column = column+1
if column=NumColumn+1 Then
%>
<%
column=1
End If
Rs.MoveNext
indexs=indexs+1
Loop
RSPrevPage = CurrPage -1
RSNextPage = CurrPage + 1
If Next10 > Rs.PageCount Then
Next10 = Rs.PageCount
End If
If prev10 = 1 AND next10 - 1 < MaxPage Then
start = 1
Else
start = Next10 - MaxPage
If right(start, 1) > 0 Then
start = replace(start, right(start, 1), "0")
start = start + MaxPage
End If
End If
End If
%>
|
| |
<% If Rs.PageCount > 1 Then %>
| |
<% End if %>
| |
|
| |
|
|
|