Welcome

  History

  Families

  News

  Publications

  Genealogy

  Get Updates

  Links



  Summary Chart

Quick Find

<% sql="SELECT * FROM [person] ORDER BY LastName, FirstName, MiddleName, BirthDate" rs.source=sql rs.open do until rs.eof qfid=rs("ID") qflastname=replace(rs("LastName"),"*ap*","'") qffirstname=replace(rs("FirstName"),"*ap*","'") qfmiddlename=left(rs("MiddleName"),1) & "." qfbirthdate=replace(rs("BirthDate"),"*ap*","'") %> selected<%end if%>><%=qflastname%>, <%=qffirstname%> (<%=qfbirthdate%>) <% rs.movenext loop rs.close %>

What would you like to do?
Add new family member
Edit family member
Extract email addresses

---

<%if session("strErr")<>"" then%> <%=session("strErr")%> <%session("strErr")=""%> <%end if%> <%if session("strMsg")<>"" then%> <%=session("strMsg")%> <%session("strMsg")=""%> <%end if%> <%if request("action")="email" then%> <%sql="SELECT * FROM tbEmailList" rs.source=sql rs.open strEmail="" if not rs.eof then do until rs.eof email=rs("email") strEmail=strEmail & replace(email,"*ap*","'") & "; " rs.movenext loop end if if strEmail="" then strEmail="[no email addresses submitted]" end if rs.close%>
The text area contains all email addresses for people that wish to be contacted by mccullohreunion.org.
<%=strEmail%>

<%sql="SELECT * FROM tbEmailList" rs.source=sql rs.open i=0 if not rs.eof then%>

<%do until rs.eof i=i+1 id=rs("ID") fname=rs("FirstName") lname=rs("LastName") email=rs("Email") dateinserted=rs("DateInserted") if fname<>"" then fname=replace(fname,"*ap*","'") end if if lname<>"" then lname=replace(lname,"*ap","'") end if if email<>"" then email=replace(email,"*ap*","'") end if%> style="background-color:#CCFF00;"<%end if%>> <%rs.movenext loop%>

	Name	Email Address	Date Inserted
<%=i%>	<%if lname<>"" then%><%=lname%>, <%end if%><%=fname%>	<%if request("view") = "editemail" AND cint(request("id")) = id then%> <%else%> <%=email%> <%end if%>	<%=dateinserted%>	<%if request("view") = "editemail" AND cint(request("id")) = id then%> cancel <%else%> [Edit] <%end if%>	[Delete]

<%end if rs.close%> <%end if%> <%if request("action")="new" then%>

Add New Family Member

First Name	Middle Name	Last Name
Full Name
Birth Date	Death Date	Marriage Date
Spouse Spouse  [add] [remove] <% if SpouseCount<>"" then y=cint(SpouseCount) end if if inc="addspouse" then y=y+1 'add one spouse elseif inc="remspouse" then if y>1 then y=y-1 'remove one spouse end if end if if y="" then y=1 'default number of spouses to display end if i=0 'response.write("i=" & i & " " & "y=" & y & " ") 'response.End() do until i=y i=i+1 s="s" & i 'response.write("s: " & s & " ") %> <%=i%>.  <%sql="SELECT ID, FirstName, MiddleName, LastName, BirthDate FROM [person] ORDER BY LastName, FirstName, MiddleName, BirthDate" rs.source=sql rs.open do until rs.eof sid=rs("ID") sfirstname=replace(rs("FirstName"),"*ap*","'") smiddlename=replace(rs("MiddleName"),"*ap*","'") slastname=replace(rs("LastName"),"*ap*","'") sbirthdate=replace(rs("BirthDate"),"*ap*","'") %> <%if session(s)<>"" then%> selected <%end if%>value="<%=sid%>"><%=slastname%>, <%=sfirstname%> <%=smiddlename%> (<%=sbirthdate%>) <%else%> <%=slastname%>, <%=sfirstname%> <%=smiddlename%> (<%=sbirthdate%>) <%end if%> <%rs.movenext loop rs.close %> <% loop %>
Textarea commands: <br> = inserts line break, <i></i> = enclosed text is italic, <b></b> = enclosed text is bold, <li></li> = enclosed text is a bullet point, <center></center> = enclosed text is center aligned.
Biography <%=bio%>
Obituary <%=obituary%>
Miscellaneous <%=miscText%>
Miscellaneous URL
Descendants  [add] [remove] <% if DescendantCount<>"" then x=cint(DescendantCount) end if if inc="adddescendant" then x=x+1 'add one descendant elseif inc="remdescendant" then if x>1 then x=x-1 'remove one descendant end if end if if x="" then x=4 'default number of descendants to display end if i=0 'response.write("i=" & i & " " & "x=" & x & " ") 'response.End() do until i=x i=i+1 d="d" & i 'response.write("d: " & d & " ") %> <%=i%>.  <%sql="SELECT ID, FirstName, MiddleName, LastName, BirthDate FROM [person] ORDER BY LastName, FirstName, MiddleName, BirthDate" rs.source=sql rs.open do until rs.eof did=rs("ID") dfirstname=replace(rs("FirstName"),"*ap*","'") dmiddlename=replace(rs("MiddleName"),"*ap*","'") dlastname=replace(rs("LastName"),"*ap*","'") dbirthdate=replace(rs("BirthDate"),"*ap*","'") %> <%if session(d)<>"" then%> selected <%end if%>value="<%=did%>"><%=dlastname%>, <%=dfirstname%> <%=dmiddlename%> (<%=dbirthdate%>) <%else%> <%=dlastname%>, <%=dfirstname%> <%=dmiddlename%> (<%=dbirthdate%>) <%end if%> <%rs.movenext loop rs.close %> <% loop %>
Links  [add] [remove] <% if LinkCount<>"" then z=cint(LinkCount) end if if inc="addlink" then z=z+1 'add one link elseif inc="remlink" then if z>1 then z=z-1 'remove one link end if end if if z="" then z=2 'default number of links to display end if i=0 'response.write("i=" & i & " " & "y=" & y & " ") 'response.End() do until i=z i=i+1 l="l" & i ll="ll" & i 'response.write("d: " & d & " ") tempsessionl=replace(session(l),"*ap*","'") tempsessionll=replace(session(ll),"*ap*","'") %> <%=i%>. URL:      Label:  <% loop %>
Note: You may upload photos using the Edit form after you have initially added the family member to the database.

