<%@ 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: Houseboat - Peta Pan
Peta Pan
The Peta-Pan is a 28 ft Flybrigde Houseboat with all the conveniences to make your cruise most enjoyable.
Please click the pictures to see more of this vessel and make a booking for Peta Pan using our online booking system below.
