<%
Set dBConn = Server.CreateObject("ADODB.Connection")
dBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../db/glctraining.com.mdb") & ";"
GetBoatsForSale = "SELECT * FROM BoatsForSale"
Set BoatsForSale = Server.CreateObject("ADODB.RecordSet")
BoatsForSale.Open GetBoatsForSale, dBConn, 1, 1
If BoatsForSale.EOF And BoatsForSale.BOF Then
BoatsForSale.Close
Set BoatsForSale = Nothing
dBConn.Close
Set dBConn = Nothing
Else
Do While Not BoatsForSale.EOF
BoatModel = BoatsForSale("BoatModel")
BoatType = BoatsForSale("BoatType")
BoatPrice = BoatsForSale("BoatPrice")
BoatYear = BoatsForSale("BoatYear")
BoatLength = BoatsForSale("BoatLength")
BoatEngine = BoatsForSale("BoatEngine")
BoatSmallImageURL = BoatsForSale("BoatSmallImageURL")
BoatLargeImageURL = BoatsForSale("BoatLargeImageURL")
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & " ![](" & BoatSmallImageURL & ") | "
GLCTListing = GLCTListing & "
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & "
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & " " & BoatModel & " [" & BoatType & "]
| "
GLCTListing = GLCTListing & " " & FormatCurrency(BoatPrice) & "
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & "
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & "
| "
GLCTListing = GLCTListing & " Year:
Length:
Engines:
| "
GLCTListing = GLCTListing & "
| "
GLCTListing = GLCTListing & " " & BoatYear & "
" & BoatLength & "
" & BoatEngine & "
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & "
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " | "
GLCTListing = GLCTListing & "
| "
GLCTListing = GLCTListing & "
"
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & "
| "
GLCTListing = GLCTListing & "
"
BoatsForSale.MoveNext
Loop
BoatsForSale.Close
Set BoatsForSale = Nothing
dBConn.Close
Set dBConn = Nothing
End If
%>
Great Lakes Charter Training - Helping to Build America Through Continuing Education
|
|
|
|
|
|
|
|
|
Click on photos for a closer view.
For more information on any of these boats,
email us with the make,
model and year of the boat you are interested in. Make sure to include a phone
number where we can reach you.
|
|
|
|
|
|
|
|
|
|
|
