<% 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("page")="attorneys" Then 'Add Attorney record Dim NewAttorneyID Set AddAttorney = server.CreateObject("adodb.recordset") AddAttorney.Open "SELECT * FROM Attorneys", Connect, adOpenDynamic, adLockOptimistic 'update Attorney data AddAttorney.AddNew AddAttorney("DateCreated") = Date AddAttorney("Prefix") = Request.Form("Prefix") AddAttorney("FirstName") = Request.Form("FirstName") AddAttorney("Middle") = Request.Form("Middle") AddAttorney("LastName") = Request.Form("LastName") AddAttorney("Suffix") = Request.Form("Suffix") AddAttorney("Email") = Request.Form("Email") If Request.Form("OfCounsel")="" Then AddAttorney("OfCounsel") = 0 Else AddAttorney("OfCounsel") = Request.Form("OfCounsel") End If AddAttorney("PhotoURL") = Request.Form("PhotoURL") AddAttorney("Description") = Replace(Request.Form("Description"),vbCrLf,"
") AddAttorney.Update 'Redirect Back Response.Redirect "/attorneys.asp?mode=" & Request.Form("mode") & "&id=" & NewAttorneyID Elseif Request.Form("page")="areas_of_practice" Then 'Add Area record Dim NewAreaID Set AddArea = server.CreateObject("adodb.recordset") AddArea.Open "SELECT * FROM Areas", Connect, adOpenDynamic, adLockOptimistic AddArea.AddNew AddArea("DateCreated") = Date AddArea("AreaName") = Request.Form("AreaName") AddArea("Description") = Replace(Request.Form("Description"),vbCrLf,"
") AddArea.Update AddArea.MoveLast NewAreaID = AddArea("AreaID") 'Redirect Back Response.Redirect "/areas_of_practice.asp?mode=" & Request.Form("mode") & "&id=" & NewAreaID Elseif Request.Form("page")="news" Then 'Add new Record Dim NewArticleID Set AddArticle = server.CreateObject("adodb.recordset") AddArticle.Open "SELECT * FROM NewsArticles", Connect, adOpenDynamic, adLockOptimistic AddArticle.AddNew AddArticle("DateCreated") = Date AddArticle("AuthorDate") = Request.Form("AuthorDate") AddArticle("Title") = Request.Form("Title") AddArticle("SubTitle") = Request.Form("SubTitle") AddArticle("AuthorName") = Request.Form("AuthorName") AddArticle("AuthorTitle") = Request.Form("AuthorTitle") AddArticle("AuthorCompany") = Request.Form("AuthorCompany") AddArticle("Summary") = Request.Form("Summary") AddArticle("Article") = Replace(Request.Form("Article"),vbCrLf,"
") AddArticle.Update AddArticle.MoveLast NewArticleID = AddArticle("ArticleID") 'Redirect Back Response.Redirect "/news.asp?mode=" & Request.Form("mode") & "&id=" & NewArticleID End If Else Response.Write "You do not have permission to access." End If %>