<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%> <% Dim RS2 Dim RS2_numRows Set RS2 = Server.CreateObject("ADODB.Recordset") RS2.ActiveConnection = MM_CN_mag_STRING RS2.Source = "SELECT * FROM Nea ORDER BY SHORTING_NM DESC" RS2.CursorType = 0 RS2.CursorLocation = 2 RS2.LockType = 1 RS2.Open() RS2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RS2_numRows = RS2_numRows + Repeat1__numRows %> <% Session.LCID = 1032 SetLocale (1032) Session.CodePage = 1253 Response.Charset="windows-1253" %> Γενεαλογία και Ιστορία οικογένειας Πατσουράκου οικογένεια πατσουριάνων

Our villages and their history

Family history

News

<% While ((Repeat1__numRows <> 0) AND (NOT RS2.EOF)) %>

<%=(RS2.Fields.Item("DATING").Value)%>

<%=(RS2.Fields.Item("NEO_EN").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS2.MoveNext() Wend %>

<% RS2.Close() Set RS2 = Nothing %>