Cho Thavee Dollasien Co., LTD.

<% response.buffer = true '--------PRODUCTS (P1 - P4)--------- qrystr = "select top 4 * from products where (ProductStatus like 'p%') ORDER BY ProductStatus" set rs = conn.execute(qrystr) do while (not rs.eof) select case rs("ProductStatus") case "p1" P1_ID = rs("ProductID") P1_Name = rs("ProductName") P1_Model = rs("ProductModel") P1_Shortdetail = rs("ProductShortdetail") P1_Pict = rs("ProductHomePict") case "p2" P2_ID = rs("ProductID") P2_Name = rs("ProductName") P2_Model = rs("ProductModel") P2_Shortdetail = rs("ProductShortdetail") P2_Pict = rs("ProductHomePict") case "p3" P3_ID = rs("ProductID") P3_Name = rs("ProductName") P3_Model = rs("ProductModel") P3_Shortdetail = rs("ProductShortdetail") P3_Pict = rs("ProductHomePict") case "p4" P4_ID = rs("ProductID") P4_Name = rs("ProductName") P4_Model = rs("ProductModel") P4_Shortdetail = rs("ProductShortdetail") P4_Pict = rs("ProductHomePict") end select rs.movenext : loop '--------PRODUCTS (P1 - P4)--------- '--------PRODUCTS (Feature Product)--------- qrystr = "select productid from products" set rs = conn.execute(qrystr) ProdCount = rs.recordcount randomize timer ProdIndex = fix(rnd() * ProdCount) + 1 qrystr = "select * from products" set rs = conn.execute(qrystr) if not (rs.eof) then rs.pagesize = 1 rs.absolutepage = ProdIndex Pf_ID = rs("ProductID") Pf_Name = rs("ProductName") Pf_Shortdetail = rs("ProductShortdetail") Pf_Pict = rs("ProductPict") end if '--------PRODUCTS (Feature Product)--------- '--------NEWS--------- qrystr = "select top 1 * from news ORDER BY NewsID DESC" set rs = conn.execute(qrystr) if not (rs.eof) then NewsID = rs("NewsID") NewsHead = rs("NewsHead") NewsDetail = rs("NewsDetail") NewsPict = rs("NewsPict") end if '--------NEWS--------- '--------ACTIVITIES--------- qrystr = "select top 1 * from activities ORDER BY ActivityID DESC" set rs = conn.execute(qrystr) if not (rs.eof) then ActivityID = rs("ActivityID") ActivityHead = rs("ActivityHead") ActivityDetail = rs("ActivityDetail") ActivityPict = rs("ActivityPict") end if '--------ACTIVITIES--------- '--------JOBS--------- qrystr = "select top 5 JobPosition from jobs ORDER BY JobID DESC" set rs = conn.execute(qrystr) JobData = "" do while (not rs.eof) JobData = JobData & " - " & rs("JobPosition") & "
" rs.movenext : loop '--------JOBS--------- %> Cho Thavee Dollasien Co., LTD.

State Railway of Thailand (SRT) Project
งานเกี่ยวกับรถไฟ ของ การรถไฟแห่งประเทศไทย
----------------------------------------------------------------------

CHO THAVEE DOLLASIEN CO., LTD.
Khon Kaen : 265 Moo 4 Muangkhao, Muang, Khon Kaen 40000 Thailand Tel : +66 43 341412-18 FAX : +66 43 341410-11 Email : info@ctvdoll.co.th
Bangkok : 96/25 Vibhavadirangsit Road, Bangkhen, Laksi, Bangkok 10210 THAILAND Tel : +66 2 9734382-4 FAX : +66 2 9734385 Email : ctvbkk@ctvdoll.co.th

: เกี่ยวกับการปรับปรุงสภาพรถไฟ 20 unit
“Refurbishment 20 Units of Non Air-conditioned Passenger Coach to Second Class Air-conditioned Coach for State Railway of Thailand (SRT)”