<!--#include virtual="/include_adovbs.inc" -->

<% 

If Session("PTHKAdmin_LoggedIn")=true Then

'connect to database
Dim connect
var=server.MapPath("/pthk.mdb")
set connect = server.createobject("ADODB.Connection")
connect.Open "dbq=" & var & ";driver={microsoft access driver (*.mdb)}; driverid=25; file=ms access;"

If Request.Form("type")="PageData" Then

	'open record
	Set UpdatePage = server.CreateObject("adodb.recordset")
	UpdatePage.Open "SELECT * FROM PageData WHERE PageID=" & Request.Form("PageID") & "", Connect, adOpenDynamic, adLockOptimistic
	
	'update data
	UpdatePage("LastUpdated") = Date & " " & Time
	UpdatePage("BodyText") = Replace(Request("BodyText"),vbCrLf,"<br>")
	UpdatePage.Update
	
	'Redirect Back
	Response.Redirect "/" & UpdatePage("PageName") & ".asp?mode=" & Request.Form("mode")
	
	
Elseif Request.Form("type")="HomeStories" Then

	'open record
	Set UpdateHome = server.CreateObject("adodb.recordset")
	UpdateHome.Open "SELECT NumberOfStories FROM HomepageControl WHERE ID=1", Connect, adOpenDynamic, adLockOptimistic
	
	'update data
	UpdateHome("NumberOfStories") = Request.Form("NumberOfStories")
	UpdateHome.Update
	
	'Redirect Back
	Response.Redirect "/default.asp?mode=" & Request.Form("mode")
	
	
Elseif Request.Form("type")="MetaTags" Then

	'open record
	Set UpdateMetaTags = server.CreateObject("adodb.recordset")
	UpdateMetaTags.Open "SELECT * FROM Meta_Data WHERE ID=1", Connect, adOpenDynamic, adLockOptimistic
	
	'update data
	UpdateMetaTags("Keywords") = Request.Form("Keywords")
	UpdateMetaTags("Description") = Request.Form("Description")
	UpdateMetaTags.Update
	
	'Redirect Back
	Response.Redirect "/default.asp?mode=" & Request.Form("mode")	


