Count Lines in Pages
Contents of Page: my4whoisregtest.asp
Number of Lines: 136
Last Modified: 8/22/2018 1:33:00 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: 
0006: 	MyEmail = Request.Cookies("SquarePoolsEmail")
0007: 
0008: 	SortBy = Trim(Request.QueryString("SortBy"))
0009: 	Letter = Trim(Request.QueryString("Letter"))
0010: 	Order = " ASC"
0011: 	If SortBy = "" Then
0012: 	   SortBy = "LastName ASC, FirstName "
0013: 
0014: 	End If
0015: 	If Sortby = "RegNumber" Then
0016: 	   Order = " DESC"
0017: 	End If
0018: 	If Letter <> "" Then
0019: 	   Selection ="WHERE LastName LIKE '" & Letter & "%'"
0020: 	Else
0021: 	   Selection = ""
0022: 	End If
0023: 
0024: 	KCount = 0
0025: 	
0026: 	Set rs = Server.CreateObject("ADODB.Recordset")
0027: 
0028:     	sqlString = "SELECT * FROM MY4_Master "	& _				
0029:     	                      Selection & _
0030: 							" ORDER BY " & SortBy & Order									
0031: 							
0032: 	   rs.Open sqlString, conn2, adOpenStatic, adLockReadOnly, adCmdText
0033: 	   
0034: KCount = rs.RecordCount	   
0035: 
0036: Letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"	
0037: 
0038: X = 0
0039: Links = ""
0040: Do Until X = 26
0041: X = X  + 1
0042: Letter = Mid(Letters,X,1)
0043: Links = Links & "| <a href=""my4whoisreg.asp?Letter=" & Letter & """>" & Letter & "</a>"
0044: Loop
0045: Links = Links &  "| <a href=""my4whoisreg.asp"">All</a>" 
0046: 	   
0047: 
0048: %>
0049: <html>
0050: 
0051: <head>
0052: <link href="mm.css" rel="stylesheet" type="text/css">
0053: <title>Pick A Square - Squares Select by Individual</title>
0054: <script language="JavaScript" type="text/javascript">
0055: 		function deleteNode(id)	{
0056: 			if (!confirm("Are you sure you want to delete this entry?"))	{
0057: 				return;
0058: 			}
0059: 			window.location = "my4regdelete.asp?id="+id;
0060: 		}
0061: 	</script>
0062: </head>
0063: Total Count: <%= KCount %><br>
0064: <body bgcolor="#ffffff">
0065:  <% If MyEmail = "jt@folga.org" Then %> 
0066: <table cellspacing="1" border="0" cellpadding="0" width="100%" align="left" height="53">
0067: <% Else %>
0068: <table cellspacing="1" border="0" cellpadding="0" width="500" align="left" height="53">
0069: <% End If %>  
0070: <tr><td colspan="6"><%= Links %></td></tr><tr></tr>
0071:  <td class="normbold" align="Left" height="19" width="180"><A href="MY4WhoisReg.asp">Name</a></td>
0072:     <td class="normbold" align="Left" height="19" width="160"><A href="MY4WhoisReg.asp?SortBy=City">City, St</a></td> 
0073:         <td class="normbold" align="Left" height="19" width="40"><A href="MY4WhoisReg.asp?SortBy=RegNumber">Acct#</a></td>
0074:          <td class="normbold" aligh="center" width ="40">Picks</td>
0075:          <td class="normbold" align="Left" height="19" width="130"><A href="MY4WhoisReg.asp?SortBy=EmailAddress">Email</a></td> 
0076:        
0077: 
0078:       
0079: 
0080:  
0081: <%	bgcolor = "#ffffff"
0082: 
0083: TotReg = 0
0084: TotConfirmed = 0
0085: 		Do Until rs.EOF 
0086: 		  regid = rs("ID").Value
0087:      Email = rs("EmailAddress").Value
0088:      RegNumber = rs("RegNumber").Value
0089:       LastName = rs("LastName").Value
0090:       FirstName = rs("FirstName").Value
0091: 
0092: 				 
0093: 		
0094: %>
0095:   <tr>
0096:      
0097:     <td  class="norm" align="left" height="13"><a  href="SQEditProfile.asp?ID=<%= regid %>"><%= FirstName & " " & LastName %></a></td>
0098:  
0099:      <td class="norm" align="left" height="13"><%= rs("City").Value & ", " & rs("State").Value %></td>
0100:     
0101: <% If MyEmail = "jt@folga.org" Then %> 
0102: 
0103: <% 
0104: 				Set rsPicks = Server.CreateObject("ADODB.Recordset")
0105: 		sqlString = "SELECT * FROM SQ_Picks " & _
0106: 								"WHERE RegNumber = '" & RegNumber & "' "
0107: 
0108: 		rsPicks.Open sqlString, conn2, adOpenStatic, adLockReadOnly, adCmdText
0109: 		
0110: 		
0111: 	
0112: 		totPicksMade = rsPicks.RecordCount
0113: 
0114: rsPicks.Close
0115: 					Set rsPicks = Nothing  
0116: %>					
0117: 
0118:    <td  class="norm" align="left" height="13"><a href="SQUnPaidSquares.asp?RegNo=<%= RegNumber %>&All=Y&From=My4WhoisReg.asp"><%= RegNumber %></a></td>  
0119:   <td  class="normbold" align="center" height="13"><%= totPicksMade %></td>
0120:   <td  class="norm" align="left" height="13"><%= Email %></td>  
0121:       <td class="norm"><a  href="javascript:deleteNode('<%= regid %>')">Del</a></td>
0122:     
0123: <% End If %>  
0124: 
0125: 
0126:   </tr>
0127: <%	   
0128:       rs.MoveNext
0129: 		Loop
0130: 
0131: 		rs.Close
0132: 		Set rs = Nothing	%>
0133: 
0134: </table>
0135: </body>
0136: </html>