/members_only/applicationsOLD/SKInfo_Request/index.asp

https://github.com/evizitei/bcfpd_asp · ASP · 100 lines · 84 code · 12 blank · 4 comment · 2 complexity · 5fb749ae52456596c31b2df0157d65d9 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. Dim Application_ID
  7. Application_ID = GetVal("Application_ID", "")
  8. ' 2. Create a Recordset Object
  9. Set rsApplicant = Server.CreateObject("ADODB.Recordset")
  10. ' If there is a request to delete, delete the record.
  11. 'If Request.Form("Submit") = "Delete Contact" Then
  12. rsApplicant.Open "Application_SK", cnnBCFPD, 3, 3
  13. Do While Not rsApplicant.EOF
  14. If Request.Form("Delete" & rsApplicant("Application_ID")) Then
  15. rsApplicant.Delete
  16. End If
  17. rsApplicant.MoveNext
  18. Loop
  19. rsApplicant.Close
  20. 'End If
  21. %>
  22. <!--#include virtual="/members_only/include/templates/top.asa"-->
  23. <!--#include virtual="/members_only/include/templates/members.asa"-->
  24. <table width="98%" border="0" cellspacing="0" cellpadding="5" bordercolor="orange">
  25. <tr>
  26. <td class="PageTitle">Survival Kids Information Request Application</td>
  27. </tr>
  28. <tr>
  29. <td valign="bottom">
  30. <%rsApplicant.Open "Select * From Application_SK Order By Namereq ASC", cnnBCFPD, 3 %>
  31. <!-- 9. A form is created that contains a table with delete capability, Headline hyper links, and date info.-->
  32. <form method="post" action="index.asp" id=form2 name=form2>
  33. <!-- 10. A table is created that will contain a delete check box, Headline links, and date info.-->
  34. <table border="1" cellpadding="3" cellspacing="0" bordercolor="#f2f2f2">
  35. <tr>
  36. <td class="SubHeaderCenter">Delete</td>
  37. <td class="subheadercenter" >Name</td>
  38. <td class="subheadercenter">Title</td>
  39. <td class="subheadercenter">Address</td>
  40. <td class="subheadercenter">City</td>
  41. <td class="subheadercenter">State</td>
  42. <td class="subheadercenter">Zip</td>
  43. <td class="subheadercenter">Work Phone</td>
  44. <td class="subheadercenter">Home Phone</td>
  45. <td class="subheadercenter">Fax</td>
  46. <td class="subheadercenter">E-mail</td>
  47. <td class="subheadercenter">Dept/School</td>
  48. </tr>
  49. <!-- 11. Do While Loop to populate the table with database information.-->
  50. <% Do while not rsApplicant.EOF %>
  51. <tr>
  52. <td valign="top" align="center"><input type="checkbox" name="Delete<%=rsApplicant("Application_ID")%>" value="true"></td>
  53. <td class="contactinfo"><%=rsApplicant("Namereq")%></td>
  54. <td class="contactinfo"><%=rsApplicant("Title")%></td>
  55. <td class="contactinfo"><%=rsApplicant("Address1req")%>
  56. <% if rsApplicant("Address2") <> "" then%>
  57. <%= "--" & rsApplicant("Address2") %>
  58. <% end if%>
  59. </td>
  60. <td class="contactinfo"><%=rsApplicant("Cityreq")%></td>
  61. <td class="contactinfo"><%=rsApplicant("Statereq")%></td>
  62. <td class="contactinfo"><%=rsApplicant("Zipreq")%></td>
  63. <td class="contactinfo"><%=rsApplicant("Day_Phonereq")%></td>
  64. <td class="contactinfo"><%=rsApplicant("Night_Time_Phone")%></td>
  65. <td class="contactinfo"><%=rsApplicant("Fax")%></td>
  66. <td class="contactinfo"><%=rsApplicant("Email")%></td>
  67. <td class="contactinfo"><%=rsApplicant("DeptNamereq")%></td>
  68. </tr>
  69. <% rsApplicant.MoveNext
  70. Loop
  71. rsApplicant.Close
  72. %>
  73. </table>
  74. <tr>
  75. <td align="right" colspan="11">
  76. <a href="javascript:Delete();"><img SRC="/images/members/buttons/Delete.gif" border="0"></a>
  77. <img src="/images/spacer.gif" border="0" height="1" width="35">
  78. <a style="cursor: hand" OnClick="window.history.back();"><img src="/images/members/buttons/cancel.gif" border="0" width="45" height="34"></a>
  79. </td>
  80. </tr>
  81. </form>
  82. <%
  83. set rsApplicant = Nothing
  84. %>
  85. </td>
  86. </tr>
  87. </table>
  88. <!--#include virtual="/members_only/include/templates/bottom.asa"-->