Elseif Request.Form("type")="Attorney" Then

	If Request.Form("act")="" Then
	
		'open Attorney record
		Set UpdateAttorney = server.CreateObject("adodb.recordset")
		UpdateAttorney.Open "SELECT * FROM Attorneys WHERE AttorneyID=" & Request.Form("id") & "", Connect, adOpenDynamic, adLockOptimistic
		
		'update Attorney data
		UpdateAttorney("LastUpdated") = Date & " " & Time
		UpdateAttorney("Prefix") = Request("Prefix")
		UpdateAttorney("FirstName") = Request("FirstName")
		UpdateAttorney("Middle") = Request("Middle")
		UpdateAttorney("LastName") = Request("LastName")
		UpdateAttorney("Suffix") = Request("Suffix")
		UpdateAttorney("Email") = Request("Email")
		If Request("OfCounsel")="" Then
		UpdateAttorney("OfCounsel") = 0
		Else
		UpdateAttorney("OfCounsel") = Request("OfCounsel")
		End If
		UpdateAttorney("PhotoURL") = Request("PhotoURL")
		UpdateAttorney("Description") = Replace(Request("Description"),vbCrLf,"<br>")
		UpdateAttorney("is_mh") = Request("is_mh")
		UpdateAttorney("link") = Request("link")
		UpdateAttorney.Update
		
		
		
		'Redirect Back
		Response.Redirect "/attorneys.asp?mode=" & Request("mode") & "&id=" & UpdateAttorney("AttorneyID")
		
		
	Elseif Request.Form("act")="attorney_areas" Then
	
		'update Attorney's chosen Areas
		Set UpdateAttorneyAreas = server.CreateObject("adodb.recordset")
		UpdateAttorneyAreas.Open "SELECT * FROM Attorneys_Areas WHERE AttorneyID=" & Request.Form("id") & "", Connect, adOpenDynamic, adLockOptimistic
		
		'delete existing areas
		Do until UpdateAttorneyAreas.eof
		
			UpdateAttorneyAreas.Delete
		
		UpdateAttorneyAreas.MoveNext
		Loop
		
		'add new areas
		Dim AreaArray,Count,n
		AreaArray = Split(Request.Form("AttorneyAreas"),", ")
		Count = UBound(AreaArray)
		
		For n = 0 to Count
		
			UpdateAttorneyAreas.AddNew
			UpdateAttorneyAreas("AttorneyID") = Request.Form("id")
			UpdateAttorneyAreas("AreaID") = AreaArray(n)
			UpdateAttorneyAreas("SortForAttorneys") = n
			UpdateAttorneyAreas.Update
		
		Next
		
		'Redirect Back
		Response.Redirect "/admin/attorney_properties.asp?mode=edit&id=" & Request.Form("id")
	
	Elseif Request.Form("act")="add_bar" Then
	
		Set UpdateAttorneyBarAdmissions = server.CreateObject("adodb.recordset")
		UpdateAttorneyBarAdmissions.Open "SELECT * FROM Attorneys_BarAdmissions WHERE AttorneyID=" & Request.Form("id") & "", Connect, adOpenDynamic, adLockOptimistic
		
		UpdateAttorneyBarAdmissions.AddNew
		UpdateAttorneyBarAdmissions("AttorneyID") = Request.Form("id")
		UpdateAttorneyBarAdmissions("BarAdmission") = Request.Form("BarAdmission")
		UpdateAttorneyBarAdmissions("Year") = Request.Form("BarYear")
		UpdateAttorneyBarAdmissions.Update
		
		'Redirect Back
		Response.Redirect "/admin/attorney_properties.asp?mode=edit&id=" & UpdateAttorneyBarAdmissions("AttorneyID")
	
	Elseif Request.Form("act")="remove_bar" Then
	
		Set DeleteAttorneyBarAdmissions = server.CreateObject("adodb.recordset")
		DeleteAttorneyBarAdmissions.Open "SELECT * FROM Attorneys_BarAdmissions WHERE BarAdmissionID=" & Request.Form("bar_id") & "", Connect, adOpenDynamic, adLockOptimistic

		DeleteAttorneyBarAdmissions.Delete
		
		'Redirect Back
		Response.Redirect "/admin/attorney_properties.asp?mode=edit&id=" & Request.Form("id")
	
	Elseif Request.Form("act")="add_education" Then
	
		Set UpdateAttorneyEducation = server.CreateObject("adodb.recordset")
		UpdateAttorneyEducation.Open "SELECT * FROM Attorneys_Education WHERE AttorneyID=" & Request.Form("id") & "", Connect, adOpenDynamic, adLockOptimistic
		
		UpdateAttorneyEducation.AddNew
		UpdateAttorneyEducation("AttorneyID") = Request.Form("id")
		UpdateAttorneyEducation("School") = Request.Form("School")
		UpdateAttorneyEducation("Degree") = Request.Form("Degree")
		UpdateAttorneyEducation("Year") = Request.Form("Year")
		UpdateAttorneyEducation.Update
		
		'Redirect Back
		Response.Redirect "/admin/attorney_properties.asp?mode=edit&id=" & UpdateAttorneyEducation("AttorneyID")
	
	Elseif Request.Form("act")="remove_education" Then
	
		Set DeleteAttorneyEducation = server.CreateObject("adodb.recordset")
		DeleteAttorneyEducation.Open "SELECT * FROM Attorneys_Education WHERE EducationID=" & Request.Form("education_id") & "", Connect, adOpenDynamic, adLockOptimistic

		DeleteAttorneyEducation.Delete
		
		'Redirect Back
		Response.Redirect "/admin/attorney_properties.asp?mode=edit&id=" & Request.Form("id")
		
	Elseif Request.Form("act")="add_club" Then
	
		Set UpdateAttorneyClubs = server.CreateObject("adodb.recordset")
		UpdateAttorneyClubs.Open "SELECT * FROM Attorneys_Edu_Clubs WHERE AttorneyID=" & Request.Form("id") & "", Connect, adOpenDynamic, adLockOptimistic
		
		UpdateAttorneyClubs.AddNew
		UpdateAttorneyClubs("AttorneyID") = Request.Form("id")
		UpdateAttorneyClubs("EducationID") = Request.Form("EducationID")
		UpdateAttorneyClubs("clubdetails") = Request.Form("clubdetails")
		UpdateAttorneyClubs.Update
		
		'Redirect Back
		Response.Redirect "/admin/attorney_properties.asp?mode=edit&id=" & UpdateAttorneyClubs("AttorneyID")
	
	Elseif Request.Form("act")="remove_club" Then
	
		Set DeleteAttorneyClubs = server.CreateObject("adodb.recordset")
		DeleteAttorneyClubs.Open "SELECT * FROM Attorneys_Edu_Clubs WHERE ClubID=" & Request.Form("club_id") & "", Connect, adOpenDynamic, adLockOptimistic

		DeleteAttorneyClubs.Delete
		
		'Redirect Back
		Response.Redirect "/admin/attorney_properties.asp?mode=edit&id=" & Request.Form("id")
		
		
	Elseif Request.Form("act")="add_pub" Then
	
		Set UpdateAttorneyPublications = server.CreateObject("adodb.recordset")
		UpdateAttorneyPublications.Open "SELECT * FROM Attorneys_Publications WHERE AttorneyID=" & Request.Form("id") & "", Connect, adOpenDynamic, adLockOptimistic
		
		UpdateAttorneyPublications.AddNew
		UpdateAttorneyPublications("AttorneyID") = Request.Form("id")
		UpdateAttorneyPublications("Publication") = Request.Form("Publication")
		UpdateAttorneyPublications("PubYear") = Request.Form("PubYear")
		UpdateAttorneyPublications.Update
		
		'Redirect Back
		Response.Redirect "/admin/attorney_properties.asp?mode=edit&id=" & UpdateAttorneyPublications("AttorneyID")
	
	Elseif Request.Form("act")="remove_pub" Then
	
		Set DeleteAttorneyPublications = server.CreateObject("adodb.recordset")
		DeleteAttorneyPublications.Open "SELECT * FROM Attorneys_Publications WHERE PublicationID=" & Request.Form("pub_id") & "", Connect, adOpenDynamic, adLockOptimistic

		DeleteAttorneyPublications.Delete
		
		'Redirect Back
		Response.Redirect "/admin/attorney_properties.asp?mode=edit&id=" & Request.Form("id")	
		
		
	Elseif Request.Form("act")="attorney_sort" Then
	
		Set UpdateAttorneySort = server.CreateObject("adodb.recordset")
		UpdateAttorneySort.Open "SELECT * FROM AttorneySort WHERE ID=1", Connect, adOpenDynamic, adLockOptimistic

		UpdateAttorneySort("SortBy")=Request.Form("SortBy")
		UpdateAttorneySort.Update
		
		'Redirect Back
		Response.Redirect "/attorneys.asp?mode=change_sort"
		
	Elseif Request.Form("act")="change_seniority" Then
	
		Set UpdateAttorneySeniority = server.CreateObject("adodb.recordset")
	
		'add new areas
		Dim SeniorityArray,AttorneyCount,x
		SeniorityArray = Split(Request.Form("Seniority"),", ")
		AttorneyCount = UBound(SeniorityArray)
		
		For x = 0 to AttorneyCount
		'Response.Write "ID#: " & SeniorityArray(x) & "<br>"
		'Response.Write "Seniority: " & x+1 & "<br><br>"

			UpdateAttorneySeniority.Open "SELECT * FROM Attorneys WHERE AttorneyID=" & SeniorityArray(x) & "", Connect, adOpenDynamic, adLockOptimistic
			UpdateAttorneySeniority("Seniority") = x+1
			UpdateAttorneySeniority.Update
			UpdateAttorneySeniority.Close
		
		Next
		
		'Redirect Back
		Response.Redirect "/attorneys.asp?mode=change_sort"
		
	Elseif Request.Form("act")="attorney_featured" Then
	
		Set UpdateFeaturedAttorney = server.CreateObject("adodb.recordset")
		Set ReplaceFeaturedAttorney = server.CreateObject("adodb.recordset")
		
		UpdateFeaturedAttorney.Open "SELECT * FROM Attorneys WHERE Featured=1", Connect, adOpenDynamic, adLockOptimistic
		
		If UpdateFeaturedAttorney.eof<>true Then
		UpdateFeaturedAttorney("Featured")=0
		UpdateFeaturedAttorney.Update
		End If
		
		If Request.Form("id")<>"" Then
		ReplaceFeaturedAttorney.Open "SELECT * FROM Attorneys WHERE AttorneyID=" & Request.Form("id") & "", Connect, adOpenDynamic, adLockOptimistic
		ReplaceFeaturedAttorney("Featured")=1
		ReplaceFeaturedAttorney.Update
		End If
		
		'Redirect Back
		Response.Redirect "/attorneys.asp?mode=change_sort"
		
	Elseif Request.Form("act")="exit" Then
	
		Response.Redirect "/attorneys.asp"
	
	End If
	

