<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim RS1 Dim RS1_cmd Dim RS1_numRows Set RS1_cmd = Server.CreateObject ("ADODB.Command") RS1_cmd.ActiveConnection = MM_CN_mag_STRING RS1_cmd.CommandText = "SELECT * FROM news ORDER BY SHORTING_NM ASC" RS1_cmd.Prepared = true Set RS1 = RS1_cmd.Execute RS1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RS1_numRows = RS1_numRows + Repeat1__numRows %> <% Session.LCID = 1032 SetLocale (1032) Session.CodePage = 1253 Response.Charset="windows-1253" %> GENEALOGY AND HISTORY OF PATSOURAKOS FAMILY - Guest Book GENEALOGY AND HISTORY OF PATSOURAKOS FAMILY
Mani Our villages and their history Family history Family tree Picture gallery Historical Stories Guest book Contact

Guest Book

In that section of the site you can send me any kind of comments or remarks about genealogy of Patsourakos family.  Your comments will be published above soon.

First name * :
Last name *:
Tel.:
E-mail * :
Remarks - comments* :
 
Visitor's comments

<% While ((Repeat1__numRows <> 0) AND (NOT RS1.EOF)) %>
<%=(RS1.Fields.Item("TITLE").Value)%>
<%=(RS1.Fields.Item("DATING").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS1.MoveNext() Wend %>
<% RS1.Close() Set RS1 = Nothing %>