|
| |
Les relevés systématiques et les travaux présents sur notre site sont la propriété de l'association. Ils sont d'ailleurs tous enregistrés chez Copyright. Ils sont destinés aux généalogistes amateurs pour un usage personnel et tout commerce est formellement INTERDIT. Il est également interdit de publier nos relevés systématiques sous quelque autre format que ce soit . Les associations de généalogie, les sociétés ou les particuliers ne peuvent en aucun cas les publier sur leur site Internet. Pour tout autre référencement, nous contacter.
| |
<%
'***** Recherche des analyse de notariat de Philippe Maurice
SQL_Travaux="select * from Travaux where Type='Mnotariat' order by Argtri asc, TxtFichier asc"
set RsTravaux = Server.CreateObject("ADODB.Recordset")
RsTravaux.Open SQL_Travaux, ConnLHG, 3, 3
Commune=""
If Not RsTravaux.eof Then
Response.Write("Notaires du Gévaudan, analysés par Philippe Maurice, historien | " & VbCr)
%>
| |
<%
While Not RsTravaux.eof
' attention
' il faut tester different pour la rupture de commune
' si on teste > les lettres accentuees sont < que les lettres normales
' le cas de séverac par rapport à St Chély
'
If RsTravaux("Argtri") <> Commune then
Commune = RsTravaux("Argtri")
Nomcom = mid(Commune,2,40)
Response.Write("| " & Nomcom &" | " & VbCr)
End If
' test nouveauté avec * au début du libellé
Nouv = RsTravaux("TxtFichier")
Nouveau = mid(Nouv,1,1)
If Nouveau = "*" then
Nomfic = replace(Nouv,"*"," ")
Response.Write(" " & Nomfic & " | " & VbCr)
Else
Response.Write(" " & RsTravaux("TxTFichier") & " | " & VbCr)
End If
RsTravaux.MoveNext
Wend
End If
'*********
%>
| |
<%
'**********
'***** Recherche des études et articles de Philippe Maurice
SQL_Travaux="select * from Travaux where Type='Marticle' order by Argtri desc"
set RsTravaux = Server.CreateObject("ADODB.Recordset")
RsTravaux.Open SQL_Travaux, ConnLHG, 3, 3
If Not RsTravaux.eof Then
Response.Write("Études et articles de Philippe Maurice | " & VbCr)
While Not RsTravaux.eof
' test nouveauté avec * au début du libellé
Nouv = RsTravaux("TxtFichier")
Nouveau = mid(Nouv,1,1)
If Nouveau = "*" then
Nomfic = replace(Nouv,"*"," ")
Response.Write("| " & Nomfic & " | " & VbCr)
Else
Response.Write("| " & RsTravaux("TxTFichier") & " | " & VbCr)
End If
RsTravaux.MoveNext
Wend
End If
Set ConnLHG=Nothing
%>
| |
|
