USMRA Logo

US Mountain Ranger Association

Promoting fellowship & brotherhood among US Army Rangers
<% Dim Connect, Roster, ID Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & Server.MapPath("\database/UnitRoster.mdb") & ";" ID = Trim(Request("ID")) If ID = "" Then Response.Write "No Item Number was sent." Else Set Roster = Connect.Execute("SELECT * FROM UnitRoster WHERE ID=" & ID) %> <% End If %>
<% =Roster("LastName") %>, <% =Roster("FirstName") %> Email: <% =Roster("Email") %>
Ranger Class: <% =Roster("ClassNo") %> Units: <% =Roster("Units") %>
Back
Community Partners