/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
- <!-- #include virtual="/members_only/include/functions.asa"-->
-
- <%
- If Not Session("Authorized")(13) Then
- Response.Redirect "/members_only/index.asp"
- End If
-
- Dim Application_ID
- Application_ID = GetVal("Application_ID", "")
-
- ' 2. Create a Recordset Object
- Set rsApplicant = Server.CreateObject("ADODB.Recordset")
-
- ' If there is a request to delete, delete the record.
- 'If Request.Form("Submit") = "Delete Contact" Then
- rsApplicant.Open "Application_SK", cnnBCFPD, 3, 3
- Do While Not rsApplicant.EOF
- If Request.Form("Delete" & rsApplicant("Application_ID")) Then
- rsApplicant.Delete
- End If
- rsApplicant.MoveNext
- Loop
- rsApplicant.Close
- 'End If
-
-
- %>
- <!--#include virtual="/members_only/include/templates/top.asa"-->
- <!--#include virtual="/members_only/include/templates/members.asa"-->
- <table width="98%" border="0" cellspacing="0" cellpadding="5" bordercolor="orange">
- <tr>
- <td class="PageTitle">Survival Kids Information Request Application</td>
- </tr>
- <tr>
- <td valign="bottom">
-
-
-
- <%rsApplicant.Open "Select * From Application_SK Order By Namereq ASC", cnnBCFPD, 3 %>
- <!-- 9. A form is created that contains a table with delete capability, Headline hyper links, and date info.-->
- <form method="post" action="index.asp" id=form2 name=form2>
- <!-- 10. A table is created that will contain a delete check box, Headline links, and date info.-->
- <table border="1" cellpadding="3" cellspacing="0" bordercolor="#f2f2f2">
- <tr>
- <td class="SubHeaderCenter">Delete</td>
- <td class="subheadercenter" >Name</td>
- <td class="subheadercenter">Title</td>
- <td class="subheadercenter">Address</td>
- <td class="subheadercenter">City</td>
- <td class="subheadercenter">State</td>
- <td class="subheadercenter">Zip</td>
- <td class="subheadercenter">Work Phone</td>
- <td class="subheadercenter">Home Phone</td>
- <td class="subheadercenter">Fax</td>
- <td class="subheadercenter">E-mail</td>
- <td class="subheadercenter">Dept/School</td>
- </tr>
- <!-- 11. Do While Loop to populate the table with database information.-->
- <% Do while not rsApplicant.EOF %>
- <tr>
- <td valign="top" align="center"><input type="checkbox" name="Delete<%=rsApplicant("Application_ID")%>" value="true"></td>
- <td class="contactinfo"><%=rsApplicant("Namereq")%></td>
- <td class="contactinfo"><%=rsApplicant("Title")%></td>
- <td class="contactinfo"><%=rsApplicant("Address1req")%>
- <% if rsApplicant("Address2") <> "" then%>
- <%= "--" & rsApplicant("Address2") %>
- <% end if%>
- </td>
- <td class="contactinfo"><%=rsApplicant("Cityreq")%></td>
- <td class="contactinfo"><%=rsApplicant("Statereq")%></td>
- <td class="contactinfo"><%=rsApplicant("Zipreq")%></td>
- <td class="contactinfo"><%=rsApplicant("Day_Phonereq")%></td>
- <td class="contactinfo"><%=rsApplicant("Night_Time_Phone")%></td>
- <td class="contactinfo"><%=rsApplicant("Fax")%></td>
- <td class="contactinfo"><%=rsApplicant("Email")%></td>
- <td class="contactinfo"><%=rsApplicant("DeptNamereq")%></td>
- </tr>
- <% rsApplicant.MoveNext
- Loop
- rsApplicant.Close
-
- %>
- </table>
- <tr>
- <td align="right" colspan="11">
- <a href="javascript:Delete();"><img SRC="/images/members/buttons/Delete.gif" border="0"></a>
- <img src="/images/spacer.gif" border="0" height="1" width="35">
- <a style="cursor: hand" OnClick="window.history.back();"><img src="/images/members/buttons/cancel.gif" border="0" width="45" height="34"></a>
- </td>
- </tr>
-
- </form>
-
- <%
- set rsApplicant = Nothing
- %>
- </td>
- </tr>
- </table>
- <!--#include virtual="/members_only/include/templates/bottom.asa"-->