%
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 [KRABI$]"
With adoRs
Set .ActiveConnection = adoCn
.Open strQuery
End With
%>
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