/members_only/volunteer/index.asp

<!-- #include virtual="/members_only/include/functions.asa"-->

<%

server.ScriptTimeout = 300  

If Not Session("Authorized")(19) Then

    Response.Redirect "/members_only/index.asp"

End If



if Request.QueryString("Delete") <> "" then

	cnnMain.execute("Delete from VolunteerOpportunities where nID = " & Request.QueryString("Delete"))

end if



if Request.ServerVariables("REQUEST_METHOD") = "POST" then

	Dim mySmartUpload

	Dim intCount

	dim rs

	

	Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

	set rs = server.CreateObject("ADODB.Recordset")



	mySmartUpload.Upload

		

	rs.Open "VolunteerOpportunities", cnnMain, 3, 3

	rs.AddNew 

	rs("JobTitle") = mySmartUpload.Form("JobTitle")

	rs("JobApplicationContentType") = trim(mySmartUpload.files.item(1).ContentType)

	mySmartUpload.Files.item(1).FileToField rs("JobApplication")

	rs.Update 

	rs.Close

	

end if



function GetPageByContent(ContentType)



	select case ContentType

		

		case "application/msword"

			

			GetPageByContent = "viewword"

		

		case "application/pdf"

			

			GetPageByContent = "viewpdf"



		case "application/vnd.ms-excel"

			

			GetPageByContent = "viewexcel"



		case "text/plain"

			

			GetPageByContent = "viewtext"



		case else

			

			GetPageByContent = "viewtext"

	

	end select

	

end function





%>									

<!--#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">Volunteer Opportunities Update</td>

    </tr>

	<tr>

		<td valign="bottom">



	<!-- 8. A form is created that contains a table with update fields.-->

	<form name="form1" method="post" action="index.asp" ENCTYPE="multipart/form-data">

		<!-- 8a. A table is created that contains the requested information.-->

			<table border="0" cellpadding="3" cellspacing="3">

				<tr>

					<td class="ContactInfo">Job Title:</td>

					<td colspan="2"><input type="text" id="JobTitle" name="JobTitle"></td>

				</tr>

				<tr>

					<td class="ContactInfo">Job Application:</td>

					<td colspan="2"><input type="file" id="JobApplication" name="JobApplication"></td>

				</tr>

				<tr>

					<td align="right" colspan="3">

						<a href="javascript:document.form1.submit();"><img SRC="/images/members/buttons/Save.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>

			</table>

		</form>



<p>	

	<%set rs = cnnMain.execute("select * from VolunteerOpportunities order by nID Desc")%>

		<table border="1" cellpadding="4" cellspacing="0">

			<tr>

				<td class="subheadercenter">Delete</td>

				<td class="subheadercenter">Job Title</td>

				<td class="subheader">Job Application</td>

			</tr>

			<%	Do while not rs.EOF %>

			<tr>

				<td align="center"><a href="index.asp?Delete=<%=rs("nID")%>">delete</a></td>

				<td class="AppLabel" align="center"><%=rs("JobTitle")%></td>

				<td class="AppLabel" align="center"><a target="_blank" href="/joinbcfpd/volunteer/<%=GetPageByContent(rs("JobApplicationContentType"))%>.asp?nid=<%=rs("nID")%>&amp;Document=JobApplication">view</a></td>

			</tr>

			<% rs.MoveNext

			   Loop

			   rs.Close 

			%>

		</table>

		</td>

	</tr>

</table>

<!--#include virtual="/members_only/include/templates/bottom.asa"-->