<% DomainName=Request.ServerVariables("HTTP_HOST") ScreenColour=Application("ScreenColour") ' Get Random Message and Author Randomize N=CInt(Rnd(1)*20) If N=0 Then N=1 End If SQL="select * from messages where SeqNo=" & N Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open(Application("ConnectionString")) Set RS=Conn.Execute(SQL) On Error Resume Next RandomMessage=RS("message") On Error Resume Next MessageAuthor=RS("author") If Err.Number<>0 Then RandomMessage=SQL End If RS.Close Conn.Close %> Loveys Family Tree Research Database


Welcome to the Loveys Genealogical Database          

Loveys Shield, granted 1620, Devon & Cornwall
The shield was granted thus
Beardon, co Cornwall; Robert Loveys,
Grandson of Leonard Loveys Esq., of Ogbeare, same co,
The son of Humphrey Loveys,
by Jane, dau of Hatch of co Devon,
Visit Cornwall 1620

"<% =RandomMessage %>"
<% =MessageAuthor %>

Hosted in Auckland, New Zealand.
(c) Copyright 2001,2014 Mark Loveys (NZ) and Keith Loveys (UK)