<% Dim adoCn Dim adoRs Dim adoFld Dim strQuery Dim strResults Const adUseClient = 3 Const adClipString = 2 Const strColDelim = "  " Const strRowDelim = "" Set adoCn = CreateObject("ADODB.Connection") Set adoRs = CreateObject("ADODB.Recordset") With adoCn .Open "DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath("\Hotel.xls") .CursorLocation = adUseClient End With strQuery = "SELECT * FROM [SAMUI$]" With adoRs Set .ActiveConnection = adoCn .Open strQuery End With %>
Home
Apartment
Condo
Serviced Aprt.
Hotel
Airticket
Mail Magazine
Company
Jobs
Other
 

Hotel In Samui 2007

<% For Each adoFld in adoRs.Fields Response.Write "" Next %>
" & adoFld.Name & _ "
<% strResults = adoRs.GetString(adClipString, _ adoRs.RecordCount, strColDelim, _ strRowDelim) strResults = Left(strResults, _ InStrRev(strResults,"
") - 1) Response.Write strResults %>
 
All Rights Reserved.c by www.n-inter.co.th - contact info@n-inter.co.th
Nakamura International Co.,Ltd. 79 Room 302/1, Sukhumvit Soi 39,
Sukhumvit Road, Klongton-Nua, Wattana, Bangkok 10110
Tel : 0-2662-2940-1 Fax : 0-2662-2944