<%@ Language=VBScript %>
<%'********************database connection string
path = Server.MapPath("../db/bookings.xls")
'## Create Connection and Recordsets
Dim Conn, RS
Set Conn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
'## The Excel File Name
XLFile = Server.MapPath("../db/bookings.xls")
'## The Data to extract
szSQL = "select * from bookings"
'## Create and open the connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("../db/bookings.xls") + ";Extended Properties=Excel 8.0;"
Conn.Open
'## set the cursor to be static.
rs.cursortype = 3 ' adStatic.
'## open the recordset
rs.open szSQL, conn
%>
Island Seeker Cruiser Hire: Cruiser - K-Dee
K-Dee
The K-Dee is a 35 foot Resort Cruiser with all the conveniences to make your cruise enjoyable.
Please click the pictures to see more of this vessel and use our online system below to make a booking.
