<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Dim MemberInfo__MMColParam MemberInfo__MMColParam = "Active" If (Request("MM_EmptyValue") <> "") Then MemberInfo__MMColParam = Request("MM_EmptyValue") End If %> <% Dim MemberInfo Dim MemberInfo_numRows Set MemberInfo = Server.CreateObject("ADODB.Recordset") MemberInfo.ActiveConnection = MM_PBBMember_STRING MemberInfo.Source = "SELECT FirstName, LastName, Address, City, State, Zip, HomePhone, WorkPhone, CellPage, Email, Instrument, Occupation FROM RosterNew WHERE Status = '" + Replace(MemberInfo__MMColParam, "'", "''") + "' ORDER BY LastName ASC" MemberInfo.CursorType = 0 MemberInfo.CursorLocation = 2 MemberInfo.LockType = 1 MemberInfo.Open() MemberInfo_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 MemberInfo_numRows = MemberInfo_numRows + Repeat1__numRows %> PBB Members' Area - Member Info
 
Members' Area >> Member Information

Member Information

<% While ((Repeat1__numRows <> 0) AND (NOT MemberInfo.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 MemberInfo.MoveNext() Wend %>
Name Inst. Occupation Address Phone Email
<%=(MemberInfo.Fields.Item("FirstName").Value)%> <%=(MemberInfo.Fields.Item("LastName").Value)%> <%=(MemberInfo.Fields.Item("Instrument").Value)%>  <%=(MemberInfo.Fields.Item("Occupation").Value)%>  <%=(MemberInfo.Fields.Item("Address").Value)%>
<%=(MemberInfo.Fields.Item("City").Value)%> <%=(MemberInfo.Fields.Item("State").Value)%> <%=(MemberInfo.Fields.Item("Zip").Value)%>		 Home: <%=(MemberInfo.Fields.Item("HomePhone").Value)%>
Work: <%=(MemberInfo.Fields.Item("WorkPhone").Value)%>
Cell/Page: <%=(MemberInfo.Fields.Item("CellPage").Value)%>		 "><%=(MemberInfo.Fields.Item("Email").Value)%> 

 

<% MemberInfo.Close() Set MemberInfo = Nothing %>