PageRenderTime 29ms CodeModel.GetById 0ms RepoModel.GetById 0ms app.codeStats 0ms

/members_only/applicationsOLD/BCFPD_Join/index.asp

https://github.com/evizitei/bcfpd_asp
ASP | 75 lines | 63 code | 9 blank | 3 comment | 1 complexity | 3c86680c2e51411ff2b8ad7b26cb85df MD5 | raw file
  1. <!-- #include virtual="/members_only/include/functions.asa"-->
  2. <%
  3. If Not Session("Authorized")(13) Then
  4. Response.Redirect "/members_only/index.asp"
  5. End If
  6. Set rsApplicant = Server.CreateObject("ADODB.Recordset")
  7. ' If there is a request to delete, delete the record.
  8. 'If Request.Form("Submit") = "Delete Contact" Then
  9. rsApplicant.Open "JoinApplication", cnnBCFPD, 3, 3
  10. Do While Not rsApplicant.EOF
  11. If Request.Form("Delete" & rsApplicant("nID")) Then
  12. rsApplicant.Delete
  13. End If
  14. rsApplicant.MoveNext
  15. Loop
  16. rsApplicant.Close
  17. 'End If
  18. %>
  19. <!--#include virtual="/members_only/include/templates/top.asa"-->
  20. <!--#include virtual="/members_only/include/templates/members.asa"-->
  21. <table width="98%" border="0" cellspacing="0" cellpadding="5" bordercolor="orange">
  22. <tr>
  23. <td class="PageTitle">BCFPD Join Application</td>
  24. </tr>
  25. <tr>
  26. <td valign="bottom">
  27. <%
  28. rsApplicant.Open "Select * From JoinApplication Order By nID DESC", cnnBCFPD, 3 %>
  29. <!-- 9. A form is created that contains a table with delete capability, Headline hyper links, and date info.-->
  30. <form method="post" action="index.asp" id="form2" name="form2">
  31. <!-- 10. A table is created that will contain a delete check box, Headline links, and date info.-->
  32. <table border="1" cellpadding="1" cellspacing="0" bordercolor="#f2f2f2">
  33. <tr>
  34. <td class="SubHeaderCenter">Delete</td>
  35. <td class="subheadercenter">Name</td>
  36. <td class="subheadercenter">Email</td>
  37. <td class="subheadercenter">View Application</td>
  38. </tr>
  39. <!-- 11. Do While Loop to populate the table with database information.-->
  40. <% Do while not rsApplicant.EOF %>
  41. <tr>
  42. <td valign="top" align="center"><input type="checkbox" name="Delete<%=rsApplicant("nID")%>" value="true"></td>
  43. <td class="contactinfo"><%=rsApplicant("LastName") & ", " & rsApplicant("FirstName")%></td>
  44. <td class="contactinfo"><a class="update" href="mailto:<%=rsApplicant("Email")%>?subject=MO-TF1 Join Application"><%=rsApplicant("Email")%></a></td>
  45. <td align="center"><a class="update" target=_blank href="/applicationreports/default.aspx?nID=<%=rsApplicant("nID")%>">view details</a></td>
  46. </tr>
  47. <% rsApplicant.MoveNext
  48. Loop
  49. %>
  50. </table>
  51. <tr>
  52. <td align="right" colspan="7">
  53. <a href="javascript:Delete();"><img SRC="/images/members/buttons/Delete.gif" border="0"></a>
  54. <img src="/images/spacer.gif" border="0" height="1" width="35">
  55. <a style="cursor: hand" OnClick="window.history.back();"><img src="/images/members/buttons/cancel.gif" border="0" width="45" height="34"></a>
  56. </td>
  57. </tr>
  58. </form>
  59. <%
  60. rsApplicant.Close
  61. set rsApplicant = Nothing
  62. %>
  63. </td>
  64. </tr>
  65. </table>
  66. <!--#include virtual="/members_only/include/templates/bottom.asa"-->