<%
sqltext = "SELECT * FROM Legal_assistants Order BY id"
rs.open sqltext,conn,2,2
if not rs.bof then
Do While not rs.eof
id = rs("id")
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Logo
thePath = server.mappath("attorney.asp")
thePath = left(thePath,len(thePath)-20) & "images\attorneys\"
' "
photofilename = "legal_" & id
photo = FindFile(photofilename,thePath)
if photo = "" then
theImage = ""
else
theImage = "![Legal Assistant Photo](../images/attorneys/" & photo & ")
"
end if
PageContent = PageContent & theImage & "" & trim(rs("FirstName")) & " " & trim(rs("LastName")) & "
" & vbCrLf
PageContent = PageContent & trim(rs("Title")) & "
" & vbCrLf
Bio = trim(rs("Bio"))
if Bio <> "" then Bio = replace(Bio,vbCrLf,"
")
PageContent = PageContent & Bio & "
" & vbCrLf
Phone = trim(rs("Phone"))
if Phone <> "" then
PageContent = PageContent & "Phone: " & Phone & "
" & vbCrLf
end if
Fax = trim(rs("Fax"))
if Fax <> "" then
PageContent = PageContent & "Fax: " & Fax & "
" & vbCrLf
end if
Email = trim(rs("Email"))
if Email <> "" then
PageContent = PageContent & "" & Email & "" & vbCrLf
end if
PageContent = PageContent & "
"
rs.MoveNext
Loop
end if
rs.close
PageHeader = "" & _
"" & _
" | " & _
"
" & _
" " & _
" |
"
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
%>
Morris Pickering Law Firm, Litigation Attorneys at Law
<%= PageContent %>