Count Lines in Pages
Contents of Page: add1pick.asp
Number of Lines: 65
Last Modified: 8/22/2018 1:32:31 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: 
0007: <%
0008: '	Response.Redirect("login.asp?from=picks.asp")
0009:         ' obtain the entry information
0010:         NumberToAdd = Trim(Request.QueryString("NumberToAdd"))
0011: 				emailaddress = Request.Cookies("user")
0012:         'emailaddress = "joe@lusogolf.org"
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: '	Response.Redirect("http://www.lusogolf.org/shotlink_feedback_thankyou.htm")
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;
0054:         <p><font size="4"><i>   You now have 
0055: <%= newEntries %>  total picks/selections.</i></font></p>
0056:         <p>&nbsp;</td>
0057:     </tr>
0058:     <tr>
0059:       <td width="358" align="center"><a href="picks.asp">Click here to make your
0060:         pick/selections.</a></td>
0061:     </tr>
0062:   </table>
0063:   </center>
0064: </div>
0065: </html>