<%
Nb = Request.QueryString("nb")
ID = Request.QueryString("id")
ArrayLinks = Array("joanny3", "pilonniere", "gatilles", "pave", "cray3", "cray1", "cray2", "dru", "rageats", "bouviers", "neyrie", "billette", "brasse", "caille", "grandmont", "salome", "longsard", "daventure", "joanny1", "joanny2", "joanny3", "", "cray4")
PrevID = ""
NextID = ""
ArrayTmp = Split(Nb, ".")
If Nb <>"" AND ID <> "" Then
If UBound(ArrayTmp) >= 2 Then
For I = 0 To UBound(ArrayTmp)
If ArrayTmp(I) = ID Then
If ArrayTmp(I) = ArrayTmp(0) Then
PrevID = ArrayTmp(I + 1)
ElseIf ArrayTmp(I) = ArrayTmp(UBound(ArrayTmp)) Then
NextID = ArrayTmp(I - 1)
Else
PrevID = ArrayTmp(I + 1)
NextID = ArrayTmp(I - 1)
End If
End If
Next
End If
End If
%>
Brac de la Perriere - Māconnais - Beaujolais
Henri Brac de la Perrière
- Roland Perret du Cray
Château de Lancié - 69220 LANCIE - FRANCE
Tél. +33 (0)4 74 69 86 50 - Fax +33 (0)4 74 69 86 54
info@bracdelaperriere.com
www.bracdelaperriere.com
