<% Option Explicit %> US Mountain Ranger Association
[ New Members | Fallen Rangers | Last Name Search | Search by Class | Search by State | Entire Roster | Join the USMRA ]
<% Dim Connect, Gbook Set Connect = Server.CreateObject("ADODB.Connection") 'Connect.Open "Data Source=//nawinfs04/home/users/web/b2825/rh.bwilliam/database/UnitRoster.mdb;Provider=Microsoft.Ace.OLEDB.12.0;" Connect.Open = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & Server.MapPath("\database/UnitRoster.mdb") & ";" Set Gbook = Connect.Execute("SELECT * FROM UnitRoster ORDER BY LastName") %> <% Do While Not Gbook.EOF %> <% Gbook.MoveNext %> <% loop %>
<% If Gbook("email") = "" Then %> <% =Gbook("LastName") %>, <% =Gbook("FirstName") %> <% else %> ><% =Gbook("LastName") %>, <% =Gbook("FirstName") %> <% end If %> <% =Gbook("Units") %>
 
 

Send Questions & Comments
© US Mountain Ranger Association 2008
46 Jones Road, Blairsville, GA 30512

U.S. Mountain Ranger Association, Inc. is an equal opportunity source of assistance.
USMRA does not discriminate based on race, color, nationality, religion, gender or sexual orientation.