<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim strSortBy strSortBy=Request.Form("strSortBy") 'strSortBy from the request.form can equal one of the following ' nameFirst ' nameLast ' position ' years 'The default value is nameLast Dim sortBy if isnull(strSortBy) or strSortBy="" then sortBy="nameLast" else sortBy=strSortBy end if %>

Spotlight

Reunion

Picnic

Home

President's Message Board of Directors Members Gunship History Aircraft Listings In Memory Aircraft & Crews Library Links Contact Us		Members Directory Update Info Join In Search Of ... Missing Friends of Spectre <% Set rsMembers = Server.CreateObject("ADODB.Recordset") rsMembers.ActiveConnection = connectionString rsMembers.Source = "SELECT * from members Order By "+sortBy+"" rsMembers.CursorType = 0 rsMembers.CursorLocation = 2 rsMembers.LockType = 1 rsMembers.Open() While rsMembers.eof = false %> <% if sortBy = "nameFirst" then %> <% rsMembers.MoveNext Wend rsMembers.Close() Set rsMembers = Nothing %> Directory Sort by:   <% if sortBy = "nameLast" then %> Last Name <%else%> Last Name <%end if if sortBy = "nameFirst" then %> First Name <%else%> First Name <%end if if sortBy = "position" then %> Position <%else%> Position <%end if if sortBy = "years" then %> Spectre Years <%else%> Spectre Years <%end if%>    Name   Position   Email   Spectre Years  <%=rsMembers.Fields.Item("nameFirst").Value%> <%=rsMembers.Fields.Item("nameLast").Value%> <% else %>  <%=rsMembers.Fields.Item("nameLast").Value%>, <%=rsMembers.Fields.Item("nameFirst").Value%> <% end if %> <% if isnull(rsMembers.Fields.Item("aka").Value) then else %>  "<%=rsMembers.Fields.Item("aka").Value%>" <% end if %>   <%if IsNull(rsMembers.Fields.Item("position").Value) then%>   <%else%> <%=rsMembers.Fields.Item("position").Value%> <%end if%>   <%if IsNull(rsMembers.Fields.Item("email").Value) then%>   <%else%> "><%=rsMembers.Fields.Item("email").Value%> <%end if%>   <%if IsNull(rsMembers.Fields.Item("years").Value) then%>   <%else%> <%=rsMembers.Fields.Item("years").Value%> <%end if%>