<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%'are we logged in?
if session("allow")<>"true" then
response.redirect("../mcculloh_reunion_004.htm")
end if
'setup connection string
set cn=server.createobject("ADODB.Connection")
cn.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..\db\mccullohreunion.mdb") & ";Persist Security Info=False"
set rs=server.createobject("ADODB.Recordset")
rs.activeconnection=cn
set rs2=server.createobject("ADODB.Recordset")
rs2.activeconnection=cn
'get info to fill in page
'personID
pid=request("pid")
'get person main info
sql="SELECT * FROM [person] WHERE ID = " & pid
rs.source=sql
rs.open
FullName=rs("FullName")
FirstName=rs("FirstName")
LastName=rs("LastName")
BirthDate=rs("BirthDate")
DeathDate=rs("DeathDate")
rs.close
title="Photos: " & FirstName & " " & BirthDate
%>
<%=title%>
<%
sql="SELECT * FROM [image] WHERE pID = " & pid
rs.source=sql
rs.open
do until rs.eof
imagelabel=rs("ImageLabel")
if imagelabel<>"" then
imagelabel=replace(imagelabel,"*ap*","'")
end if
imageurl="http://www.mccullohreunion.org/images/" & rs("ImageURL")
%>
Welcome