> <% Set DBConn=Server.CreateObject("ADODB.Connection") DBConn.Open DB_LOGON_STRING SQL="SELECT * FROM CrewList WHERE CrewId="&Request("CrewId") Set CrewMember=DBConn.Execute(SQL) If CrewMember.EOF Then Response.Write "Invalid CrewId" Response.End End If %> <% If CrewMember("Avail_Short_Notice")="Y" Then Response.Write ("Available at short notice") %>

Contact Details:

Name <%=CrewMember("Name")%> Email "><%=CrewMember("Email")%>
Phone (1) <%=CrewMember("Primary_Phone")%> Phone (2) <%=CrewMember("Secondary_Phone")%>
Gender <%=CrewMember("Gender")%> D.O.B. <%Response.Write CrewMember("DOB")%>
Weight <%If CrewMember("Weight")>0 Then Response.Write CrewMember("Weight") Else Response.Write "N/A"%> Suburb <%=CrewMember("Suburb")%>
Smokes on board <%If CrewMember("Smoker")="Y" Then Response.Write "Yes" Else Response.Write "No"%> Last Updated <%=CrewMember("Refreshed_Date")%>
<% Sub BoolValuesTable(TableTitle,FieldsArray) Response.Write ""&TableTitle&""&Chr(10) Response.Write ""&Chr(10) For I=LBound(FieldsArray) To UBound(FieldsArray) Step 2 If (CrewMember(FieldsArray(I))="Y") Then Response.Write ""&Chr(10) End If If (CrewMember(FieldsArray(I))="P") Then Response.Write ""&Chr(10) End If If (CrewMember(FieldsArray(I))="1") Then Response.Write ""&Chr(10) End If If (CrewMember(FieldsArray(I))="2") Then Response.Write ""&Chr(10) End If Next Response.Write "
"&FieldsArray(I+1)&"
"&FieldsArray(I+1)&" (Preferred)
"&FieldsArray(I+1)&" (1-9 times)
"&FieldsArray(I+1)&" (10+ times)
"&Chr(10) End Sub CourseFields=Array( _ "Qual_C1", "[C1] Set Sail (Beginners)", _ "Qual_C2", "[C2] Competent Crew", _ "Qual_C3", "[C3] Spinnaker", _ "Qual_C4", "[C4] Race Course", _ "Qual_C5", "[C5] Small Craft Safety", _ "Qual_C6", "[C6] Inshore Skipper", _ "Qual_C7", "[C7] Offshore Crew", _ "Qual_C8", "[C8] Coastal Skipper", _ "Qual_C9", "[C9] Coastal Navigation", _ "Qual_C10","[C10] Passage Cruise" _ ) QualFields=Array( _ "Qual_Auto_Helm", "Auto Helm", _ "Qual_Celestial", "Celestial", _ "Qual_Deisel_Maintenance", "Diesel Maintenance", _ "Qual_First_Aid","First Aid", _ "Qual_GPS","G.P.S", _ "Qual_Radio_Licence", "Radio Licence", _ "Qual_Sail_Repair","Sail Repair", _ "Qual_Yachtmaster","Yachtmaster Checkout", _ "Qual_SSSC","Sea Safety and Survival Course" _ ) AvailTimeFields=Array( _ "Avail_Monday_Twilight", "Monday Twilight", _ "Avail_Wednesday_Afternoon", "Wednesday Afternoon", _ "Avail_Wednesday_Twilight", "Wednesday Twilight", _ "Avail_Friday_Twilight", "Friday Twilight", _ "Avail_Saturday", "Saturday", _ "Avail_Sunday", "Sunday", _ "Avail_Weekend", "All Weekend" _ ) DesiredPositionFields=Array (_ "Pos_Foredeck", "Foredeck",_ "Pos_Grinder", "Grinder",_ "Pos_Helm", "Helm", _ "Pos_Jib_Trimmer", "Jib Trimmer", _ "Pos_Main_Trimmer", "Main Trimmer", _ "Pos_Mast", "Mast", _ "Pos_Tactician", "Tactician" _ ) AvailEventsFields=Array( _ "Avail_Twilight", "Twilight Racing", _ "Avail_Harbour", "Harbour Racing",_ "Avail_Offshore", "Offshore Racing",_ "Avail_Short_Haul", "Short Haul",_ "Avail_Hobart", "Sydney to Hobart",_ "Avail_Cruising", "Cruising",_ "Avail_Deliveries", "Deliveries "_ ) ExperienceFields=Array( _ "Exp_Cruising", "Cruising",_ "Exp_Deliveries", "Deliveries",_ "Exp_Harbour_Racing", "Harbour Racing",_ "Exp_Offshore", "Offshore Racing",_ "Exp_Short_Haul", "Short Haul Racing" _ ) Response.Write ""&Chr(10) Response.Write ""&Chr(10) 'Response.Write "
"&Chr(10) Call BoolValuesTable("PSS Courses",CourseFields) Response.Write ""&Chr(10) Call BoolValuesTable("Experience",ExperienceFields) Response.Write ""&Chr(10) Call BoolValuesTable("Other Qualifications",QualFields) Response.Write "
"&Chr(10) 'Response.Write ""&Chr(10) Response.Write ""&Chr(10) Response.Write "
"&Chr(10) Call BoolValuesTable("Times Available",AvailTimeFields) Response.Write ""&Chr(10) Call BoolValuesTable("Events Desired",AvailEventsFields) Response.Write ""&Chr(10) Call BoolValuesTable("Position Desired",DesiredPositionFields) Response.Write "
"&Chr(10) %>

Comments: <%=CrewMember("Comments")%>