<% @language="VBScript" %> <% Dim oConn Dim oRs Dim strSQL Dim strSailorName Dim strLifePeriod Dim strBirthPlace Dim strHomePort 'Connect to database Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open db_conn 'Set the Form action based on the mode Dim strMode Dim strFormAction strMode = Request.Form("mode") Select Case strMode Case "2" strFormAction = "sailor_list.asp" Case "3" strFormAction = "CD_info_form.asp" Case Else strFormAction = "Error.asp" End Select %> Sailor's Hall of Fame - Atlantic Star Music

Sailor's Hall of Fame Inductees

<% 'Get listing of sailors strSQL = "SELECT * FROM Sailors WHERE Display = True ORDER BY Last_Name, First_Name, Birth_Place_Country, Birth_Place_Prov, Birth_Place_Town" Set oRS = oConn.Execute(strSQL) Do While Not oRS.EOF 'Format field values strSailorName = oRS.Fields("Last_Name").value & ", " & _ oRS.Fields("First_Name").value & " " & _ oRS.Fields("Middle_Name").value strLifePeriod = oRS.Fields("Birth_Date").value & " - " & _ oRS.Fields("Life_Period").value strBirthPlace = oRS.Fields("Birth_Place_Town").value & ", " & _ oRS.Fields("Birth_Place_Prov").value & ", " & _ oRS.Fields("Birth_Place_Country").value strHomePort = oRS.Fields("Home_Port_Town").value & ", " & _ oRS.Fields("Home_Port_Prov").value & ", " & _ oRS.Fields("Home_Port_Country").value 'Check if Info_Level 2 or 3 has been purchased than display link to detail page If oRS.Fields("Info_Level").value >= 2 Then strDetailLinkStart = "" strDetailLinkEnd = "" Else strDetailLinkStart = "" strDetailLinkEnd = "" End If 'Display table row %> <% 'Next record oRS.MoveNext Loop %>
Name Life Period Birth Place Home Port Sailing Areas
<% =strDetailLinkStart & strSailorName & strDetailLinkEnd %>  <% =strLifePeriod %>  <% =strBirthPlace %>  <% =strHomePort %>  <% =oRS.Fields("Sailing_Areas").value %> 

Back to Home

<% 'Close connection to the database oRS.Close oConn.Close Set oRS = Nothing Set oConn = Nothing %>