<% PageHeader = "" & _ "" & _ "" & _ "" & _ "

" & _ "

" %> <% id = request.querystring("id") if id <> "" then 'Get existing data sqltext = "SELECT * FROM Attorneys WHERE AttorneyId = " & id rs.Open sqltext, Conn,2,2 if not rs.bof then FirstName = trim(rs("FirstName")) FirstName = replace(FirstName," "," ") LastName = trim(rs("LastName")) LastName = replace(LastName," "," ") Title = (rs("title")*1) select case title case 0 Title = "Associate" case 1 Title = "Partner" case 2 Title = "Of Counsel" case 3 Title = "Law Clerk" end select Phone = trim(rs("Phone")) if Phone <> "" then Phone = Phone & "
" Fax = trim(rs("FAX")) if FAX <> "" then Fax = Fax & "
" Email = trim(rs("email")) if email <> "" then email = "" & email & "" Bio = rs("Bio") Bio = replace(bio,vbCrLf,"
") Bio = replace(bio," ","   ") Bio = replace(bio," ","  ") end if rs.close end if 'Find Files for attorney photo holes Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'Logo thePath = server.mappath("attorney.asp") thePath = left(thePath,len(thePath)-20) & "images\attorneys\" ' " photofilename = "attorney_" & id photo = FindFile(photofilename,thePath) if photo = "" then theImage = "" else theImage = "" end if Results = "Partners
" & GetAttorney(1,WhereClause) Results = Results & "
Associates
" & GetAttorney(0,WhereClause) 'Results = Results & GetAttorney(2,WhereClause) 'Results = Results & "
Law Clerks
" & GetAttorney(3,WhereClause) Function GetAttorney(Title, Clause) sqltext = "SELECT * FROM Attorneys " & Clause & " WHERE Title = " & Title & " ORDER BY AttorneyId" ' response.write sqltext ' sqltext = "SELECT * FROM Attorneys WHERE lastname = 'Applewhite' ORDER BY AttorneyId" rs.Open sqltext, Conn,2,2 if not rs.bof then Do While not rs.eof theResults = theResults & "" & trim(rs("LastName")) & ", " & trim(rs("FirstName")) & "
" rs.MoveNext Loop end if rs.close 'response.write theresults GetAttorney = theResults end function 'conn.close Function FindFile(thefile,myPath) MyFile = thefile & ".gif" if fsoObject.FileExists(myPath & myfile) then 'use gif Filename = myfile else 'use jpg Filename = thefile & ".jpg" if fsoObject.FileExists(myPath & Filename) then else Filename = "" end if end if FindFile = Filename End Function %>

<%= theImage %> <%= FirstName %> <%= LastName %> <%= Title %> <%= Bio %> Phone: <%= Phone %> Fax: <%= Fax %> Email: <%= Email %>

<%= Results %>