<%@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
MiscText=rs("Misc")
if MiscText<>"" then
MiscText=replace(MiscText,"*ap*","'")
end if
MiscURL=rs("MiscURL")
FullName=rs("FullName")
FirstName=rs("FirstName")
LastName=rs("LastName")
BirthDate=rs("BirthDate")
DeathDate=rs("DeathDate")
rs.close
title="Miscellaneous: " & FirstName & " " & BirthDate
%>
<%=title%>
Welcome