| |
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.
| |
<%
'***** Recherche des dénombrements
SQL_Travaux="select * from Travaux where Type='Denombre' order by Argtri asc"
set RsTravaux = Server.CreateObject("ADODB.Recordset")
RsTravaux.Open SQL_Travaux, ConnLHG, 3, 3
If Not RsTravaux.eof Then
Response.Write("| Dénombrements de population (G714, G715) | " & 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
%>
<%
'***** Recherche des dénombrements G1000
SQL_Travaux="select * from Travaux where Type='DeG1000' order by Argtri asc"
set RsTravaux = Server.CreateObject("ADODB.Recordset")
RsTravaux.Open SQL_Travaux, ConnLHG, 3, 3
If Not RsTravaux.eof Then
Response.Write("| G1000 - États des nouveaux convertis et fugitifs - 1697 | " & 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
%>
<%
'***** Recherche des terriers et compoix
SQL_Travaux="select * from Travaux where Type='Terrier' order by Argtri asc"
set RsTravaux = Server.CreateObject("ADODB.Recordset")
RsTravaux.Open SQL_Travaux, ConnLHG, 3, 3
If Not RsTravaux.eof Then
Response.Write("| Terriers, Compoix | " & 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
%>
|