<% Sub ConnectDB() Set conn=Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("datalinks-more-add-del/linkstravelthailand/linksadadd.mdb") End Sub Sub DisconnectDB() conn.Close Set conn = Nothing End Sub Sub ShowPageNum(intPageCount, intPageCurrent, url, intAnswer) For i = 1 To intPageCount ' ถ้าแสดงอยู่ที่หน้าปัจจุบันไม่ต้องใส่ Hyperlink If i = CInt(intPageCurrent) Then If i = intPageCount Then Response.Write "" & i & "" Else Response.Write "" & i & " | " End If Else ' ถ้าไม่ได้แสดงอยู่ที่หน้าปัจจุบันให้ใส่ Hyperlink Response.Write "" If i = intPageCount Then Response.Write i & "" Else Response.Write i & " | " End If End If Next End Sub %> <% Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 Dim conn, rs, sql %> Destination Directory - จังหวัดชลบุรี, Thailand <%=cat%>

จังหวัดชลบุรี ภาคตะวันออก

| Add Link | ท่องเที่ยว | ข้อมูลการท่องเที่ยว | " style="font-family: ms sans serif; font-size: 10pt; border: 1px double black;background:#FFFF99; COLOR: #000000">

ชลบุรี Directory Information - Links

จังหวัดชลบุรี อยู่ห่างจากกรุงเทพฯ ตามเส้นทางสายบางนา-ตราด เป็นระยะทางประมาณ 81 กิโลเมตร นอกจากเป็นแหล่งท่องเที่ยวชายทะเลที่มีชื่อเสียงมาช้านาน ยังเป็นแหล่งเกษตรกรรม อุตสาหกรรมที่สำคัญแห่งหนึ่งของไทย มีการทำนา ทำไร่อ้อย ไร่มันสำปะหลัง ทำสวนมะพร้าว ทำการประมงน้ำลึกและตื้น และอุตสาหกรรมโรงงาน ชลบุรีแบ่งการปกครองออกเป็น 10 อำเภอ คือ อำเภอเมือง อำเภอหนองใหญ่ อำเภอพนัสนิคม อำเภอบ้านบึง อำเภอพานทอง อำเภอบ่อทอง อำเภอศรีราชา อำเภอบางละมุง อำเภอสัตหีบ และอำเภอเกาะสีชัง

Famous for its abundance of tropical fruits and as a centre of gems, the eastern province of Chanthaburi is also blessed with rich, verdant forests with scenic waterfalls. The Chanthaburi River flows through the town which has been the home of ancient communities. Quiet fishing villages and peaceful beaches are not far from town. Chanthaburi was occupied by the French during the early part of the 20th century. Their influence can be seen in the architecture of many buildings including the largest Catholic cathedral in Thailand, catering to a sizeable Christian population. About 245 kilometres from Bangkok and covering an area of 6,338 square kilometers, Chanthaburi as administratively divided into the following districts:- Mueang Chanthaburi, Tha Mai, Khlung, Laem Sing, Pong Nam Ron, Makham, Soi Dao, Na Yai Am, Kang Hang Maeo and Khao Khitchakut sub-district.

Fruit Festival Annually held in May, the fair aims to promote local products and various kinds of fruit grown in the province. The fair features exhibitions on agricultural innovations as well as agricultural products. Stalls selling local crafts, jewellery, food products and seafood make the fair fun to visit. Besides, visitors get to see how famous local products such as preserved durian are made; or they can have a good time watching a fruit contest and a beauty contest. Central to the fair is a procession of cars lavishly laden with the famous fruit of Chanthaburi heading along the road to the venue.

Food Mostly made from seafood products. The Kuai Tieo Mu Liang is popular noodle dish with its soup seasoned with herbs. Another is the Mu Chamuang, a local sweet-and-sour curry. Chamuang is the leaf of a local plant with a sour taste.

Fruits The province grows some of the best durian, rambutan and mangoesteen in the country. Durain is also made into snacks such as chewy Durian Kwuan and crisp fried Durian Thot Krop.

Mat Mats are woven from Kok reed. It is at Ban Bang Sa Kaeo and Ban Samet Ngam. They are on sale in various markets in town. Kok is also made into products such as purses coasters, etc.

