<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%> <% 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" %> Γενεαλογία και Ιστορία οικογένειας Πατσουράκου οικογένεια πατσουριάνων

Τα χωριά μας

Ιστορία της οικογένειας

Οικογενειακό δένδρο

Φωτογραφικό αρχείο

Ιστορικά - Ανέκδοτα - Διηγήσεις

Επικοινωνία

Guest Book

Στην ενότητα αυτή μπορείτε να κάνετε οποιοδήποτε σχόλιο για τη γενεαλογία και την ιστορία της οικογένειας Πατσουράκου και σύντομα αυτό θα δημοσιευτεί στα σχόλια επισκεπτών.

Όνομα* :

Επώνυμο*:

Τηλ.:

E-mail * :

Σχόλια - παρατηρήσεις* :

Σχόλια επισκεπτών

<% 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 %>