<!--#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.QueryString("page")="attorneys" Then
	
	'delete Attorney record
	Set DeleteAttorney = server.CreateObject("adodb.recordset")
	DeleteAttorney.Open "SELECT * FROM Attorneys WHERE AttorneyID=" & Request.QueryString("id") & "", Connect, adOpenDynamic, adLockOptimistic
	DeleteAttorney.Delete
	
	'delete Attorneys Areas records
	Set DeleteAttorneys_Areas = server.CreateObject("adodb.recordset")
	DeleteAttorneys_Areas.Open "SELECT * FROM Attorneys_Areas WHERE AttorneyID=" & Request.QueryString("id") & "", Connect, adOpenDynamic, adLockOptimistic
		
		If DeleteAttorneys_Areas.eof<>true Then
		do until DeleteAttorneys_Areas.eof
		DeleteAttorneys_Areas.Delete
		DeleteAttorneys_Areas.MoveNext
		Loop
		End If
		
	'Redirect Back
	Response.Redirect "/attorneys.asp?mode=" & Request.QueryString("mode")

Elseif Request.QueryString("page")="areas_of_practice" Then
	
	'delete Area record
	Set DeleteArea = server.CreateObject("adodb.recordset")
	Set DeleteAttorneyAffiliation = server.CreateObject("adodb.recordset")
	DeleteArea.Open "SELECT * FROM Areas WHERE AreaID=" & Request.QueryString("id") & "", Connect, adOpenDynamic, adLockOptimistic
	DeleteAttorneyAffiliation.Open "SELECT * FROM Attorneys_Areas WHERE AreaID=" & Request.QueryString("id") & "", Connect, adOpenDynamic, adLockOptimistic
	DeleteArea.Delete
	
	If DeleteAttorneyAffiliation.eof<>true Then
	DeleteAttorneyAffiliation.Delete
	End If
		
	'Redirect Back
	Response.Redirect "/areas_of_practice.asp?mode=" & Request.QueryString("mode")
	
Elseif Request.QueryString("page")="news" Then
	
	'delete Area record
	Set DeleteArticle = server.CreateObject("adodb.recordset")
	DeleteArticle.Open "SELECT * FROM NewsArticles WHERE ArticleID=" & Request.QueryString("id") & "", Connect, adOpenDynamic, adLockOptimistic
	DeleteArticle.Delete
		
	'Redirect Back
	Response.Redirect "/news.asp?mode=" & Request.QueryString("mode")

End If

Else
Response.Write "You do not have permission to access."
End If
%>