Elseif Request.Form("type")="Area" Then
	
		'open record
		Set UpdateArea = server.CreateObject("adodb.recordset")
		UpdateArea.Open "SELECT * FROM Areas WHERE AreaID=" & Request.Form("id") & "", Connect, adOpenDynamic, adLockOptimistic
		
		'update data
		UpdateArea("LastUpdated") = Date & " " & Time
		UpdateArea("AreaName") = Request("AreaName")
		UpdateArea("Description") = Replace(Request("Description"),vbCrLf,"<br>")
		UpdateArea.Update
		
		'update Attorney chosen Areas
		Set UpdateAttorneyAreas = server.CreateObject("adodb.recordset")
		
		'modify area sort
		'Dim AreaArray,Count,n - Already defined
		AreaArray = Split(Request.Form("AreasAttorneys"),", ")
		Count = UBound(AreaArray)
		
		For n = 0 to Count
		
			'DEBUG CODE: Response.Write "ID: '" & AreaArray(n) & "', Sort: '" & n & "'<br>"
			UpdateAttorneyAreas.Open "SELECT * FROM Attorneys_Areas WHERE AttorneyID=" & AreaArray(n) & " AND AreaID=" & Request.Form("id") & "", Connect, adOpenDynamic, adLockOptimistic
			UpdateAttorneyAreas("SortForAreas") = n
			UpdateAttorneyAreas.Update
			UpdateAttorneyAreas.Close

		Next
		
		'Redirect Back
		Response.Redirect "/areas_of_practice.asp?mode=" & Request("mode") & "&id=" & UpdateArea("AreaID")

	
