会社登記番号
No.10454500391
|
<%
today=DateAdd("h","-7",Date())
dd=datepart("d",today)
mm=datepart("m",today)
yy=datepart("yyyy",today)
response.write yy & "/" & mm & "/" & dd
%>
|
タイ観光局旅行業ライセンス
No.11/4591
ようこそ タイランド へ
|
バンコクのハイヤーサービス手配 |
|
|
専用ワーコン車9人 乗り 、12人乗り |
１５人～４０人乗りを利用します。 |
|
※ エステ＆スパ スペシャル ディスラウント貴女に美容と健康を提供。（プルンチット店・シーロム店）
|
プロモーション |
|
|
 |
|
お知らせ |
|
|
|
|
| |
|
|
ゴルフパッケージツアー
|
|
|
オプショナルツアー
|
バンコク |
<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.open "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("../tour/db/database.mdb")
%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_tour,price1_tour,price2_tour from tour Where id_tour='A1'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_tour")%>
|
<%=rs("price2_tour")%> |
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_tour,price1_tour,price2_tour from tour Where id_tour='B1'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_tour")%>
|
<%=rs("price2_tour")%> |
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_tour,price1_tour,price2_tour from tour Where id_tour='B2'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_tour")%>
|
<%=rs("price2_tour")%> |
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_tour,price1_tour,price2_tour from tour Where id_tour='C1'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_tour")%>
|
<%=rs("price2_tour")%> |
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_tour,price1_tour,price2_tour from tour Where id_tour='C3'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_tour")%>
|
<%=rs("price2_tour")%> |
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_tour,price1_tour,price2_tour from tour Where id_tour='D1'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_tour")%>
|
<%=rs("price2_tour")%> |
<%
end if
rs.Close
Set rs=nothing
%>
<%
cn.Close
Set cn=nothing
%>
|
|
|
ゴルフ |
|
バンコク |
<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.open "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("../golf/db/database.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000004'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000004'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000005'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000005'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000012'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000012'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000013'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000013'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000017'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000017'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
cn.Close
Set cn=nothing
%>
|
|
チェンマイ |
<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.open "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("../cgolf/db/database.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000001'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000001'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000002'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000002'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000003'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000003'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
cn.Close
Set cn=nothing
%>
|
|
プーケット |
<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.open "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("../pgolf/db/database.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000001'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000001'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000002'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000002'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select name_golf from golf Where ID_Golf='1000004'"
rs.open cn.Execute(sql)
if not(rs.eof) then
%>
| • <%=rs("name_golf")%>
|
<%
end if
rs.Close
Set rs=nothing
%>
<%
Set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select price1,price2 from price where id_golftour='1000001' and id_golf='1000004'"
rs1.open sql1,cn,1,3
if not(rs1.eof) then
rs1.movefirst
response.write formatnumber(rs1("price1"),0)
else
response.write("blank")
end if
rs1.Close
Set rs1=nothing
%>
|
<%
cn.Close
Set cn=nothing
%>
|
|
|
日本国内からの連絡先 |
タイ国内からの連絡先 |
|
TEL： |
001-010-66-2877-5625 ~7
日本人スタッフ ( 09:00 ~ 18:00 ) |
TEL ： |
0-2877-5625
~7
日本人スタッフ ( 09:00 ~ 18:00 ) |
|
FAX： |
001-010-66-2877-9692 |
FAX
： |
0-2877-9692 |
| E-MAIL：
|
yoyaku@takotour.com |
E-MAIL：
|
yoyaku@takotour.com |
携帯電話
日本語： |
001-010-66-89203-2301
--日本人スタッフ ( 24時間
）
001-010-66-81314-1233
--MR.
CHULA ( 24時間 ） |
日本語：
|
089-203-2301
--
日本人スタッフ ( 24時間 ）
081-314-1233
--
MR. CHULA ( 24時間 ） |
|
|
