<%@ LANGUAGE="VBSCRIPT" %> <% response.expires = 0 %> <% response.buffer = True %> view.asp
<% Set Conn = Server.CreateObject("ADODB.Connection") conn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") conn.CommandTimeout = Session("DataConn_CommandTimeout") conn.Open Session("DataConn_ConnectionString"), _ Session("DataConn_RuntimeUserName"),_ Session("DataConn_RuntimePassword") sqlprovince = "select * from province1 order by pengname" sqlarea = "select * from area order by areacode" sqlfood = "select * from food " sqlnote = "select * from notecode order by notecode" sqlPhuket ="Select count(*) as countPhuket from restaurant Where province = '83' " sqlPattaya ="Select count(*) as countPattaya from restaurant Where area = 54 " sqlsamui ="Select count(*) as countSamui from restaurant Where area = 58 " sqlBangkok ="Select count(*) as countBangkok from restaurant Where province = '10' " sqlChiangmai ="Select count(*) as countChiangmai from restaurant Where province = '50' " Set rs10 = Server.CreateObject("ADODB.Recordset") rs10.Open sqlBangkok, Conn, adForwardOnly, adLockoptimistic Set rs50 = Server.CreateObject("ADODB.Recordset") rs50.Open sqlchiangmai, Conn, adForwardOnly, adLockoptimistic Set rs83 = Server.CreateObject("ADODB.Recordset") rs83.Open sqlphuket, Conn, adForwardOnly, adLockoptimistic Set rs103 = Server.CreateObject("ADODB.Recordset") rs103.Open sqlpattaya, Conn, adForwardOnly, adLockoptimistic Set rs022 = Server.CreateObject("ADODB.Recordset") rs022.Open sqlprovince, Conn, adOpenForwardOnly, adLockoptimistic Set rs023 = Server.CreateObject("ADODB.Recordset") rs023.Open sqlarea, Conn, adOpenForwardOnly, adLockoptimistic Set rs024 = Server.CreateObject("ADODB.Recordset") rs024.Open sqlfood, Conn, adOpenForwardOnly, adLockoptimistic Set rs025 = Server.CreateObject("ADODB.Recordset") rs025.Open sqlnote, Conn, adOpenForwardOnly, adLockoptimistic Set rs58 = Server.CreateObject("ADODB.Recordset") rs58.Open sqlsamui, Conn, adOpenForwardOnly, adLockoptimistic %> <% If Request.ServerVariables("Content_Length") > 0 Then %> <% If (len(request.form("TypeSearch")) < 1 or request.form("TypeSearch") = "Select Province/Location" or isnull(request.form("TypeSearch"))) Then %>

Please Selected Province/Location !!!

Back <% Else %> <% session("TypeSearch") = request.form("TypeSearch") session("TypeSearch1") = request.form("TypeSearch1") session("TypeSearch2") = request.form("TypeSearch2") response.redirect "viewcount.asp" %> <% End If %> <% Else %>
Tourist Attractions Search Restaurants and Type of Foods Search Name of Restaurants
      Bangkok (<%=rs10("countBangkok")%>)
      Chiangmai (<%=rs50("countChiangmai")%>)
      Pattaya (<%=rs103("countPattaya")%>)
      Koh Samui (<%=rs58("countSamui")%>)
      Phuket (<%=rs83("countPhuket")%>)


      Add Free Restaurant
      Back to Main

      User's Guide
*

(Bangkok Only)

*

ค้นหารายชื่อร้านอาหาร (ภาษาไทย)


Special Search


<% conn.close set conn = nothing %> <% End If %>
Northern Northeast
<%Set Conn = Server.CreateObject("ADODB.Connection") conn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") conn.CommandTimeout = Session("DataConn_CommandTimeout") conn.Open Session("DataConn_ConnectionString"), _ Session("DataConn_RuntimeUserName"),_ Session("DataConn_RuntimePassword") '--- ข้อมูลจังหวัดในภาคเหนือ sql ="Select * from province1 where region = 'N' order by pengname asc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, Conn,1, 3 do while not(rs.eof) sql1 ="Select * from restaurant where province = '" &rs("province")& "'" Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open sql1, Conn,1, 3%>       "><%=rs("pengname")%> (<%=rs1.recordcount%>)
<% rs1.close rs.movenext loop rs.close %> 		<% '--- ข้อมูลจังหวัดในภาคอีสาน sql2 ="Select * from province1 where region = 'R' order by pengname asc" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open sql2, Conn,1, 3 do while not(rs2.eof) sql3 ="Select * from restaurant where province = '" &rs2("province")& "'" Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.Open sql3, Conn,1, 3%>       "><%=rs2("pengname")%> (<%=rs3.recordcount%>)
<% rs3.close rs2.movenext loop rs2.close %>
Central South
<%Set Conn = Server.CreateObject("ADODB.Connection") conn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") conn.CommandTimeout = Session("DataConn_CommandTimeout") conn.Open Session("DataConn_ConnectionString"), _ Session("DataConn_RuntimeUserName"),_ Session("DataConn_RuntimePassword") '--- ข้อมูลจังหวัดในภาคกลาง sql ="Select * from province1 where region = 'C' order by pengname asc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, Conn,1, 3 do while not(rs.eof) sql1 ="Select * from restaurant where province = '" &rs("province")& "'" Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open sql1, Conn,1, 3%>       "><%=rs("pengname")%> (<%=rs1.recordcount%>)
<% rs1.close rs.movenext loop rs.close %> 		<% '--- ข้อมูลจังหวัดในภาคใต้ sql2 ="Select * from province1 where region = 'S' order by pengname asc" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open sql2, Conn,1, 3 do while not(rs2.eof) sql3 ="Select * from restaurant where province = '" &rs2("province")& "'" Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.Open sql3, Conn,1, 3%>       "><%=rs2("pengname")%> (<%=rs3.recordcount%>)
<% rs3.close rs2.movenext loop rs2.close %>