/secure/admin/ManageEventVisitorStatuses.asp

https://github.com/barrynovak5/SWOGC · ASP · 151 lines · 112 code · 33 blank · 6 comment · 1 complexity · d09b54adde6174197847b0323b494e05 MD5 · raw file

  1. <!--#include file=adovbs.inc -->
  2. <!--#include file=DonationStatusDropdown.asp -->
  3. <%
  4. donationEventId = Request.Querystring("ID")
  5. donationEventName = Request.Querystring("Name")
  6. Set objConn = Server.CreateObject("ADODB.Connection")
  7. Set objCmd = Server.CreateObject("ADODB.Command")
  8. sub UpdateDonationStatus (donationId, statusId)
  9. objConn.Open "FourC"
  10. Set objCmd.ActiveConnection = objConn
  11. objCmd.CommandText = "UPDATE Donations Set DonationStatusID = ? WHERE Donations.DonationID = ?"
  12. objCmd.CommandType = adCmdText
  13. 'Create the parameter and populate it.
  14. Set objParam = objCmd.CreateParameter("@DonationStatusId" , adInteger, adParamInput, 0, 0)
  15. objCmd.Parameters.Append objParam
  16. objCmd.Parameters("@DonationStatusId") = CInt(statusId)
  17. Set objParam = objCmd.CreateParameter("@DonationId" , adInteger, adParamInput, 0, 0)
  18. objCmd.Parameters.Append objParam
  19. objCmd.Parameters("@DonationId") = CInt(donationId)
  20. objCmd.Execute
  21. objConn.Close
  22. end sub
  23. if (Request.Form("PostAction") = "U") then
  24. Call UpdateDonationStatus(Request.Form("DonationID"), Request.Form("DonationStatusID"))
  25. end if
  26. Set objRS = Server.CreateObject("ADODB.Recordset")
  27. objConn.Open "FourC"
  28. objRS.CursorType = adOpenForwardOnly
  29. objRS.LockType = adLockOptimistic
  30. Set objCmd.ActiveConnection = objConn
  31. 'If a SQL statement with question marks is specified, then the
  32. 'CommandType is adCmdText. If a query name is specified, then
  33. 'the CommandType is adCmdStoredProc.
  34. Dim fieldList
  35. fieldList = "DonationID, DonorFirstName, DonorLastName, DonorCompany, DonationStatusID"
  36. objCmd.CommandText = "SELECT " & fieldList & " FROM Donations WHERE Donations.AddToNewsletter = True AND Donations.EventID = ?"
  37. objCmd.CommandType = adCmdText
  38. 'Create the parameter and populate it.
  39. Set objParam = objCmd.CreateParameter("@EVENTID" , adInteger, adParamInput, 0, 0)
  40. objCmd.Parameters.Append objParam
  41. objCmd.Parameters("@EVENTID") = donationEventId
  42. 'Open and display the Recordset.
  43. objRS.Open objCmd
  44. %>
  45. <html>
  46. <body>
  47. <head>
  48. <script type="text/javascript">
  49. function UpdateStatus(donationID)
  50. {
  51. var theForm = document.getElementById("ManageEventVisitorStatuses");
  52. var status = document.getElementById("DonationStatuses" + donationID);
  53. theForm.DonationID.value = donationID;
  54. theForm.DonationStatusID.value = status.value;
  55. theForm.submit();
  56. return true;
  57. }
  58. </script>
  59. </head>
  60. <h2><%= donationEventName %></h2>
  61. <table style="font-weight:bold" border=1 cellpadding=2 cellspacing=2>
  62. <tr>
  63. <td><b> ID </td>
  64. <td>
  65. First Name
  66. </td>
  67. <td>
  68. Last Name
  69. </td>
  70. <td>
  71. Company
  72. </td>
  73. <td>
  74. <b> Donation Status</b>
  75. </td>
  76. <td></td>
  77. </tr>
  78. <%
  79. //objRS.MoveFirst
  80. Do While Not objRS.EOF
  81. %>
  82. <tr>
  83. <td>
  84. <%=objRS("DonationID") %>
  85. </td>
  86. <td>
  87. <%=objRS("DonorFirstName") %> &nbsp;
  88. </td><td>
  89. <%=objRS("DonorLastName") %>&nbsp;
  90. </td><td>
  91. <%=objRS("DonorCompany") %>&nbsp;
  92. </td>
  93. <td>
  94. &nbsp;<%=Replace(StatusDropDownText, "DonationStatusDropDown", "DonationStatuses" & objRS("DonationID"))%>
  95. </td>
  96. <td>
  97. <input type="button" value="Update Status" onclick="return UpdateStatus(<%=objRS("DonationID")%>)" />
  98. </td>
  99. </tr>
  100. <%
  101. objRS.MoveNext
  102. Loop
  103. %>
  104. </table>
  105. <form method="post" name="ManageEventVisitorStatuses" id="ManageEventVisitorStatuses" action="ManageEventVisitorStatuses.asp?ID<%=donationEventId%>&Name=<%=donationEventName%>">
  106. <input value="U" type="hidden" name="PostAction"/>
  107. <input value="" name="DonationID" type="hidden" />
  108. <input value="" name="DonationStatusID" type="hidden" />
  109. </form>
  110. <%
  111. objRS.Close
  112. objConn.Close
  113. Set objRS = Nothing
  114. Set objCmd = Nothing
  115. Set objConn = Nothing
  116. %>
  117. </body>
  118. </html>