<% Set DBConn=Server.CreateObject("ADODB.Connection") DBConn.Open DB_LOGON_STRING SQL=CrewRatingSQL(Request("SearchType"),0) If SQL="" Then Response.Write "Unimplimented Search Type " & RTrim(Request("SearchType"))&"
" Response.End End If Set CrewMember=DBConn.Execute(SQL) Function ValuesString(StringTitle,FieldsArray) S="" For I=LBound(FieldsArray) To UBound(FieldsArray) Step 2 If (CrewMember(FieldsArray(I))="Y") Or (CrewMember(FieldsArray(I))="P") Then If Len(S)>0 Then S=S&"," S=S&FieldsArray(I+1) End If Next ValuesString=""&StringTitle&" "&S End Function 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" _ ) 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" _ ) %> >

Crew seeking <%=Request("SearchType")%> positions

Use of this service requires acceptance of the Terms and Conditions.

<% If CrewMember.EOF Then Response.Write "No matching crewmembers" Response.End End If Response.Write "" While Not CrewMember.EOF Response.Write ""&chr(10) Response.Write ""&chr(10) Response.Write ""&chr(10) If Len(RTRIM(CrewMember("Email")))>0 Then Response.Write ""&chr(10) Else Response.Write ""&chr(10) End If Response.Write ""&Chr(10) Response.Write ""&Chr(10) Response.Write ""&Chr(10) Response.Write ""&Chr(10) Response.Write ""&Chr(10) CrewMember.MoveNext Wend Response.Write "
"&RTRIM(CrewMember("Name"))&"" If CrewMember("Score")>10 Then Response.Write " (Qualified,Recommended)" ElseIf CrewMember("Score")>5 Then Response.Write " (Qualified)" Else Response.Write " (Not Assessed)" End If Response.Write "Email "&RTRIM(CrewMember("Email"))&"Phone: "&CrewMember("Primary_Phone")&"
Last Updated: "&RTRIM(CrewMember("Refreshed_Date"))&"
"& ValuesString("Desired Positions: ",DesiredPositionFields)&"
"& ValuesString("Times Available: ",AvailTimeFields)&"
"&CrewMember("Comments")&"
" %>