Count Lines in Pages
Contents of Page: SponsorList.asp
Number of Lines: 94
Last Modified: 8/22/2018 1:33:19 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 
0008: Session("ReturnPage") = "senhaslist.asp"
0009: 
0010: 	Set rs = Server.CreateObject("ADODB.Recordset")
0011: 	sqlString = "SELECT * FROM mmSponsors ORDER BY SponsorAmount DESC, Name"
0012: 							
0013: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0014: 		
0015: 	
0016: 
0017: %>
0018: 
0019: <html>
0020: 
0021: <head>
0022: 	<meta http-equiv="Content-Language" content="en-us">
0023: 	<title>Minhas Senhas</title>
0024: 	<link href="mm.css" rel="stylesheet" type="text/css">
0025: 
0026: </head>
0027: 
0028: 
0029: <% If Title <> "" Then %>
0030: <b><center><font face="Arial" class="bigblue"><%= Title %></font></center></b>
0031: <% End If %>
0032: <table cellspacing="1" border="0" cellpadding="0" width="850" height="53">
0033:  
0034: 
0035: <tr bgcolor="#FFFAF0"><Td class="normbold" colspan="2"><a href="SponsorEdit.Asp?SponsorID=0">Add New</a><br></td></tr>
0036: <tr bgcolor="#FFFAF0">
0037: <td class="normbold" size="25%">Name</td>
0038: <td class="normbold" size="25%">Site URL</td>
0039: <td class="normbold" size="25%">Image URL</td>
0040: <td class="normbold" size="15%">Sponsor<br>Amount</td>
0041: <td class="normbold" size="35%">Notes</td>	
0042: <td class="normbold" size="35%">Season</td>
0043: </tr>
0044: <%
0045: 
0046: Count = 0
0047: 
0048: bgcolor="#D8D8D8"
0049:  
0050: Do Until rs.EOF	
0051: 
0052: If bgcolor="#D8D8D8" Then
0053: bgcolor="#ffffff"
0054: Else
0055: bgcolor="#D8D8D8"
0056: End If
0057: 
0058: 
0059:      ID = rs("ID").Value
0060:       Name = rs("Name").Value
0061:       SiteURL = rs("SiteURL").Value
0062:       ImageURL = rs("ImageURL").Value
0063:       SponsorAmount = rs("SponsorAmount").Value
0064:       Notes = rs("Notes").Value
0065:       Season = rs("Season").Value
0066:  
0067: 	%>
0068: 	<tr bgcolor="<%= bgcolor %>">
0069: 	    <td class="normbold" align="left" height="22"><a href="SponsorEdit.Asp?SponsorID=<%= ID %>"><%= rs("Name").Value %></a></td>
0070: 	    <td class="norm" align="left"><%= SiteURL %></td>
0071: 	    <td class="norm" align="left"><%= ImageURL %></td>
0072: 	    <td class="norm" align="left"><%= SponsorAmount %></td>
0073: 	    <td class="norm" align="left"><%= Notes %></td>
0074: 	    <td class="norm" align="left"><%= Season %></td>
0075: 
0076: </tr>
0077: 
0078: <%	  
0079:       rs.MoveNext
0080: 		Loop
0081: 
0082: 		rs.Close
0083: 		Set rs = Nothing	%>
0084: </table>
0085: </html>
0086: 
0087: 
0088: 
0089: 
0090: 
0091: 
0092: 
0093: 
0094: