|
Summary Table
Click someone's name to go to their page, or click a link next to their name to go directly to that section of their profile.
<%
trstyle=0
sql="SELECT * FROM [person] ORDER BY LastName, FirstName, MiddleName, BirthDate"
rs.source=sql
rs.open
do until rs.eof
photo2=false
bio2=false
obituary2=false
misc=false
gallery=false
links=false
pid=rs("ID")
firstname=replace(rs("FirstName"),"*ap*","'")
middlename=replace(rs("MiddleName"),"*ap*","'")
lastname=replace(rs("LastName"),"*ap*","'")
birthdate=replace(rs("BirthDate"),"*ap*","'")
Photo=rs("Image1")
Bio=rs("Bio")
Obituary=rs("Obituary")
MiscText=rs("Misc")
MiscURL=rs("MiscURL")
if Photo<>"" then
photo2=true
end if
if Bio<>"" then
bio2=true
end if
if Obituary<>"" then
obituary2=true
end if
if MiscText<>"" or MiscURL<>"" then
misc=true
end if
'are there photos for this person?
sql="SELECT count(*) FROM [image] WHERE pID = " & pid
set rsCount = cn.execute(sql)
photoCount=rsCount(0)
if photoCount>0 then
gallery=true
end if
'are there links for this person?
sql="SELECT count(*) FROM [link] WHERE pID = " & pid
set rsCount = cn.execute(sql)
linkCount=rsCount(0)
if linkCount>0 then
links=true
end if
%>
| <%=lastname%>, <%=firstname%> <%=middlename%> (<%=birthdate%>) |
<%if photo2 then%>
Photo
<%end if%>
|
<%if bio2 then%>
Bio
<%end if%>
|
<%if obituary2 then%>
Obituary
<%end if%>
|
<%if gallery then%>
Gallery
<%end if%>
|
<%if links then%>
Links
<%end if%>
|
<%if misc then%>
Misc
<%end if%>
|
<%
if trstyle=0 then
trstyle=1
else
trstyle=0
end if
rs.movenext
loop
rs.close
%>
|
Welcome