Count Lines in Pages
Contents of Page: PropEventsList.asp
Number of Lines: 88
Last Modified: 8/22/2018 1:33:10 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!--#include file="include/constants.inc"-->
0004: <!--#include FILE="include/adovbs.inc" -->
0005: 
0006: <%
0007: 
0008: 
0009: 	Set rs = Server.CreateObject("ADODB.Recordset")
0010: '	rs.Open "Folga_Events", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0011: 
0012: 	sqlString = "SELECT * FROM PropEvents " & _
0013: 			"ORDER BY ID"
0014: 
0015: '	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0016: rs.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0017: 
0018: 
0019: 		
0020: %>
0021: 
0022: <html>
0023: <head>
0024: <title>Admin - View Tables</title>
0025: 	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0026: 	<link href="mm.css" rel="stylesheet" type="text/css">
0027: 	<script language="JavaScript" type="text/javascript">
0028: 		function deleteNode(id)	{
0029: 			if (!confirm("Are you sure you want to delete this Event?"))	{
0030: 				return;
0031: 			}
0032: 			window.location = "SQEventDelete.asp?EventID="+id;
0033: 		}
0034: 
0035: 	</script>
0036: </head>
0037: 
0038: <body bgcolor="#ffffff">
0039: 
0040: 
0041: 					<table border="0" cellpadding="2" cellspacing=2" width="500">
0042: 					<tr><td colspan="8" class="norm"><a href="PropEventEdit.asp">Create New Event</a></td></tr>
0043: 						<tr bgcolor="#C46488">
0044: 							<td class="norm" align="center" width="10%" height="20">
0045: 								ID</td>					
0046: 							<td class="norm" align="left" width="40%">
0047: 								Event Description</td>
0048: 							<td class="norm" align="center" width="20%">							
0049: 								First Name</td>
0050: 							<td class="norm" align="center" width="20%">							
0051: 								Second Name</td>	
0052: 							<td class="norm" align="center" width="10%">							
0053: 								Stop<br>Making<br>Picks</td>								
0054: 															
0055: 						</tr>
0056: 						
0057: 			<% 	bgcolor = "#ffeeee"
0058: 					Do Until rs.EOF
0059: 						If bgcolor = "#ffeeee" Then
0060: 							bgcolor = "#ffffff"
0061: 						Else
0062: 								bgcolor = "#ffeeee"
0063: 						End If	%>
0064: 						<tr bgcolor="<%= bgcolor %>">
0065: 							<td class="norm" align="center">
0066: 								<a href="PropEventEdit.asp?PropEventID=<%= rs("ID").Value %>" class="smallblueUndl"><%= rs("ID").Value %></a></td>
0067: 			
0068: 						<td class="norm" align="left"><a href="propresultsmaint.asp?EventID=<%= rs("ID").Value %>"><%= rs("EventDescription").Value %></a></td>
0069: 						<td class="norm" align="left"><%= rs("FirstName").Value %></td>
0070: 						<td class="norm" align="left"><%= rs("SecondName").Value %></td>
0071: 						<td class="norm" align="center"><%= rs("StopMakingPicks").Value %></td>
0072: 
0073: 
0074: 							
0075: 																								
0076: 						</tr>
0077: 			<%		rs.MoveNext
0078: 					Loop
0079: 					rs.Close
0080: 					Set rs = Nothing	%>
0081: 				
0082: 					</table>
0083: 				</td>
0084: 			</tr>
0085: 		</table>
0086: 
0087: </body>
0088: </html>