%
Set dBConn = Server.CreateObject("ADODB.Connection")
dBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../db/glctraining.com.mdb") & ";"
GetEvents = "SELECT * FROM Events"
Set Events = Server.CreateObject("ADODB.RecordSet")
Events.Open GetEvents, dBConn, 1, 1
If Events.EOF And Events.BOF Then
Events.Close
Set Events = Nothing
dBConn.Close
Set dBConn = Nothing
Else
Do While Not Events.EOF
EventName = Events("EventName")
EventLocation = Events("EventLocation")
EventDate = Events("EventDate")
EventDescription = Events("EventDescription")
If InStr(EventDescription, vbCrLf) <> 0 Then EventDescription = Replace(EventDescription, vbCrLF, "
", 1, -1, 1)
' EventDescription = Replace(EventDescription, Chr(32), " ", 1, -1, 1)
GLCTListing = GLCTListing & "
"
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & " " & EventLocation & "
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & " Event: Date:
Description:

| "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " " & EventName & " "
GLCTListing = GLCTListing & " " & EventDate & "
"
GLCTListing = GLCTListing & " " & EventDescription & " "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " | "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & "
"
GLCTListing = GLCTListing & " "
GLCTListing = GLCTListing & " 
| "
GLCTListing = GLCTListing & "
"
Events.MoveNext
Loop
Events.Close
Set Events = Nothing
dBConn.Close
Set dBConn = Nothing
End If
%>
Great Lakes Charter Training - Helping to Build America Through Continuing Education
|
|
|
|

|
|


|

|

|
Looking for some waterway fun in your area, or an area you will be traveling
to? Check out these coming attractions. Just scroll down to the state you are interested in.
GLC Training provides this Events Page for free to our friends and customers so they may be able to enjoy their boating to the fullest. Here, you will find boating, fishing and other water activities that are fun for the whole family. Our listing includes everything from professional water sports like Unlimited Hydroplane races to hands-on activities such as fly fishing lessons, and just about everything water-related in between.
Let Us Know
If you have a nautical-themed event you would like to see added to our page, please email us the location, date, title, and a brief description.
|

|
|

|

|
<%= GLCTListing %>

|

|
Thanks for visiting. We hope you have a fun-filled and safe boating season. If you have a nautical-themed event you would like to see added to our pages, please email us with the location, date, title, and a brief description.
|

|
|

|

|
|
|
|
|