<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim cLocation 'As String
Dim rsComments 'As ADODB.RecordSet
Dim cName 'As String
Dim cSignDate 'As String
Dim cComments 'As String
Dim adoCon_String
adoCon_String = "dsn=cnailor-GuestBook;"
Set rsComments = Server.CreateObject("ADODB.Recordset")
rsComments.ActiveConnection = adoCon_String
rsComments.CursorType = 0
rsComments.CursorLocation = 2
rsComments.LockType = 1
rsComments.Open("SELECT * FROM GuestBook WHERE Domain = 'History' ORDER BY DateAdded DESC")
Dim a_strContent 'As Array of strings
Dim intLoop 'As Integer
Dim cParentPage 'As String
Dim cCheckVar 'As String
a_strContent = Split(Request.ServerVariables("ALL_HTTP"), Chr(10))
cParentPage = "http://www.grandkids.cenaynailor.com"
For intLoop = 0 to UBound(a_strContent) - 1
cCheckVar = Left(a_strContent(intLoop),InStr(a_strContent(intLoop), ":") - 1)
if cCheckVar = "HTTP_REFERER" then
cParentPage = Mid(a_strContent(intLoop), InStr(a_strContent(intLoop), ":") + 1)
end if
Next ' intLoop
%>
Update History
Website Update History
Okay, all these little notes left all over the place are just getting in the way, but I don't want to lose the "history" of
the site since we are trying to preserve this for Raven and Tallen. So... I added this page and starting now, I will move all
the notes here after they have served their purpose. So -- Raven Honey and Little Man Tallen -- here is proof you are loved.
In fact, this should be proof that you all are since the updates are really for you guys... [Mom,
Dad, Alice, Celeste, Gaylen, Ashley, Eric, Gen, Colin, Christopher, Cameron, John, Tracy, Jimbo, Tosha, Joshua, Zachary and all
the folks on Glenn's side of the family...]
