<% 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;" Set Areas = connect.execute("SELECT * FROM Areas ORDER BY AreaName") Set AssignedAreas = connect.execute("SELECT * FROM Attorneys_Areas WHERE AttorneyID=" & Request("id") & " ORDER BY SortForAttorneys") Set AssignedBarAdmissions = connect.execute("SELECT * FROM Attorneys_BarAdmissions WHERE AttorneyID=" & Request("id") & " ORDER BY BarAdmissionID") Set AssignedEducation = connect.execute("SELECT * FROM Attorneys_Education WHERE AttorneyID=" & Request("id") & " ORDER BY EducationID") Set AssignedPublications = connect.execute("SELECT * FROM Attorneys_Publications WHERE AttorneyID=" & Request("id") & " ORDER BY PublicationID") %> ">

Add or remove attorney's properties and then close window.
Practice Areas
<% Dim AreaList AreaList = "" If AssignedAreas.eof<>true Then do until AssignedAreas.eof AreaList = AreaList & "|" & AssignedAreas("AreaID") & "| " AssignedAreas.MoveNext Loop AssignedAreas.MoveFirst End If %> <% do until Areas.eof %> <% If InStr(AreaList,"|" & Areas("AreaID") & "|")>0 Then %> <% Else %> "><%=Areas("AreaName")%> <% End If %> <% Areas.MoveNext Loop Areas.MoveFirst %>		<% If AssignedAreas.eof<>true Then do until AssignedAreas.eof set AssignedAreasInfo = connect.execute("SELECT * FROM Areas WHERE AreaID=" & AssignedAreas("AreaID") & "") %> " ><%=AssignedAreasInfo("AreaName")%> <% set AssignedAreasInfo = nothing AssignedAreas.MoveNext Loop End If %>
Bar Admissions
<% If AssignedBarAdmissions.eof <> true Then do until AssignedBarAdmissions.eof %> <% AssignedBarAdmissions.MoveNext Loop Else End If %> Bar Admission Year   <%=AssignedBarAdmissions("BarAdmission")%> <%=AssignedBarAdmissions("Year")%> '"> ">
Education
<% If AssignedEducation.eof <> true Then do until AssignedEducation.eof %> <% AssignedEducation.MoveNext Loop Else End If %> School Name Degree Acquired Year   <%=AssignedEducation("School")%> <%=AssignedEducation("Degree")%> <%=AssignedEducation("Year")%> '"> ">
Publications
<% If AssignedPublications.eof <> true Then do until AssignedPublications.eof %> <% AssignedPublications.MoveNext Loop Else End If %> Publication Info Year   <%=AssignedPublications("Publication")%> <%=AssignedPublications("PubYear")%> '"> ">