<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open myDNS set rs = server.createobject("ADODB.recordset") ParentID = Request("ParentID") if ParentID = empty then ParentID = 0 Field_Select = "ID, ItemID, ItemNameth, ItemDescth, Districtth, Provinceth,Tel_office, Tel_shop, Fax, Contactth, Email" SQLs = "SELECT " & Field_Select & _ " FROM Packages" & _ " WHERE Enable = 1" & _ " ORDER BY SortCode, ID" Response.Write vbCrLf & "" &vbCrLf rs.Open SQLs, conn, 0, 1 if rs.EOF then rows_Item = -1 strFound = 0 else rs_Item = rs.GetRows rows_Item = UBound(rs_Item,2) '------------------------------------- Start Product per Page rows_page = rows_Item ThisPage = request("page") ppp = 3 if ThisPage = empty then ThisPage = 1 if rows_page >= 0 then ThisPage = CInt(ThisPage) rows_page = rows_page + 1 TotalPage = int(FormatNumber((rows_page/PpP)+0.49999,0)) if ThisPage < 1 then ThisPage = 1 elseif ThisPage > TotalPage then ThisPage = TotalPage end if sItem = ((ThisPage-1) * PpP) if ThisPage = TotalPage then eItem = rows_page - 1 else eItem = sItem + PpP - 1 end if if TotalPage > 1 then strPage = "Page " & Thispage & " | " max_display = 5 current_position = 3 if TotalPage <= max_display then response.write "IN" s_countpage = 1 e_countpage = TotalPage else if ThisPage > current_position then if ThisPage+(max_display-current_position) > TotalPage then s_countpage = TotalPage-(max_display-1) e_countpage = TotalPage else s_countpage = ThisPage-(current_position-1) e_countpage = ThisPage+(max_display-current_position) end if else s_countpage = 1 e_countpage = max_display end if end if '- - - - - - - - - - - - - - - - - - - - - - - - - - - Start Page Number - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '- - - - - - - - - - - - - - - - - - - - - - - - - - - First Page - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' if StrComp(ThisPage,1) <> 0 then ' LinkStr = "<< | " ' strPage = strPage & LinkStr ' else ' strPage = strPage & "<< | " ' end if '- - - - - - - - - - - - - - - - - - - - - - - - - - - Previous Page - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' if StrComp(s_countpage,ThisPage) <> 0 then ' LinkStr = "< | " ' strPage = strPage & LinkStr ' else ' strPage = strPage & "< | " ' end if '- - - - - - - - - - - - - - - - - - - - - - - - - - - Page Number - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' for countpage = s_countpage to e_countpage ' if StrComp(countpage,ThisPage) <> 0 then ' LinkStr = "" & countpage & "" ' strpage = strPage & LinkStr ' else ' strPage = strPage & "" & countpage & "" ' end if ' strPage = strPage & " | " ' next '- - - - - - - - - - - - - - - - - - - - - - - - - - - Next Page - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' if StrComp(e_countpage,ThisPage) <> 0 then ' LinkStr = "> | " ' strPage = strPage & LinkStr ' else ' strPage = strPage & "> | " ' end if '- - - - - - - - - - - - - - - - - - - - - - - - - - - Last Page - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ' if StrComp(ThisPage,TotalPage) <> 0 then ' LinkStr = ">>" ' strPage = strPage & LinkStr ' else ' strPage = strPage & ">>" ' end if '- - - - - - - - - - - - - - - - - - - - - - - - - - - End Page Number - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - else strPage = "Page 1" s_countpage = 1 e_countpage = 1 end if strFound = rows_page end if '------------------------------------- End Product per Page end if rs.Close call Closeconnection() %> ::Autoglym ::
   
 
 
Home
Our Profile
Our Product
Our Services
News
Promotion
Member
Dealer & Location
Order Form
Contact us
Selected by Bentley (Thailand), Jaguar (Thailand), Porsche (Thailand), Aston Martin, McLaren, Morgan Motor
 

 
Member

Member Form
* ชื่อ:
  (สูงสุด 25 ตัวอักษร)
* นามสกุล :
  (สูงสุด 25 ตัวอักษร)
* อีเมล์ :
 
* ยืนยันอีเมล์ :
 
* ที่อยู่ :
 
 
* จังหวัด :
 
* ประเทศ :
 
* รหัสไปรษณีย์ :
 
* โทรศัพท์ :
 
* เลือกประเภท Member  
  Retail Range Trade Range
     
 
 
 

 
AUTO CARE CLINIC CO.,LTD 33/6-7 Moo 8, Vibhawadi - Rangsit Road,Sikan, Donmuang,Bangkok 10210
Tel : 0-2522-6701-4 Fax : 0-2522-6700 e-mail : marketing_acc@autocare.co.th
 
<