Count Lines in Pages

Contents of Page: addpicks.asp Number of Lines: 67 Last Modified: 8/22/2018 1:32:32 PM 
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/homeURL.inc" -->
0005: <!-- #include FILE="include/constants.inc" -->
0006: <!-- #include FILE="include/funcs.asp" -->
0007: 
0008: <%
0009: 
0010:         ' obtain the entry information
0011:         NumberToAdd = Trim(Request.QueryString("NumberToAdd"))
0012: 	   emailaddress = Trim(Request.QueryString("User"))
0013: '		Set rs = Server.CreateObject("ADODB.Recordset")
0014: '	sqlString = "SELECT * FROM mmEntries " & _
0015: '							"WHERE EmailAddress = '" & emailaddress & "' " & _
0016: '							"AND Season = " & season
0017: '	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0018: '       if rs.EOF then
0019: '       Response.Write("Not in mmEntry table")
0020: '        else
0021: '	numEntries = CInt(rs("NumEntries").Value)
0022: '	newEntries = numEntries + NumberToAdd
0023: '        newEntries = numEntries + 1
0024: '	set my_conn = Server.CreateObject("ADODB.Connection")
0025: '	my_conn.Open (conn) 
0026: '	
0027: '	strSql = "UPDATE mmEntries SET numEntries = " & newEntries & _
0028: '           " WHERE EmailAddress = '" & emailaddress & "' " & _
0029: '					 "AND Season = " & season
0030: '        	
0031: '	Response.Write StrSql
0032: 	
0033: '	my_conn.Execute (StrSql)
0034: '	my_conn.Close
0035: '	set my_conn = nothing
0036: '        End If
0037: '	rs.Close
0038: 		
0039: '	Set rs = Nothing
0040: 	
0041: 
0042: '	
0043: %>
0044: <html>
0045: <div align="center">
0046:   <center>
0047:   <table border="0" width="366">
0048:     <tr>
0049:       <td width="358" align="center"><font size="6" color="#FF0000"><i>
0050: Thank you!</i></font></td>
0051:     </tr>
0052:     <tr>
0053:       <td width="358" align="center">&nbsp; User: <%= emailaddress %>
0054:         <p><font size="4"><i>   You have paid for
0055: <%= NumberToAdd %> picks/selections.</i></font></p>
0056:         <p>Please proceed to &quot;Make / Review Picks&quot;<br>
0057:       </td>
0058:     </tr>
0059:     <tr>
0060:       <td width="358" align="center"><p align="center"><strong>Just click below to close this window and return.</strong></p>
0061:     <p align="center"><input class="ppbuttonsmall" onclick="window.close();return(false);"
0062:     type="button" value="Close Window"></td>
0063:     </tr>
0064:   </table>
0065:   </center>
0066: </div>
0067: </html>