<%
pageLen = 20 'กำหนดจำนวนแต่ละหน้าที่ต้องการแสดงกี่ Reccord
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Database.mdb"),"" , ""
'หรือจะใช้เป็น Conn.Open "15Tankage","",""
sql ="Select * From 15Tankage"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
Nrecord=RS.recordcount
Rs.pageSize = pageLen
totalPage = Rs.PageCount
Rs.absolutePage = pageNo
If Rs.EOF Then
%>
No Data !
<%Else%>
<< Back <% end if if cint(pageno) < totalPage then %> Next >> <% end if %> Page <%for idx = 1 to totalPage %> <% if idx=cint(pageno) then%> <%=idx%> <%else %> <%=idx%> <%end if%> <% next%> |
Registered Office :
215/148-149 Pracharad 1Rd.,
Kwang Bangsue,Khet Bangsue, Bangkok 10800 Thailand Tel.: +66 (0)2 585 2556 to 8 Fax : +66 (0) 2 587 6068 |
VIPCO 2 Main Workshop :
42, 52 Moo 7, Koo-Bang-Luang, Ladlumkaew, Pathumthani 12140 Thailand Tel.: +66 (0) 2 979 4001 to 8 Fax : +66 (0) 2 979 4010 |
VIPCO 1 Workshop :
28/2 Moo 4, Bangkok-Pathumthani Rd., Bang Ka-yang,Muang Pathumthani Pathumthani 12000 Thailand Tel.: +66 (0) 2 975 2811 to 4 Fax : +66 (0) 2 975 2815 |
VIPCO 4 Fin Shop :
220-220/1 Moo 3,Toong Sukhla, Sriracha District, Chonburi 20230 Thailand Tel.: +66 (0) 38 401 207,494 059-60 Fax : +66 (0) 38 401 206 |
VIPCO 5 Workshop :
559/9 Moo. 1 Nong Kham
Sriracha District, Chonburi 20110 Thailand Tel.: +66 (0) 38 110 711-18 |
VIPCO 6 Workshop:
Laem Chabang Port,
(near
CO Seaport), Toong Sukhla, Sriracha District, Chonburi, Thailand |