<% '***** 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 études diverses SQL_Travaux="select * from Travaux where Type='Divers' order by Argtri desc" 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.

Documents divers

" & Nomfic & "

" & RsTravaux("TxTFichier") & "