<%end if%> <%if request("action")="edit" or request("action")="" then%> <% 'clear out old ddl sessions for i = 1 to 20 s="s" & i i=i+1 session(s) = "" next for i = 1 to 50 d="d" & i i=i+1 session(d) = "" next %> Edit A Family Member

<% trstyle=0 sql="SELECT * FROM [person] ORDER BY LastName, FirstName, MiddleName, BirthDate" rs.source=sql rs.open do until rs.eof pid=rs("ID") fullname=replace(rs("FullName"),"*ap*","'") firstname=replace(rs("FirstName"),"*ap*","'") middlename=replace(rs("MiddleName"),"*ap*","'") lastname=replace(rs("LastName"),"*ap*","'") birthdate=replace(rs("BirthDate"),"*ap*","'") %> style="background-color:#DFE6F2;"<%end if%>> <% if trstyle=0 then trstyle=1 else trstyle=0 end if rs.movenext loop rs.close %>

ID	LAST NAME	FIRST NAME	MIDDLE NAME	FULL NAME	BIRTH DATE
<%=pid%>	<%=lastname%>	<%=firstname%>	<%=middlename%>	<%=fullname%>	<%=birthdate%>	Edit    Delete

<%end if%> <%if request("action")="view" then%>

Edit Family Member

First Name	Middle Name	Last Name
Full Name
Birth Date	Death Date	Marriage Date
<% if SpouseCount<>"" then zz=cint(SpouseCount) end if if inc="addspouse" then zz=zz+1 'add one descendant elseif inc="remspouse" then if zz>1 then zz=zz-1 'remove one descendant end if end if if zz="" then zz=1 'default number of descendants to display elseif zz=0 then zz=1 end if i=0 'response.write("i=" & i & " " & "zz=" & zz & " ") 'response.End() %> Spouse  [add] [remove] (Removing an item will not delete it; instead, use Delete or select the blank option in the drop down list) <% do until i=zz i=i+1 s="s" & i if not session(s)="" then 'response.write("s: " & s & " ") 'get spouseID if sexist then 'only do this if there are spouses in the db sql="SELECT ID FROM [spouse] WHERE pID = " & pid & " AND SpouseID = " & session(s) 'response.write("sql: " & sql & " ") rs.source=sql rs.open if not rs.eof then deleteid=rs("ID") 'response.write("not rs.eof ") else 'response.write("rs.eof ") deleteid=-1 end if rs.close end if end if sql="SELECT ID, FirstName, MiddleName, LastName, BirthDate FROM [person] ORDER BY LastName, FirstName, MiddleName, BirthDate" rs.source=sql rs.open %> <%=i%>.  <% do until rs.eof sid=rs("ID") sfirstname=replace(rs("FirstName"),"*ap*","'") smiddlename=replace(rs("MiddleName"),"*ap*","'") slastname=replace(rs("LastName"),"*ap*","'") sbirthdate=replace(rs("BirthDate"),"*ap*","'") %> <%if session(s)<>"" then%> selected <%end if%>value="<%=sid%>"><%=slastname%>, <%=sfirstname%> <%=smiddlename%> (<%=sbirthdate%>) <%else%> <%=slastname%>, <%=sfirstname%> <%=smiddlename%> (<%=sbirthdate%>) <%end if%> <%rs.movenext loop rs.close %> <%if not session(s)="" then%> <%'if zz>1 and not zerospouses then%> [Delete] <%'end if%> <%end if%> <% loop %>
Textarea commands: <br> = inserts line break, <i></i> = enclosed text is italic, <b></b> = enclosed text is bold, <li></li> = enclosed text is a bullet point, <center></center> = enclosed text is center aligned.
Biography <%=bio%>
Obituary <%=obituary%>
Miscellaneous <%=miscText%>
Miscellaneous URL
<% if DescendantCount<>"" then x=cint(DescendantCount) end if if inc="adddescendant" then x=x+1 'add one descendant elseif inc="remdescendant" then if x>1 then x=x-1 'remove one descendant end if end if if x="" then x=4 'default number of descendants to display elseif x=0 then x=1 end if i=0 'response.write("i=" & i & " " & "x=" & x & " ") 'response.End() %> Descendants  [add] [remove] (Removing an item will not delete it; instead, use Delete or select the blank option in the drop down list) <% do until i=x i=i+1 d="d" & i if not session(d)="" then 'response.write("d: " & d & " ") 'get descendantID if dexist then 'only do this if there are descendants in the db sql="SELECT ID FROM [descendant] WHERE pID = " & pid & " AND DescendantID = " & session(d) 'response.write("sql: " & sql & " ") rs.source=sql rs.open if not rs.eof then deleteid=rs("ID") 'response.write("not rs.eof ") else 'response.write("rs.eof ") deleteid=-1 end if rs.close end if end if sql="SELECT ID, FirstName, MiddleName, LastName, BirthDate FROM [person] ORDER BY LastName, FirstName, MiddleName, BirthDate" rs.source=sql rs.open %> <%=i%>.  <% do until rs.eof did=rs("ID") dfirstname=replace(rs("FirstName"),"*ap*","'") dmiddlename=replace(rs("MiddleName"),"*ap*","'") dlastname=replace(rs("LastName"),"*ap*","'") dbirthdate=replace(rs("BirthDate"),"*ap*","'") %> <%if session(d)<>"" then%> selected <%end if%>value="<%=did%>"><%=dlastname%>, <%=dfirstname%> <%=dmiddlename%> (<%=dbirthdate%>) <%else%> <%=dlastname%>, <%=dfirstname%> <%=dmiddlename%> (<%=dbirthdate%>) <%end if%> <%rs.movenext loop rs.close %> <%if not session(d)="" then%> <%'if x>1 and not zerodescendants then%> [Delete] <%'end if%> <%end if%> <% loop %>
Links  [add] [remove] (Removing an item will not delete it; instead, use the Delete link next to the item) <% if LinkCount<>"" then z=cint(LinkCount) end if if inc="addlink" then z=z+1 'add one link elseif inc="remlink" then if z>1 then z=z-1 'remove one link end if end if if z="" then z=2 'default number of links to display elseif z=0 then z=1 end if i=0 'response.write("i=" & i & " " & "y=" & y & " ") 'response.End() do until i=z i=i+1 l="l" & i ll="ll" & i if not session(l)="" then 'response.write("d: " & d & " ") 'get photoID sql="SELECT ID FROM [link] WHERE pID = " & pid & " AND LinkURL = '" & session(l) & "' AND LinkLabel = '" & session(ll) & "'" 'response.write("sql: " & sql & " ") rs.source=sql rs.open if not rs.eof then deleteid=rs("ID") else deleteid=-1 end if 'response.write("deleteid: " & deleteid & " ") rs.close tempsessionl=replace(session(l),"*ap*","'") tempsessionll=replace(session(ll),"*ap*","'") end if %> <%=i%>. URL:      Label:  <%if not session(l)="" then%> [Delete] <%end if%> <% loop %>

» Upload Images

Current Images Use the Upload Images link above to overwrite the current main image by uploading a new one, or to upload new additional images (will not overwrite the current additional images). To delete current additional images, click [delete] next to the image name in the list below. <%if session("image1")<>"" then%> Main image: <%=session("image1")%> "> <%end if%> <% sql="SELECT * FROM [image] WHERE pID = " & pid rs.source=sql rs.open if rs.eof then%> no additional images on file <%else i=1 do until rs.eof id=rs("ID") imagelabel=rs("ImageLabel") if imagelabel<>"" then imagelabel=replace(imagelabel,"*ap*","'") end if imageurl=rs("ImageURL") %> Additional Image <%=i%>: <%=imageurl%> [delete] Caption: <%if imagelabel="" or isnull(imagelabel) then%>no caption<%else%>"<%=imagelabel%>"<%end if%> [edit caption] [cancel] <% i=i+1 rs.movenext loop end if rs.close %>

<%end if%>