<%@ LANGUAGE="VBScript" %> <% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : FGS Member Search ' Date : 3.5.2001 ' Author : Rod Crane ' Description : Selects Member Data ' Notes : ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> <% Dim SelState, SearchString Dim DSN_Name DSN_Name = Session("DSN_Name") set Connection = Server.CreateObject("ADODB.Connection") Connection.Open DSN_Name %> Member Search

Member Search
Home Up

 

 

FGS Member Search

 State:
Search String:
<%'***** beginning coding for member reports ************************%> <% 'Report 1 is the Member Search Report. If Request("Report") = "1" Then SelState = Request("SelState") SearchString = Request("SearchString") & "%" IF SearchString<>"%" THEN SearchString="%" & SearchString END IF IF SelState="ALL" THEN SQLStmt = "Select state,organization FROM MEMBERS WHERE" SQLStmt = SQLStmt & " organization LIKE '" & SearchString & "'" ELSE SQLStmt = "SELECT state,organization FROM MEMBERS WHERE state='" & SelState & "'" SQLStmt = SQLStmt & " AND organization LIKE '" & SearchString & "'" END IF SQLStmt = SQLStmt & " AND organization LIKE '" & SearchString & "'" SQLStmt = SQLStmt & " ORDER BY organization" Set RSSumDate = Connection.Execute(SQLStmt) %>  
<% If RSSumDate.EOF Then %> <% Else %> <% Do While NOT RSSumDate.EOF %> <% RSSumDate.MoveNext Loop %> <% End If %>
There were no organizations reported.
State Organization
<%= RSSumDate("state") %> <%= RSSumDate("organization") %>
<% End If %>

Click here to go to FGS/Ancestry's Society Hall to locate a society near you, and to find more detailed contact information. 

 

Send mail to the FGS Office
 Send mail to fgs-webmaster@fgs.org with questions or comments about this Web site. 
Last modified: March 23, 2004
Copyright ©2005 Federation of Genealogical Societies . Permission is granted for genealogical societies to make copies for non-commercial use within the society. All other rights reserved.