<% '***** Connection Set ConnLHG = Server.CreateObject("ADODB.Connection") ConnLHG.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\wwwroot\lozere-histoire-genealogie.com\databases\LHG.mdb;" '***** Recherche des BMS SQL_Travaux="select * from Travaux" set RsTravaux = Server.CreateObject("ADODB.Recordset") RsTravaux.Open SQL_Travaux, ConnLHG, 3, 3 %> <% '***** Recherche des capitations C55, C56, C57 SQL_Travaux="select * from Travaux where Type='C5X' order by Argtri asc" set RsTravaux = Server.CreateObject("ADODB.Recordset") RsTravaux.Open SQL_Travaux, ConnLHG, 3, 3 If Not RsTravaux.eof Then Response.Write("" & 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("" & VbCr) Else Response.Write("" & VbCr) End If RsTravaux.MoveNext Wend End If %> <% '***** Recherche des capitations C61 SQL_Travaux="select * from Travaux where Type='C6X' order by Argtri asc" set RsTravaux = Server.CreateObject("ADODB.Recordset") RsTravaux.Open SQL_Travaux, ConnLHG, 3, 3 If Not RsTravaux.eof Then Response.Write("" & 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("" & VbCr) Else Response.Write("" & VbCr) End If RsTravaux.MoveNext Wend End If %> <% '***** Recherche des capitations autres annees SQL_Travaux="select * from Travaux where Type='Capitation' order by Argtri asc" set RsTravaux = Server.CreateObject("ADODB.Recordset") RsTravaux.Open SQL_Travaux, ConnLHG, 3, 3 If Not RsTravaux.eof Then Response.Write("" & 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("" & VbCr) Else Response.Write("" & VbCr) End If RsTravaux.MoveNext Wend End If %> <% '***** Recherche des capitations états des pauvres SQL_Travaux="select * from Travaux where Type='Pauvres' order by Argtri asc" set RsTravaux = Server.CreateObject("ADODB.Recordset") RsTravaux.Open SQL_Travaux, ConnLHG, 3, 3 If Not RsTravaux.eof Then Response.Write("" & 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("" & VbCr) Else Response.Write("" & VbCr) End If RsTravaux.MoveNext Wend End If Set ConnLHG=Nothing %>

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.

Capitations C55, C56, C57 (environ 1695)

" & Nomfic & "

" & RsTravaux("TxTFichier") & "

Capitations C61 (environ 1736)

" & Nomfic & "

" & RsTravaux("TxTFichier") & "

Capitations (cotes et années diverses)

" & Nomfic & "

" & RsTravaux("TxTFichier") & "

État de la pauvreté en Gévaudan (y compris canton de Saugues) année 1700

" & Nomfic & "

" & RsTravaux("TxTFichier") & "