Elseif Request.Form("type")="Article" Then

	'open record
	Set UpdateArticle = server.CreateObject("adodb.recordset")
	UpdateArticle.Open "SELECT * FROM NewsArticles WHERE ArticleID=" & Request.Form("id") & "", Connect, adOpenDynamic, adLockOptimistic
	
	'update data
	UpdateArticle("LastUpdated") = Date & " " & Time
	UpdateArticle("AuthorDate") = Request("AuthorDate")
	UpdateArticle("Title") = Request("Title")
	UpdateArticle("SubTitle") = Request("SubTitle")
	UpdateArticle("AuthorName") = Request("AuthorName")
	UpdateArticle("AuthorTitle") = Request("AuthorTitle")
	UpdateArticle("AuthorCompany") = Request("AuthorCompany")
	UpdateArticle("Summary") = Request("Summary")
	UpdateArticle("Article") = Replace(Request("Article"),vbCrLf,"<br>")
	UpdateArticle.Update
	
	'Redirect Back
	Response.Redirect "/news.asp?mode=" & Request("mode") & "&id=" & UpdateArticle("ArticleID")
	
	
	
Elseif Request.Form("type")="RelatedLinks" Then

	If Request.Form("act")="add_url" Then
	
		Set Update_RelatedLinks = server.CreateObject("adodb.recordset")
		Update_RelatedLinks.Open "SELECT * FROM RelatedLinks", Connect, adOpenDynamic, adLockOptimistic
		
		Update_RelatedLinks.AddNew
		Update_RelatedLinks("Page") = Request.Form("page")
		Update_RelatedLinks("PageID") = Request.Form("id")
		Update_RelatedLinks("URL") = Request.Form("URL")
		Update_RelatedLinks.Update
		
		'Redirect Back
		Response.Redirect "/" & Request.Form("page") & ".asp?mode=edit&id=" & Request.Form("id")
		
	Elseif Request.Form("act")="remove_url" Then
	
		Set Update_RelatedLinks = server.CreateObject("adodb.recordset")
		Update_RelatedLinks.Open "SELECT * FROM RelatedLinks WHERE LinkID=" & Request.Form("url_id") & "", Connect, adOpenDynamic, adLockOptimistic
		
		Update_RelatedLinks.Delete
		
		'Redirect Back
		Response.Redirect "/" & Request.Form("page") & ".asp?mode=edit&id=" & Request.Form("id")
	
	End If
		
End If

Else
Response.Write "You do not have permission to access."
End If
%>