| |
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.
Malgré l'attention et le soin que nous portons à nos relevés, les erreurs de lecture sont inévitables. Il vous est conseillé de toujours les vérifier.
|
BMS (Baptèmes, Mariages, Sépultures) et EC(Etat Civil)
ou BMS/EC relevé rapide (Localisation d'un acte)
|
<%
'***** Recherche des BMS
SQL_Travaux="select * from Travaux where Type='BMS' 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
While Not RsTravaux.eof
' ATTENTION
' il faut tester different pour la rupture de commune
' sinon les lettres accentuees sont > que les lettres normales
'
If RsTravaux("Argtri") <> Commune then
Commune = RsTravaux("Argtri")
Nomcom = mid(Commune,2,40)
If Nomcom = "Releves" then
Response.Write("| " & "Relevés protestants (autour de Marvejols)" &" |
" & VbCr)
Else
Response.Write("| " & Nomcom &" |
" & VbCr)
end if
If Nomcom = "St Chély du Tarn" then
Response.Write("| " & " depuis 1971/1972 partagé entre Ste Enimie et Mas St Chély" &" |
" & VbCr)
End If
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
Set ConnLHG=Nothing
%>