<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Spectre Association - Members <% 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 %>
Spectre Association header Spectre Association header Spectre Association header Spectre Association header
Spectre Association header Spectre Association header
Spectre Association header Spectre Association header
Spotlight Reunion Picnic Home
Horizontal line
President's
Message
Board of
Directors
Members
Horizontal line
Gunship
History
Aircraft
Listings
In
Memory
Aircraft
& Crews
Library
Links
Contact Us
Members
Blue navigation bar
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:    
 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%>