Count Lines in Pages
Contents of Page: roster.asp
Number of Lines: 360
Last Modified: 3/13/2026 4:09:01 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/getconfig.inc" -->
0006: <!-- #include FILE="include/funcs.asp" -->
0007: <!-- #include FILE="include/ReturnPageSet.inc" -->
0008: <!-- #include FILE="include/UpdatePageHistory.asp" -->
0009: <%
0010: 	RosterType = Request.QueryString("RosterType")
0011: 	SortBy = Request.QueryString("SortBy")
0012: 	MyMemberNo = Request.Cookies("MemberNo")
0013: 	If RosterType = "" Then
0014: 	RosterType = "GOLF"
0015: 	End If
0016: 	SelRosterType = RosterType
0017: 
0018: 
0019: 	If RosterType = "CURRENT" Then
0020: 	ShowCurrent = "Y"
0021: 	End If
0022: 	If RosterType = "NOTCURRENT" Then
0023: 	ShowNotCurrent = "Y"
0024: 	End If
0025: 	
0026: 	If RosterType = "NOTCURRENT" Or RosterType = "CURRENT" Or RosterType = "SCGA" Then
0027: 	RosterType = "GOLF"
0028: 	End If
0029: '	If RosterType = "GOLFF" Then
0030: '	RosterType = "GOLF"
0031: '	End If
0032: 
0033: 
0034: 		Set rsc = Server.CreateObject("ADODB.Recordset")
0035: 	sqlcString = "SELECT * FROM Folga_Config " & _
0036: 			"WHERE ConfigElement = 'CURRMEMBERSHIPYEAR' "
0037: 
0038: '	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0039:     rsc.Open sqlcString, conn, adOpenStatic, adLockReadOnly, adCmdText
0040: 	
0041: CurrentYear = rsc("Value").Value 
0042:  
0043: Session("LandingPagex") = "Roster.asp?RosterType=" & RosterType & "&SortBy=" & SortBy 
0044: 
0045: 			rsc.Close
0046: 		Set rsc = Nothing	
0047: 		
0048: 	Set rs = Server.CreateObject("ADODB.Recordset")
0049: 	
0050:     SortSeq = "LastName, FirstName "	
0051: 	If SortBy = "MemberNo" Then
0052:        SortSeq = "MemberNumber DESC"
0053:     End If	
0054: 	If SortBy = "FirstName" Then
0055:        SortSeq = "FirstName "
0056:     End If
0057: 	If SortBy = "LastName" Then
0058:        SortSeq = "LastName "
0059:     End If
0060: 	If SortBy = "CurrIndex" Then
0061:        SortSeq = "CurrIndex"
0062:     End If
0063: 	If SortBy = "SCGAExpireDate" Then
0064:        SortSeq = "SCGAExpireDate DESC"
0065:     End If
0066: 
0067: If SelRosterType = "SCGA" Then
0068: TypeSel = RosterType
0069: Else
0070: TypeSel = RosterType & "%"
0071: End If
0072: 
0073: 
0074: 
0075:     If AllowMaint = True Then 		
0076: 	
0077: 	  If RosterType = "ALL" Then
0078: 
0079: 	      sqlString = "SELECT * FROM Folga_Master "	
0080: 												
0081:       Else
0082:     	  sqlString = "SELECT * FROM Folga_Master "	& _
0083:     	                    "WHERE Type LIKE '" & TypeSel & "' " 	
0084:       End If
0085:       If ShowNotCurrent = "Y" Then
0086:           sqlString = sqlString & " AND ExpireDate <> "  & CurrentYear	& " "	
0087:       End If
0088:       If ShowCurrent = "Y" Then
0089:           sqlString = sqlString & " AND ExpireDate = "  & CurrentYear	& " "	
0090:       End If	  
0091: 	Else 					
0092: 		sqlString = "SELECT * FROM Folga_Master "	& _
0093: 						 	 "WHERE Type LIKE '" & TypeSel & "' " 	
0094:     End If 	
0095:     
0096:     sqlString = sqlString & "ORDER BY " & SortSeq	
0097: '     Response.Write(sqlString)						
0098: 
0099: rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0100: %>
0101: 
0102: <html>
0103: 
0104: <head>
0105: 	<title>FOLGA Golf Club - Member Roster</title>
0106: 	<link href="mm.css" rel="stylesheet" type="text/css">
0107: 	<script language="JavaScript" type="text/javascript">
0108: 		function deleteNode(id)	{
0109: 			if (!confirm("Are you sure you want to delete this member?"))	{
0110: 				return;
0111: 			}
0112: 			window.location = "memberdelete.asp?id="+id+"&RosterType=<%= RosterType %>";
0113: 		}
0114: 	</script>
0115: <script language="JavaScript">
0116: 		function CreditDetails(MemberNo)
0117: 		{
0118: 			x = 720;
0119: 			y = 720;
0120: 			var xpos = (screen.width - x)/2;
0121: 			var ypos = (screen.height - y)/2;
0122: 			var updateasp = "CreditDetails.asp?MemberID="+MemberNo;
0123: 			var w;
0124: 			w = window.open(updateasp,'update','width='+x+',height='+y+',top='+10+',left='+10);
0125: 		}	
0126: 	</script>
0127: </head>
0128: 
0129: <body bgcolor="#ffffff">
0130: 				<% If AllowMaint = True Then %>	
0131: <table cellspacing="1" border="0" cellpadding="0" width="900" align="left" height="53">
0132: <% Else %>
0133: <table cellspacing="1" border="0" cellpadding="0" width="420" align="left" height="53">
0134: <% End If %>
0135:   		<tr><td colspan="13" class="norm"><b>FOLGA Members<% If AllowMaint = True Then %> - <%= RosterType %> ( <a href="roster.asp?RosterType=GOLF">G</a> | <a href="roster_non_golfer.asp?RosterType=EMAIL">E</a> 
0136: 		| <a href="roster_non_golfer.asp?RosterType=SOCIAL">S</a>
0137: 		| <a href="roster_non_golfer.asp?RosterType=ALL">A</a> 
0138:         | <a href="roster.asp?RosterType=NOTCURRENT">NOT Current</a>
0139:         | <a href="roster.asp?RosterType=CURRENT">ONLY Current</a>
0140:         | <a href="roster.asp?RosterType=SCGA">SCGA Only</a>
0141:         | <a href="roster.asp?RosterType=GOLFF">FOLGA Only</a>
0142: 		| <a href="GetEMailsOfNotCurrent.asp">Emails of NOT Current</a> )
0143: 		<% End If %>
0144: 		</b></td></tr>
0145:   </tr>
0146:   <tr><td class="norm" colspan="20">Click on Last Name to see member results in past outings
0147:   	<% If MyMemberNo <> "" Then %><font color="red">
0148: 	<br>(Click on player's <u><b>first name</b></u> to view their picture and profile)</font> 
0149: 	<% End If %>
0150:   </td></tr>
0151: 
0152: 	<tr bgcolor="#577fbe"><font face="Arial" size="2">
0153: 		<% If MyMemberNo <> "" Then %>
0154: 		<% If RosterType = "GOLF" or RosterType = "ALL" or RosterType = "GOLFF" Then %>		
0155: 		<td class="norm" align="Center" height="25"><a href="roster.asp?RosterType=<%= RosterType %>&SortBy=MemberNo">#</a></td>
0156: 	        <% End If %>	
0157: 	        <% End If %>	
0158: 		<td width="80" class="norm" align="Left" height="25"><a href="roster.asp?RosterType=<%= RosterType %>&SortBy=LastName">Last Name</a></td>
0159: 		<td width="85"class="norm" align="Left" height="25"><a href="roster.asp?RosterType=<%= RosterType %>&SortBy=FirstName">First Name</a></td>
0160: 
0161: 		<td width="120" class="norm" align="Left" height="25">City, St</td>
0162: 	<td width="80"class="norm" align="Left" height="25">Birth<br>Month</td>			
0163: 	<% If MyMemberNo <> "" Then %>	
0164: 		<td width="80"class="norm" align="Left" height="25">Cell#</td>	
0165: 	<% End If %>
0166: 		
0167: 		<td width="20" class="normbold" align="Left" height="25">GHIN<br>Index</td>
0168: 	<% If AllowMaint = True Then %>	
0169: 		<td width="20" class="normbold" align="Left" height="25">FOLGA<br>Index</td>
0170: 		<td width="60"class="norm" align="right" height="25">GHIN#</td>	
0171: 		<td width="20" class="norm" align="Left" height="25">Credits</td>
0172: 		<td width="30"class="norm" align="Left" height="25">PAG</td>	
0173: 		<td width="130"class="norm" align="Left" height="25">Email Address</td>	
0174: 	    <% End If %>	
0175: <%	
0176: 
0177: CheckDate = Date()+60.
0178: 
0179: FlagColor = 0
0180: 
0181: TotalCount = 0
0182: 
0183: 		Do Until rs.EOF
0184: If FlagColor = 0 Then
0185: FlagColor = 1
0186: bgcolor = "#e8e8e8"
0187: Else
0188: FlagColor = 0
0189: bgcolor = "#DDDDDD"
0190: End If
0191: 	ID = rs("ID").Value
0192: 	 FirstName = rs("FirstName").Value
0193: 	 LastName = rs("LastName").Value
0194:      MemberNo = rs("MemberNo").Value	
0195:      PreAssignedGroup = rs("PreAssignedGroup").Value	
0196: 	HomePhone = rs("HomePhone").Value
0197: 	CellPhone = rs("CellPhone").Value
0198: 	BirthDay = rs("BirthDay").Value
0199: 	BirthMonth = rs("BirthMonth").Value
0200:     City = rs("City").Value
0201:     State = rs("State").Value
0202:     Zip = rs("Zip").Value
0203:       Address = rs("Address").Value
0204: 	SCGAExpireDate = rs("SCGAExpireDate").Value
0205: 
0206: 	  Address1 = Address & ",+" & City & ",+" & Zip & "/"
0207:       GoogleMaps = "https://www.google.com/maps/place/" & address1
0208: 
0209: 
0210: 	If CellPhone <> "" Then
0211: 		PhoneNumber = CellPhone
0212: 	Else
0213: 		PhoneNumber = HomePhone
0214: 	End If
0215: '     Credits = rs("Credits").Value
0216:  '    If Credits = 0 Then Credits = ""
0217: TotalCount = TotalCount + 1	 
0218: 	If IsNull(MemberNo) Then
0219: 		MemberNo = ID
0220: 	End If
0221: 	FirstName = Replace(FirstName,"'","")
0222: 	LastName = Replace(LastName,"'","")
0223: 
0224: 
0225: 
0226: 	YearAgo = Date() - 365
0227: 	YearAgo = CDate(YearAgo)
0228: 
0229: 	FirstName = Replace(FirstName,"'","")
0230: 	LastName = Replace(LastName,"'","")
0231: 
0232: 
0233: 'Set rsb = Server.CreateObject("ADODB.Recordset")
0234: '	sqlString = "SELECT * FROM Folga_Buddy "	& _
0235: '							"WHERE MemberNo = '" & MemberNo & "' " & _
0236: '							"ORDER BY LastName, FirstName "
0237: '
0238: '							
0239: '			
0240: '   Rsb.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	
0241: '   BuddyCount = Rsb.RecordCount
0242: '   rsb.Close
0243: '   set rsb = Nothing
0244: 
0245:    Credits = TotalCredit( MemberNo ) 
0246:    If Credits = "" Then
0247:       Credits = "-"
0248:    End If
0249: 
0250: '   TotalCredit = 0
0251: '   Set rsc = Server.CreateObject("ADODB.Recordset")
0252: '	sqlString = "SELECT * FROM Folga_Credits "	& _
0253: '							"WHERE MemberID = '" & MemberNo & "' " 
0254: '							
0255: '			
0256: '   Rsc.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	
0257: '
0258: '   Do Until rsc.EOF
0259: '   CreditAmount = rsc("CreditAmount").Value
0260: '   TotalCredit = TotalCredit + CreditAmount
0261: '   Rsc.MoveNext
0262: '   Loop
0263: '
0264: '   rsc.Close
0265: '   set rsc = Nothing
0266: MemberType = rs("Type").Value
0267: GHINNumber = rs("SCGANumber").Value
0268:  CurrentIndex = FormatNumber(rs("CurrIndex").Value,1)
0269: ' CurrentIndex = CurrIndex
0270: FolgaIndex = rs("FOLGAIndex").Value
0271: IndexColor = "#003300"
0272: If (CurrentIndex - FolgaIndex) > 1.5 And MyMemberNo = "1" Then
0273: IndexColor = "#ff0000"
0274: End IF
0275: If MyMemberNo = "1" Then
0276: 	FontColor = "black"
0277: 	If MemberType  = "GOLFF" Then
0278: 	FontColor = "green"
0279: 	GHINNumber = "<B>" & GHINNumber & "</b>"
0280: 	End If
0281: End If
0282: 
0283: If SCGAExpireDate < CheckDate And MemberNo <> "" Then
0284: SCGAExpireDate = "<B>" & SCGAExpireDate & "</b>"
0285: FontColor = "Red"
0286: Else
0287: FontColor = "Green"
0288: End If
0289: 
0290: 	%>
0291: 	<tr bgcolor="<%= bgcolor %>">
0292: 	
0293: 		<% If MyMemberNo <> "" Then %>
0294: 			<% If RosterType = "GOLF"  or RosterType = "GOLFF" or RosterType = "ALL" or RosterType = "EMAIL" Then %>	
0295: 				<% If MyMemberNo = 1 Or MyMemberNo = MemberNo Then %>	
0296: 			<td  class="norm" align="center" height="22">
0297: 			<a href="profileedit.asp?ID=<%= ID %>&RosterType=<%= RosterType %>"><b><%= MemberNo %></b></a></td>	
0298: 			<% Else %>
0299: 			<td  class="norm" align="right" height="22"><%= MemberNo %> </td>	
0300: 			<% End If %>
0301: 	<% End If %>
0302: 
0303: 	<% End If %>			
0304: 	    <td class="norm" align="left" height="22"><a href="memberresults.asp?FirstName=<%= FirstName %>&LastName=<%= LastName %>&MemberNo=<%= MemberNo %>"><%= LastName %></a></td>
0305: 	        
0306: 	<% If MyMemberNo <> "" And BirthMonth <> "" Then %>
0307: 		<td  class="norm" align="left" height="22"><a href="profiledisplay.asp?MemberNo=<%= MemberNo %>&Back=Y").Value %><%= FirstName %> </td>
0308: 	<%	Else %>
0309: 				<td  class="norm" align="left" height="22"><%= FirstName %></a> </td>
0310:     <% End If %>
0311: 	<% If MyMemberNo = "1" Then %>	
0312: 		<td  class="norm" align="left" height="22"><a href="<%= googlemaps %>" target="_blank"><%= City & ", " & State %></a></td>
0313: 		<%	Else %>
0314: 		<td  class="norm" align="left" height="22"><%= City & ", " & State %></td>
0315: 		    <% End If %>
0316: 	<td class="norm" align="Left" height="25"><%= BirthMonth %></td>				
0317: 	<% If MyMemberNo <> "" Then %>	
0318: 						<td  class="norm" align="left" height="22"><%= PhoneNumber %> </td>		
0319: 	<% End If %>
0320: 		
0321: 		<% If RosterType = "GOLF"  or RosterType = "GOLFF"  Then %>
0322: 				<td  class="normbold" align="right" height="22" ><font color="<%= indexcolor %>"><%= CurrentIndex %> </td>
0323: 
0324: 		<% End If %>
0325: 				
0326: 				<% If AllowMaint = True Then %>	
0327: 			<% If RosterType = "ALL" Then %>	
0328: 					<td  class="norm" align="left" height="22"><%= rs("Type").Value %> </td>
0329: 						<% End If %>	
0330: 				<td  class="normbold" align="right" height="22"><%= FolgaIndex  %> </td>
0331: 				<td  class="norm" align="right" height="22"><Font color="<%= FontColor %>"><%= GHINNumber %></font> </td>	 
0332: 				<td  class="norm" align="Center" height="22"><font color="#008040"><b><a href="javascript:CreditDetails('<%= MemberNo %>')"><%= Credits  %></a></b></font></td>	
0333: 						
0334: 						<td  class="norm" align="center" height="22"><%= PreAssignedGroup %> </td>										
0335: 				<td  class="norm" align="left" height="22"><%= rs("EmailAddress").Value %> </td>	
0336: 	    <td class="norm" align="center" height="22"><a href="javascript:deleteNode('<%= rs("ID").Value %>')">Del</a> </td> 		
0337:  <% End If %>
0338: 
0339: 	</tr>
0340: 
0341: <%	   
0342:       rs.MoveNext
0343: 		Loop
0344: %>
0345: <tr><td colspan="5" align="right" class="norm">Total: <b><%= TotalCount %></b></td></tr>
0346: <%		rs.Close
0347: 		Set rs = Nothing	%>
0348: </table>
0349: </body>
0350: </html>
0351: 
0352: 
0353: 
0354: 
0355: 
0356: 
0357: 
0358: 
0359: 
0360: