Power Generation
<% pageLen = 15 'กำหนดจำนวนแต่ละหน้าที่ต้องการแสดงกี่ 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 "2PowerGeneration","","" sql ="Select * From 2PowerGeneration" 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%> <% recNo=1 Do While Not RS.EOF and recNo <= pageLen %> <% recNo=recNo+1 RS.MoveNext Loop rs.close conn.close %>
Client
Project
   WorkSummary
Weight(ton)
Duration
<%= Rs("Client")%>
<%= Rs("Project")%>
<%= Rs("Work Summary")%>
<%= Rs("Weight")%>
<%= Rs("Duration")%>
<% end if if cint(pageno) > 1 then %>
<< 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