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

NOTRES VILLAGES ET LEURS HISTOIRES

HISTOIRE DE LA FAMILLE

ARBRE GENEALOGIQUE

HISTORIQUES - NARRATIONS

LIVRE D'OR

Dans cette section du site vous pouvez m'envoyer toute sorte de commentaires ou des remarques sur la genealogie de la famille Patsourakos. Vos commentaires seront publies ci-dessous bientot.

Nom* :

Prenom*:

Tel.:

E-mail * :

Commentaires-Remarques* :

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