/members_only/contact_us/personnel/index.asp

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



<%

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

    Response.Redirect "/members_only/index.asp"

End If



Sort_ID = GetVal("Sort_ID", "")



' Create a recordset object called rsNodes.

	set rsNodes = Server.CreateObject("ADODB.Recordset")

	strNode = "SELECT * FROM Contact_Us_Personnel"



' If there is a request to delete, delete the record.

'If Request.Form("Submit") = "Delete Contact" Then

	rsNodes.Open "Contact_Us_Personnel", cnnBCFPD, 3, 3

		Do While Not rsNodes.EOF

			If Request.Form("Delete" & rsNodes("Contact_ID")) Then

				rsNodes.Delete

			End If

		rsNodes.MoveNext

		Loop

	rsNodes.Close

'End If



' If there is a request to update the new record, update the new record.

If Request.Form("Submit") = "Update Contact" Then

	rsNodes.Open "Contact_Us_Personnel", cnnBCFPD,3,3

	rsNodes.AddNew

		For Each Item in Request.Form

			If Item <> "Submit" Then

				rsNodes(Item) = killChars(Request.Form(Item))

			End If

		Next

		rsNodes.Update

	rsNodes.Close

End If



' If there is a request to update an existing record, update the existing record.

If Request.Form("Submit") = "Update Existing Contact" Then

	rsNodes.Open "SELECT * FROM Contact_Us_Personnel WHERE Contact_ID =" & Request.Form("Contact_ID"), cnnBCFPD,3,3

		For Each Item in Request.Form

			If Item <> "Submit" AND Item <> "Contact_ID" Then

				rsNodes(Item) = killChars(Request.Form(Item))

			End If

		Next

		rsNodes.Update

	rsNodes.Close

End If



if Request.QueryString("Action") = "up" then

	Order "Contact_Us_Personnel", "up", Sort_ID

else 

	if Request.QueryString("Action") = "down" then

		Order "Contact_Us_Personnel", "down", Sort_ID

	end if 

end if		





%>		



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

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

<table border="0" width="98%" cellspacing="0" cellpadding="5">

	<tr>

		<td class="PageTitle">Personnel Contact Information</td>

    </tr>

	<tr>

		<td width="100%" valign="bottom">



<% If Request.Form("Submit") = "Add New Contact" OR Request.QueryString("Contact_ID") <> "" Then

		set rsNodes = Server.CreateObject("ADODB.Recordset")

		strNode = "SELECT * FROM Contact_Us_Personnel"

		

		' If there is a request to add new record, add new record.

		If Request.Form("Submit") = "Add New Contact" Then

		 rsNodes.Open strNode, cnnBCFPD, 3, 3

		 rsNodes.AddNew

		End If

		   

		' If there is a request by clicking a hyper link, open the recordset and grab the selected record.

		If Request.QueryString("Contact_ID") <> "" Then

		 rsNodes.Open "SELECT * FROM Contact_Us_Personnel WHERE Contact_ID = " & killChars(Request.QueryString("Contact_ID")), cnnBCFPD, 3, 3   

		End If

%>

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

	<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" id="form1" name="form1">

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

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

				<tr>

				    <td></td>

				    <td>

						<table border="0" cellpadding="0" cellspacing="0" bordercolor="#f2f2f2">

							<tr>

								<td class="ContactInfo" bordercolor="#f2f2f2">Name:</td>

								<td bordercolor="#f2f2f2"><input type="text" name="Name" size="50" maxlength="200" value="<%=rsNodes("Name")%>"></td>

							</tr>

							<tr>

								<td class="ContactInfo" bordercolor="#f2f2f2">Title:</td>

								<td bordercolor="#f2f2f2"><input type="text" name="Title" size="50" maxlength="200" value="<%=rsNodes("Title")%>"></td>

							</tr>

							<tr>

								<td class="ContactInfo" bordercolor="#f2f2f2">Email:</td>

								<td bordercolor="#f2f2f2"><input type="text" name="Email" size="50" maxlength="200" value="<%=rsNodes("Email")%>"></td>

							</tr>

							<tr>

								<td class="ContactInfo" bordercolor="#f2f2f2">Responsibilities:</td>

								<td bordercolor="#f2f2f2"><textarea name="Responsibilities" cols="50" rows="10"><%=rsNodes("Responsibilities")%></textarea></td>

							</tr>

							<tr>

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

									<!-- 9b. If Then Else statement to check if updating new record or existing.-->

									<% If Request.QueryString("Contact_ID") <> "" Then %>

										<a href="javascript:submit(document.form1, 'Update Existing Contact');"><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>

										<input type="hidden" name="Submit">

										<input type="hidden" name="Contact_ID" value="<%=rsNodes("Contact_ID")%>">

									<% Else %>

										<a href="javascript:submit(document.form1, 'Update Contact');"><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>

										<input type="Hidden" name="Submit">

									<% End If %>

								</td>

							</tr>

						</table>

					</td>

				</tr>

			</table>

	</form>



<% Else 



		set rsNodes = Server.CreateObject("ADODB.Recordset")

		rsNodes.Open "SELECT * FROM Contact_Us_Personnel ORDER BY Sort ASC" , cnnBCFPD, 3, 3

%>

	<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" id="form2" name="form2">

	<!-- 11. A table is created that will contain a delete check box, Make Feature/Headline links, and date info.-->

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

				<tr>

					<td></td>

					<td>

						<table border="0" cellpadding="4" cellspacing="3" bordercolor="#f2f2f2">

							<tr>

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

								<td class="SubHeaderCenter">Name</td>

								<td class="SubHeaderCenter">Edit</td>

								<td class="SubHeaderCenter">Sort</td>

							</tr>

							<!-- 12. Do While Loop to populate the table with database information.-->

							<% Do while not rsNodes.EOF %>

							<tr>

								<td align="center" bordercolor="#f2f2f2"><input type="checkbox" name="Delete<%=rsNodes("Contact_ID")%>" value="true"></td>

								<td class="ContactInfo" bordercolor="#f2f2f2"><%=rsNodes("Name")%></td>

								<td align="center"><a class="Update" href="index.asp?Contact_ID=<%=rsNodes("Contact_ID")%>">Edit Contact</a></td>

								<td align="center">

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

										<tr>

											<td valign="middle"><a href="index.asp?Action=up&amp;Sort_ID=<%=rsNodes("Contact_ID")%>"><img border="0" src="/images/members/buttons/arrow_up.gif"></a></td>

										</tr>

										<tr>

											<td valign="middle"><a href="index.asp?Action=down&amp;Sort_ID=<%=rsNodes("Contact_ID")%>"><img border="0" src="/images/members/buttons/arrow_down.gif"></a></td>

										</tr>

									</table>

								</td>		

							</tr>

							<% rsNodes.MoveNext

							   Loop

							%>

							<tr>

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

									<a href="javascript:submit(document.form2, 'Add New Contact');"><img SRC="/images/members/buttons/add.gif" border="0"></a>

									<img src="/images/spacer.gif" border="0" height="1" width="35">

									<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>

									<input type="hidden" name="Submit">

								</td>

							</tr>

						</table>

					</td>

				</tr>

			</table>

	</form>

	<%rsNodes.Close%>



<% End If %>				   		

		</td>

	</tr>

</table>

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