<% OpenConnection today = Date() ThisMonth = datepart("m",today) CurrMonthName = MonthName(ThisMonth) %>

The Archie Family! <% today = now() Response.write today & " date " If today >= #10/20/2023 09:00:01 PM# Then %> <% End If %> Family Tree Photo Albums Name Search Guest Book Contact Peter Anthony Tristan Henry Jude Brynn Madison Shae Eileen Liliana James Carmine Charles   New Addition Peter Anthony Cupo III Born on Sunday, June 24th 2018 at 4:27am weighing 6lbs 4oz and 20.25” in length!     Happy 28th Anniversary Lorraine! Click for Memories     <%=CurrMonthName%> Special Dates <% Set rsBD = GetRecordset("SELECT * FROM tbl_Anniv Where str_anniv_BornMonth = '" & ThisMonth & "' AND str_anniv_Died = 'N/A' ORDER BY str_anniv_BornDay;", True) 'Make sure there are results If rsBD.State =0 Or rsBD.EOF And rsBD.BOF Then %> Happy Birthday List (No Birthdays in this Month) <% Else %> <% rsBD.MoveFirst While Not rsBD.EOF %> <% rsBD.MoveNext Wend %> Happy Birthday List <%=rsBD("str_anniv_FirstName")%> <%=rsBD("str_anniv_MiddleName")%>   On - <%=rsBD("str_anniv_BornMonth")%>/<%=rsBD("str_anniv_BornDay")%> <% End If %> <% Set rsAnn = GetRecordset("SELECT * FROM tbl_Anniv Where str_anniv_MarriedMonth = '" & ThisMonth & "' AND str_anniv_Died = 'N/A' AND str_anniv_Couple<>'' ORDER BY str_anniv_MarriedDay;", True) 'Make sure there are results If rsAnn.State =0 Or rsAnn.EOF And rsAnn.BOF Then %> Happy Anniversary List (No Anniversary's in this Month) <% Else %> <% rsAnn.MoveFirst While Not rsAnn.EOF %> <% rsAnn.MoveNext Wend %> Happy Anniversary List <%=rsAnn("str_anniv_Couple")%>   On - <%=rsAnn("str_anniv_MarriedMonth")%>/<%=rsAnn("str_anniv_MarriedDay")%>/<%=rsAnn("str_anniv_MarriedYear")%> <% End If %> <% Set rsBD = GetRecordset("SELECT * FROM tbl_Anniv Where str_anniv_DiedMonth = '" & ThisMonth & "' AND str_anniv_Died <> 'N/A' ORDER BY str_anniv_DiedDay;", True) 'Make sure there are results If rsBD.State =0 Or rsBD.EOF And rsBD.BOF Then %> <% Else %> <% rsBD.MoveFirst While Not rsBD.EOF %> <% rsBD.MoveNext Wend %> Memory Box <%=rsBD("str_anniv_FirstName")%> <%=rsBD("str_anniv_MiddleName")%>   From - <%=rsBD("str_anniv_BornMonth")%>/<%=rsBD("str_anniv_BornDay")%>/<%=rsBD("str_anniv_BornYear")%>    To - <%=rsBD("str_anniv_DiedMonth")%>/<%=rsBD("str_anniv_DiedDay")%>/<%=rsBD("str_anniv_DiedYear")%> <% End If %>     Take the Journey Domenic age 37 left Montecorvino, Italy with his wife Mary and Son Patrick and went to Naples, Italy.     From Naples They left for the United States. Port of embarkation was Naples, on the Ship Alesia     Arrived in New York May 18th, 1883 Settled in Philadelphia Changed name to Archie

Archie Families Coat of Arms

Click here for a Family Tree Outline

<% set fso = createobject("scripting.filesystemobject") if session("enterd_before") = "" then session("enterd_before") = "Yes" ' reads and adds a one to the selected value g_selectedmain="_vti_log/ArchMain.txt" set act = fso.opentextfile(server.mappath(g_selectedmain)) countermain = clng(act.readline) countermain = countermain + 1 act.close Set act = fso.CreateTextFile(server.mappath(g_selectedmain), true) act.WriteLine(countermain) act.Close end if %> <% g_selectedmain="_vti_log/ArchMain.txt" set act = fso.opentextfile(server.mappath(g_selectedmain)) counter_main = clng(act.readline) %>

You Are The

<% =counter_main %>

Person To Visit Our Family Site.

<% Set rsCount = Nothing Set rsBD = Nothing CloseConnection %> <% Sub LoadInformation() OpenConnection Set rsCount1 = GetRecordSet("SELECT * FROM tbl_Counter where id_Counter_ID =" & CountInt , true) rsCount1("id_Counter_Date") = today rsCount1("id_Counter_Num") = CountNumber rsCount1.Update CloseConnection Set rsCount1 = nothing End Sub %>