<% '---------------------------------------------------------------------------- ' 1.ประกาศตัวแปร Dim page, rowCount, i, ans, sWhere, sSearch '---------------------------------------------------------------------------- ' 2.Validate ตัวแปรที่เก็บค่าของหน้าในการแสดงผล RecordSet page = Trim(Request.QueryString("page")) If page = "" Then page = 1 sSearch = Trim(Request.Form("search")) ans = Trim(Request.QueryString("ans")) If sSearch = "" Then If IsNumeric(ans) Then If ans=1 Then sWhere = " where nanswer>=1" If ans=0 Then sWhere = " where nanswer=0" If ans=2 Then sWhere = " order by nanswer DESC, qnumber DESC" If ans=3 Then sWhere = " order by nanswer, qnumber DESC" Else sWhere = "" End If Else sWhere = " where qtopic like '%"& sSearch &"%' Or qnote like '%"& sSearch &"%'" End If '----------------------------------------------------------------- ' 3.ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง Questions มาแสดงผล Call ConnectDB() sql="select * from questions" & sWhere & " order by QNumber DESC" If ans="2" Or ans="3" Then sql="select * from questions" & sWhere Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic ' กำหนดจำนวนเรคคอร์ดที่จะแสดงในแต่ละหน้า rs.PageSize = 5 rs.Open sql,conn If Not rs.EOF Then ' กำหนดว่าต้องการแสดงผลลัพธ์จากหน้าไหน rs.AbsolutePage = CInt(page) rowCount = 0 Do While Not rs.EOF And rowCount < rs.PageSize %> <%If replace(left(rs("qdate"),10)," ","") = replace(formatdatetime(date,2)," ","") and rs("nanswer") = 0 then%>

<%elseif rs("nanswer") <> 0 then%> <%else%> <%end if%> #<%=right("00" & RS("QNumber"),5)%> Link to - <%response.write(Server.HTMLEncode(RS("QTopic")))%>
Url : <%response.write(Server.HTMLEncode(RS("QName")))%>
: <%response.write(Server.HTMLEncode(RS("QNote")))%>
Date : <%=rs("qdate")%>

<% rowCount = rowCount + 1 rs.MoveNext Loop End If %>

Pages <%Call ShowPageNum(rs.PageCount, Page, "default.asp", ans) rs.Close Set rs = Nothing Call DisconnectDB() %>

การท่องเที่ยวแห่งประเทศไทย Tourism in Thailand

ท่องเที่ยว ภาคกลาง

ท่องเที่ยว ภาคใต้

ท่องเที่ยว ภาคตะวันออก

ท่องเที่ยว ภาคเหนือ

ท่องเที่ยว ภาคตะวันออกเฉียงเหนือ

| ชัยภูมิ | นครราชสีมา | สุรินทร์ | อุบลราชธานี

เที่ยวต่างประเทศ - Travel and Tourism

| เที่ยวต่างประเทศ

Tourism Thailand Directory only offers tourism contents and searchable web-linked directories of Thai tourism companies. All product representations and sales are made by the operators featured in our directories. Tourism Thailand Directory therefore makes no warranty, assumes any legal liability or responsibility for the accuracy, completeness of any information and product posted by the operators. Many people when arriving in Thailand, do not really know what to expect, and know very little about the country and the people. However once they have been to Thailand once or twice, they will be sure to return, it is a kingdom that offers many marvels of undiscovered enchantment. With surprises and delights around every corner your trip to Thailand will open your eyes to a new world.

On this site we offer you accommodation such as hotels in Thailand with some very special rates, restaurant, bar, and transport reviews so that you can have an insiders idea of where to go and what to do in Thailand once you arrive. We offer you shopping tips, apartment options if you don't feel like staying in a hotel, guides to where you can connect to the internet and how much they cost. What you can do in Thailand from a tourist perspective, and much, much more. On this page we give you a little insight into Thailand and the People, a little lesson if you like into the history of this amazing country and its dynamic and beautiful people. Thailand covers an area of 513,115 sq. km. in the heart of South East Asia, and shares its borders with Laos, Myanmar, Cambodia, Malaysia, the Gulf of Thailand and the Indian Ocean.

Thailand itself is broken onto four natural regions, a) The North b) The Central Plain or the Chao Phraya River Basin c) The North East (Korat Plateau) and d) The South or Southern Peninsula. The Northern region is mountainous and full of forests, ridges and spectacular valleys, the main city of this region is Chiang Mai, a very popular tourist destination.