<%
Dim connect
var=server.MapPath("/pthklaw/newsite/pthk.mdb")
set connect = server.createobject("ADODB.Connection")
connect.Open "dbq=" & var & ";driver={microsoft access driver (*.mdb)}; driverid=25; file=ms access;"
'**********LOGOUT FUNCTION**********
If Request.QueryString("PTHKAdmin_LogOut")="true" Then
Session.Contents.RemoveAll
Response.Redirect "/pthklaw/newsite/admin/default.asp"
Else
End If
'**********NEWS??**********
Sub CheckForNewsArticles(result)
Dim connectNews
var=server.MapPath("/pthklaw/newsite/pthk.mdb")
set connectNews = server.createobject("ADODB.Connection")
connectNews.Open "dbq=" & var & ";driver={microsoft access driver (*.mdb)}; driverid=25; file=ms access;"
Set NewsRS = connectNews.execute("SELECT * FROM NewsArticles ORDER BY ArticleID")
If NewsRS.eof<>true Then
result = true
Else
result = false
End If
End Sub
'**********SHOW OR HIDE LOGIN AND EDIT OPTIONS***********************************
Sub FormattingTool()
If Request.QueryString("mode")="edit" AND Session("PTHKAdmin_LoggedIn")=true Then
%><%
End If
End Sub
'**********SHOW Related LINKS***********************************
Sub RelatedLinks(page)
If Request.QueryString("id")<>"" Then
Set RelatedLinksRS = connect.execute("SELECT * FROM RelatedLinks WHERE Page='" & page & "' AND PageID=" & Request.QueryString("id") & "")
If RelatedLinksRS.eof<>true Then
%>
<% Do until RelatedLinksRS.eof %>
" target="_blank"><%=Replace(RelatedLinksRS("URL"),"http://","")%>
<%
RelatedLinksRS.MoveNext
Loop
End If
End If
End Sub
'**********META DATA FUNCTIONS ***********************************
Sub Meta_Keywords()
Set Data = connect.execute("SELECT * FROM Meta_Data WHERE ID=1")
Response.Write Data("Keywords")
End Sub
Sub Meta_Description()
Set Data = connect.execute("SELECT * FROM Meta_Data WHERE ID=1")
Response.Write Data("Description")
End Sub
'**********SHOW OR HIDE LOGIN AND EDIT OPTIONS***********************************
Sub EditModeLink(page)
If Session("PTHKAdmin_LoggedIn")=true Then
%>
File Manager
| You are logged in as: <%=Session("PTHKAdmin_LoggedInAs")%> | Log Out
<%
Else
End If
End Sub
'**********SWITCH BODY OF PAGE TO EDITABLE TEXT**********
Sub EditPage(page)
Set PageContent = connect.execute("SELECT * FROM PageData WHERE PageName='" & page & "'")
'Display header images if not home page
If page<>"default" Then
Response.Write "
"
Else
End If
If Request.QueryString("id")="" Then
%>
Last Updated: <%=PageContent("LastUpdated")%>
')">
<%
If page="attorneys" Then
Call DisplayFeaturedAttorney()
End If
Else
Dim id
id = Request.QueryString("id")
If page="attorneys" Then
Call EditAttorney(page,id)
Elseif page="areas_of_practice" Then
Call EditAreaOfPractice(page,id)
Elseif page="news" Then
Call EditNewsArticle(page,id)
End If
End If
Set PageContent = nothing
End Sub
'**********DISPLAY PAGE CONTENT**********
Sub WritePage(page)
Set PageContent = connect.execute("SELECT * FROM PageData WHERE PageName='" & page & "'")
'Display body text if not an attorney, area of practice, or a news story
If Request.QueryString("id")="" Then
Response.Write PageContent("BodyText")
If page="attorneys" Then
Call DisplayFeaturedAttorney()
End If
Else
Dim id
id = Request.QueryString("id")
If page="attorneys" Then
Call DisplayAttorney(id)
Elseif page="areas_of_practice" Then
Call DisplayAreasOfPractice(id)
Elseif page="news" Then
Call DisplayNewsArticle(id)
End If
End If
Set PageContent = nothing
End Sub
'**********CHANGE SORTING OF ATTORNEYS**********
Sub ChangeSort_Attorneys(page)
Set AttorneySort = connect.execute("SELECT * FROM AttorneySort")
Set SeniorityList = connect.execute("SELECT * FROM Attorneys ORDER BY Seniority")
Set FeaturedAttorneyList = connect.execute("SELECT * FROM Attorneys ORDER BY LastName")
'Display header images if not home page
'If page<>"default" Then
'Response.Write "
"
'Else
'End If
'Display body text if not an attorney, area of practice, or a news story
%>
<%
Set AttorneySort = nothing
End Sub
'**********CHANGE SORTING OF ATTORNEYS**********
Sub Homepage_Options(page)
Set HomeControl = connect.execute("SELECT NumberOfStories FROM HomepageControl WHERE ID=1")
Set MetaTags = connect.execute("SELECT * FROM Meta_Data WHERE ID=1")
%>
<%
End Sub
'**********SWITCH BODY OF PAGE TO EDITABLE TEXT**********
Sub AddPage(page)
If page="attorneys" Then
Call AddAttorney(page)
Elseif page="areas_of_practice" Then
Call AddAreaOfPractice(page)
Elseif page="news" Then
Call AddNewsArticle(page)
End If
End Sub
'**********DISPLAY RIGHT COLUMN**********
Sub RightColumn(page)
If page="default" Then
Set Articles = connect.execute("SELECT Title,Summary,ArticleID FROM NewsArticles Order By AuthorDate Desc")
Set ShowHowMany = connect.execute("SELECT NumberOfStories FROM HomepageControl WHERE ID=1")
If Articles.eof<>true Then
%>
<%
x = 0
Do until Articles.eof
x = x + 1
Articles.MoveNext
Loop
Articles.MoveFirst
If x >= ShowHowMany("NumberOfStories") Then
n = 0
Do while n < ShowHowMany("NumberOfStories")
n = n + 1
Response.Write "" & Articles("Title") & " "
Response.Write Articles("Summary") & " "
Response.Write "
"
Articles.MoveNext
Loop
End If
End If
Elseif page="news" Then
If Request.QueryString("id")<>"" AND Request.QueryString("sa")="y" Then
%>
<% If Request("mail")="" Then %>
Please fill out all the information below to send the article to your friend.
<% Elseif Request("mail")="send" Then %>
<%
Dim SenderMessage
If Request("Message")="" Then
SenderMessage = "I thought you might find this article interesting..."
Else
SenderMessage = Request("Message")
End If
Dim objMail
Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = Request("SenderEmail")
objMail.Subject = "News Article"
objMail.To = Request("RecipientEmail")
objMail.Body = Request("Recipient") & "," & vbCrLf & vbCrLf & _
" " & SenderMessage & vbCrLf & vbCrLf & _
" " & Request("Sender") & vbCrLf & vbCrLf & vbCrLf & _
UCase(Request("ArticleTitle")) & vbCrLf & vbCrLf & _
Request("ArticleStory") & vbCrLf & vbCrLf & _
"Copyright 2004 Perkins, Thompson, Hinckley & Keddy" & vbCrLf & _
"http://www.perkinsthompson.com/"
objMail.Send
%>
Article Sent!
<%
set objMail = nothing
End If
%>
<%
End If
Else
End If
Call RelatedLinks(page)
Call FormattingTool()
End Sub
'**********DISPLAY FEATURED ATTORNEY**********
Sub DisplayFeaturedAttorney()
Set FeaturedAttorney = connect.execute("SELECT * FROM Attorneys WHERE Featured=1")
If FeaturedAttorney.eof<>true Then
Set FeaturedAttorney_Areas = connect.execute("SELECT * FROM Attorneys_Areas WHERE AttorneyID=" & FeaturedAttorney("AttorneyID") & "")
%>
" width="100" height="100" align="right" border="1" alt="<%=FeaturedAttorney("FirstName")%> <%=FeaturedAttorney("LastName")%>" style="color:#303F25">
<%
Response.Write FeaturedAttorney("FirstName") & " " & FeaturedAttorney("Middle") & " " & FeaturedAttorney("LastName")
If FeaturedAttorney("Suffix")<>"" Then
Response.Write ", " & FeaturedAttorney("Suffix")
End If
%> "><%=FeaturedAttorney("Email")%>
Areas of Practice
<%
do until FeaturedAttorney_Areas.eof
Set Areas = connect.execute("SELECT * FROM Areas WHERE AreaID=" & FeaturedAttorney_Areas("AreaID") & "")
Response.Write "
" & Areas("AreaName") & "
"
Set Areas = nothing
FeaturedAttorney_Areas.MoveNext
Loop
%>
<%
End If
End Sub
'**********DISPLAY ATTORNEY**********
Sub DisplayAttorney(id)
Set Attorney = connect.execute("SELECT * FROM Attorneys WHERE AttorneyID=" & id & "")
Set Attorneys_Areas = connect.execute("SELECT * FROM Attorneys_Areas WHERE AttorneyID=" & id & " ORDER BY SortForAttorneys ASC")
Set Attorneys_BarAdmissions = connect.execute("SELECT * FROM Attorneys_BarAdmissions WHERE AttorneyID=" & id & " ORDER BY Year DESC")
Set Attorneys_Education = connect.execute("SELECT * FROM Attorneys_Education WHERE AttorneyID=" & id & " ORDER BY Year DESC")
Set Attorneys_Publications = connect.execute("SELECT * FROM Attorneys_Publications WHERE AttorneyID=" & id & " ORDER BY PubYear DESC")
'If Attorney("OfCounsel")="1" Then
'Response.Write "
'End If
%>
<% If Attorney("PhotoURL")<>"" Then %>" width="100" height="100" align="right" border="1" alt="<%=Attorney("FirstName")%> <%=Attorney("LastName")%>" style="color:#303F25"><% End If %>
<%
Response.Write Attorney("FirstName") & " " & Attorney("Middle") & " " & Attorney("LastName")
If Attorney("Suffix")<>"" Then
Response.Write ", " & Attorney("Suffix")
End If
%> "><%=Attorney("Email")%>
<%=Attorney("Description")%>
<% If Attorneys_Areas.eof<>true Then %>
<%
do until Attorneys_Areas.eof
Set Areas = connect.execute("SELECT * FROM Areas WHERE AreaID=" & Attorneys_Areas("AreaID") & "")
%>
<%
Set Areas = nothing
Attorneys_Areas.MoveNext
Loop
%>
<% End If %>
<% If Attorneys_BarAdmissions.eof<>true Then %>
<%
do until Attorneys_BarAdmissions.eof
%>
·
<%
Response.Write Attorneys_BarAdmissions("BarAdmission")
If Attorneys_BarAdmissions("Year")<>"" Then
Response.Write ", " & Attorneys_BarAdmissions("Year")
End If %>
<%
Attorneys_BarAdmissions.MoveNext
Loop
%>
<% End If %>
<% If Attorneys_Education.eof<>true Then %>
<%
do until Attorneys_Education.eof
%>
·
<%
Response.Write Attorneys_Education("School")
If Attorneys_Education("Degree")<>"" Then
Response.Write ", " & Attorneys_Education("Degree") & ""
End If
If Attorneys_Education("Year")<>"" Then
Response.Write " | " & Attorneys_Education("Year")
End If
%>
<%
Attorneys_Education.MoveNext
Loop
%>
<% End If %>
<% If Attorneys_Publications.eof<>true Then %>
<% End If %>
<%
Set Attorneys_Publications = nothing
Set Attorneys_Education = nothing
Set Attorneys_BarAdmissions = nothing
Set Attorneys_Areas = nothing
Set Attorney = nothing
End Sub
'**********DISPLAY AREAS OF PRACTICE**********************************************************
Sub DisplayAreasOfPractice(id)
Set Area = connect.execute("SELECT * FROM Areas WHERE AreaID=" & id & "")
Set AttorneysAreas = connect.execute("SELECT * FROM Attorneys_Areas WHERE AreaID=" & id & " ORDER BY SortForAreas ASC")
%>
<%=Area("AreaName")%>
<%=Area("Description")%>
<%
If AttorneysAreas.eof<>true Then
Response.Write"
"
Response.Write "
"
do until AttorneysAreas.eof
Set Attorneys = connect.execute("SELECT * FROM Attorneys WHERE AttorneyID=" & AttorneysAreas("AttorneyID") & "")
%>
<%
Set Attorneys = nothing
AttorneysAreas.MoveNext
Loop
Response.Write "
"
End If
Set AttorneysAreas = nothing
Set Area = nothing
End Sub
'**********DISPLAY NEWS ARTICLES*********
Sub DisplayNewsArticle(id)
Set Article = connect.execute("SELECT * FROM NewsArticles WHERE ArticleID=" & id & "")
%>
<%=Article("Title")%>
<%=Article("SubTitle")%>
by <%=Article("AuthorName")%>&sa=y">
<%=Article("Article")%>
<%
Set Article = nothing
End Sub
'**********EDIT ATTORNEY**********
Sub EditAttorney(page,id)
Set Attorney = connect.execute("SELECT * FROM Attorneys WHERE AttorneyID=" & id & "")
Set Areas = connect.execute("SELECT * FROM Areas ORDER BY AreaName")
%>
<%
Set Areas = nothing
Set Attorney = nothing
End Sub
'**********EDIT AREA**********
Sub EditAreaOfPractice(page,id)
Set Area = connect.execute("SELECT * FROM Areas WHERE AreaID=" & id & "")
Set AttorneysAreas = connect.execute("SELECT * FROM Attorneys_Areas WHERE AreaID=" & id & " ORDER BY SortForAreas")
Set RelatedLinksRS = connect.execute("SELECT * FROM RelatedLinks WHERE Page='" & page & "' AND PageID=" & id & "")
%>
Date Created: <%=Area("DateCreated")%> Last Updated: <%=Area("LastUpdated")%>
Related Links
<%
If RelatedLinksRS.eof <> true Then
do until RelatedLinksRS.eof = true
%>
<%
RelatedLinksRS.MoveNext
Loop
Else
End If
%>
<%
Set RelatedLinksRS = nothing
Set AttorneysAreas = nothing
Set Area = nothing
End Sub
'**********EDIT NEWS ARTICLE**********
Sub EditNewsArticle(page,id)
Set Article = connect.execute("SELECT * FROM NewsArticles WHERE ArticleID=" & id & "")
%>
<%
Set Article = nothing
End Sub
'**********ADD ATTORNEY**********
Sub AddAttorney(page)
%>
<%
Set Areas = nothing
End Sub
'**********ADD AREA**********
Sub AddAreaOfPractice(page)
%>
<%
End Sub
'**********ADD NEWS ARTICLE**********
Sub AddNewsArticle(page)
%>
<%
End Sub
'**********DISPLAY LEFT-HAND PAGE NAVIGATION**********
Sub PageNavigation(page)
%>
<%
If page="attorneys" Then
Dim GetSort,SortBy,NavLinks_Attorneys,NavLinks_Counsel
Set GetSort = connect.execute("SELECT SortBy FROM AttorneySort WHERE ID=1")
SortBy = GetSort("SortBy")
Set NavLinks_Attorneys = connect.execute("SELECT * FROM Attorneys WHERE OfCounsel=0 ORDER BY " & SortBy)
Set NavLinks_Counsel = connect.execute("SELECT * FROM Attorneys WHERE OfCounsel=1 ORDER BY " & SortBy)
%>
Attorneys:
<%
n = 0
Do until NavLinks_Attorneys.eof
n = n + 1
%>
<%
NavLinks_Counsel.MoveNext
Loop
Elseif page="areas_of_practice" Then
Set NavLinks = connect.execute("SELECT * FROM Areas ORDER BY AreaID")
n = 0
Do until NavLinks.eof
n = n + 1
%>
<%
NavLinks.MoveNext
Loop
Elseif page="news" Then
Set NavLinks = connect.execute("SELECT * FROM NewsArticles ORDER BY AuthorDate DESC")
n = 0
Do until NavLinks.eof
n = n + 1
%>
'End If
%>
