Y a t'il une fonction vb simple qui permet d'évaluer si un nombre est pair
ou impair ?
Dans les formulaires de type tableau, comment puis je faire pour alterner la
couleur des lignes : 1 ligne en blanc, l'autre en bleu. Si je supprime un e
ligne, le décalage de couleur doit également se faire.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
if 6 Mod 2 = 0 then msgbox "6 est pair"
pour les lignes en couleurs voir : http://officesystem.access.free.fr/formulaires_en_couleurs.htm -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" a écrit dans le message de news:
Bonjour,
Y a t'il une fonction vb simple qui permet d'évaluer si un nombre est pair ou impair ?
Dans les formulaires de type tableau, comment puis je faire pour alterner la couleur des lignes : 1 ligne en blanc, l'autre en bleu. Si je supprime un e ligne, le décalage de couleur doit également se faire.
Merci d'avance
Antoine
Bonjour.
if 6 Mod 2 = 0 then msgbox "6 est pair"
pour les lignes en couleurs voir :
http://officesystem.access.free.fr/formulaires_en_couleurs.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" <Antoine@discussions.microsoft.com> a écrit dans le message de
news: 57583898-C00F-42BE-8584-9FF78264BEE0@microsoft.com...
Bonjour,
Y a t'il une fonction vb simple qui permet d'évaluer si un nombre est pair
ou impair ?
Dans les formulaires de type tableau, comment puis je faire pour alterner
la
couleur des lignes : 1 ligne en blanc, l'autre en bleu. Si je supprime un
e
ligne, le décalage de couleur doit également se faire.
pour les lignes en couleurs voir : http://officesystem.access.free.fr/formulaires_en_couleurs.htm -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" a écrit dans le message de news:
Bonjour,
Y a t'il une fonction vb simple qui permet d'évaluer si un nombre est pair ou impair ?
Dans les formulaires de type tableau, comment puis je faire pour alterner la couleur des lignes : 1 ligne en blanc, l'autre en bleu. Si je supprime un e ligne, le décalage de couleur doit également se faire.
Merci d'avance
Antoine
LARNAUDIE Serge
un petit exemple en asp avec en plus un changement dfe couleur quand la souris passe sur la ligne : <html> <head> <title>Liste des Zones Géographique par commune</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <STYLE> TR.changer {color:#ffffff; background:#0099FF} TR.lignePaire {BACKGROUND-COLOR:#D4FFFF;COLOR: black;} TR.ligneImpaire {BACKGROUND-COLOR:#7FFFFF;COLOR: black;} </STYLE> </head> <body bgcolor="#FFFFFF" text="#000000"> <table WIDTH="100%" BORDER="0"> <tr> <td WIDTH="7%" HEIGHT="240"> </td> <td WIDTH="84%" HEIGHT="240" VALIGN="TOP"> <div ALIGN="CENTER"> <p><a NAME="haut"></a>Liste des ZG<br> <form action="z.asp?" method="get"> Voir les communes commencant par <input name="L" type="text" id="L" value=<%=lettre%>> <input type="submit" name="Submit" value="Envoyer"> <br> <font size="-3">(Attendre l'affichage du bouton NetAuvergne à droite) </font> </form> <a name="haut">Cliquez sur le nom de la commune pour voir les ZTX</a></p> <table BORDER="1" WIDTH="66%" BORDERCOLOR="#66FFFF" ALIGN="CENTER" HEIGHT="73"> <tr> <td WIDTH="290" HEIGHT="17" BGCOLOR="#FFFFFF"> <div ALIGN="CENTER"><font SIZE="-1">Commune: </font></div> </td> <td WIDTH="79" HEIGHT="17" BGCOLOR="#99FFFF"> <div ALIGN="CENTER"><font SIZE="-1">CCOM: </font></div> </td> <td WIDTH="74" HEIGHT="17" BGCOLOR="#99FFFF"> <div ALIGN="CENTER"><font SIZE="-1">UC: </font></div> </td> <td WIDTH="65" HEIGHT="17" BGCOLOR="#99FFFF"> <div ALIGN="CENTER"><font SIZE="-1">ZG: </font></div> </td> </tr> <% ' Recuperation des zg : Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "DSNBc" a=0 set result=server.createObject("ADODB.Recordset") result.open "select * from zgt order by commune", MyConn on error resume next result.movefirst do while not result.eof a=a+1 If (a Mod 2) <>0 Then Response.Write "<DIV name><TR class='lignePaire' OnMouseOver=""this.className='changer';"" OnMouseOut=""this.className='lignePaire';"">" Else Response.Write "<DIV><TR class='ligneImpaire' OnMouseOver=""this.className='changer';"" OnMouseOut=""this.className='ligneImpaire';"">" End If %> <td WIDTH="290" HEIGHT="20"><font SIZE="-1"><% result("commune")%></font></td> <td WIDTH="79" HEIGHT="20"> <div ALIGN="CENTER"><font SIZE="-1"><%= result("ccom") %></font></div> </td> <td WIDTH="74" HEIGHT="20"> <div ALIGN="CENTER"><font SIZE="-1"><%= result("cuc") %></font></div> </td> <td WIDTH="65" HEIGHT="20"> <div ALIGN="CENTER"><font SIZE="-1"><%= result("zg-autodoc") %></font></div> </td> </tr> <%result.movenext loop %> </table> <a HREF="#haut"><img SRC="../boutons/HautPage.gif" WIDTH="125" HEIGHT="13" BORDER="0"></a></div> </td> <td WIDTH="9%" HEIGHT="240" VALIGN="TOP"> <p ALIGN="CENTER"></p> <p ALIGN="CENTER"><b> <a HREF="zg.asp">RETOUR</a></b> </p> </td> </tr> </table> </body> </html>
"Raymond [mvp]" a écrit dans le message de news:eChyU%
Bonjour.
if 6 Mod 2 = 0 then msgbox "6 est pair"
pour les lignes en couleurs voir : http://officesystem.access.free.fr/formulaires_en_couleurs.htm -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" a écrit dans le message de news:
Bonjour,
Y a t'il une fonction vb simple qui permet d'évaluer si un nombre est pair
ou impair ?
Dans les formulaires de type tableau, comment puis je faire pour alterner
la couleur des lignes : 1 ligne en blanc, l'autre en bleu. Si je supprime un
e ligne, le décalage de couleur doit également se faire.
Merci d'avance
Antoine
un petit exemple en asp avec en plus un changement dfe couleur quand la
souris passe sur la ligne :
<html>
<head>
<title>Liste des Zones Géographique par commune</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<STYLE>
TR.changer {color:#ffffff; background:#0099FF}
TR.lignePaire {BACKGROUND-COLOR:#D4FFFF;COLOR: black;}
TR.ligneImpaire {BACKGROUND-COLOR:#7FFFFF;COLOR: black;}
</STYLE>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table WIDTH="100%" BORDER="0">
<tr>
<td WIDTH="7%" HEIGHT="240"> </td>
<td WIDTH="84%" HEIGHT="240" VALIGN="TOP">
<div ALIGN="CENTER">
<p><a NAME="haut"></a>Liste des ZG<br>
<form action="z.asp?" method="get">
Voir les communes commencant par
<input name="L" type="text" id="L" value=<%=lettre%>>
<input type="submit" name="Submit" value="Envoyer">
<br>
<font size="-3">(Attendre l'affichage du bouton NetAuvergne
à
droite) </font>
</form>
<a name="haut">Cliquez sur le nom de la commune pour voir les
ZTX</a></p>
<table BORDER="1" WIDTH="66%" BORDERCOLOR="#66FFFF" ALIGN="CENTER"
HEIGHT="73">
<tr>
<td WIDTH="290" HEIGHT="17" BGCOLOR="#FFFFFF">
<div ALIGN="CENTER"><font SIZE="-1">Commune: </font></div>
</td>
<td WIDTH="79" HEIGHT="17" BGCOLOR="#99FFFF">
<div ALIGN="CENTER"><font SIZE="-1">CCOM: </font></div>
</td>
<td WIDTH="74" HEIGHT="17" BGCOLOR="#99FFFF">
<div ALIGN="CENTER"><font SIZE="-1">UC: </font></div>
</td>
<td WIDTH="65" HEIGHT="17" BGCOLOR="#99FFFF">
<div ALIGN="CENTER"><font SIZE="-1">ZG: </font></div>
</td>
</tr>
<% ' Recuperation des zg :
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "DSNBc"
a=0
set result=server.createObject("ADODB.Recordset")
result.open "select * from zgt order by commune", MyConn
on error resume next
result.movefirst
do while not result.eof
a=a+1
If (a Mod 2) <>0 Then
Response.Write "<DIV name><TR class='lignePaire'
OnMouseOver=""this.className='changer';""
OnMouseOut=""this.className='lignePaire';"">"
Else
Response.Write "<DIV><TR class='ligneImpaire'
OnMouseOver=""this.className='changer';""
OnMouseOut=""this.className='ligneImpaire';"">"
End If
%>
<td WIDTH="290" HEIGHT="20"><font SIZE="-1"><% result("commune")%></font></td>
<td WIDTH="79" HEIGHT="20">
<div ALIGN="CENTER"><font SIZE="-1"><%= result("ccom")
%></font></div>
</td>
<td WIDTH="74" HEIGHT="20">
<div ALIGN="CENTER"><font SIZE="-1"><%= result("cuc") %></font></div>
</td>
<td WIDTH="65" HEIGHT="20">
<div ALIGN="CENTER"><font SIZE="-1"><%= result("zg-autodoc")
%></font></div>
</td>
</tr>
<%result.movenext
loop
%>
</table>
<a HREF="#haut"><img SRC="../boutons/HautPage.gif" WIDTH="125" HEIGHT="13"
BORDER="0"></a></div>
</td>
<td WIDTH="9%" HEIGHT="240" VALIGN="TOP">
<p ALIGN="CENTER"></p>
<p ALIGN="CENTER"><b> <a HREF="zg.asp">RETOUR</a></b> </p>
</td>
</tr>
</table>
</body>
</html>
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de
news:eChyU%23B6EHA.1292@TK2MSFTNGP10.phx.gbl...
Bonjour.
if 6 Mod 2 = 0 then msgbox "6 est pair"
pour les lignes en couleurs voir :
http://officesystem.access.free.fr/formulaires_en_couleurs.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" <Antoine@discussions.microsoft.com> a écrit dans le message de
news: 57583898-C00F-42BE-8584-9FF78264BEE0@microsoft.com...
Bonjour,
Y a t'il une fonction vb simple qui permet d'évaluer si un nombre est
pair
ou impair ?
Dans les formulaires de type tableau, comment puis je faire pour
alterner
la
couleur des lignes : 1 ligne en blanc, l'autre en bleu. Si je supprime
un
e
ligne, le décalage de couleur doit également se faire.
un petit exemple en asp avec en plus un changement dfe couleur quand la souris passe sur la ligne : <html> <head> <title>Liste des Zones Géographique par commune</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <STYLE> TR.changer {color:#ffffff; background:#0099FF} TR.lignePaire {BACKGROUND-COLOR:#D4FFFF;COLOR: black;} TR.ligneImpaire {BACKGROUND-COLOR:#7FFFFF;COLOR: black;} </STYLE> </head> <body bgcolor="#FFFFFF" text="#000000"> <table WIDTH="100%" BORDER="0"> <tr> <td WIDTH="7%" HEIGHT="240"> </td> <td WIDTH="84%" HEIGHT="240" VALIGN="TOP"> <div ALIGN="CENTER"> <p><a NAME="haut"></a>Liste des ZG<br> <form action="z.asp?" method="get"> Voir les communes commencant par <input name="L" type="text" id="L" value=<%=lettre%>> <input type="submit" name="Submit" value="Envoyer"> <br> <font size="-3">(Attendre l'affichage du bouton NetAuvergne à droite) </font> </form> <a name="haut">Cliquez sur le nom de la commune pour voir les ZTX</a></p> <table BORDER="1" WIDTH="66%" BORDERCOLOR="#66FFFF" ALIGN="CENTER" HEIGHT="73"> <tr> <td WIDTH="290" HEIGHT="17" BGCOLOR="#FFFFFF"> <div ALIGN="CENTER"><font SIZE="-1">Commune: </font></div> </td> <td WIDTH="79" HEIGHT="17" BGCOLOR="#99FFFF"> <div ALIGN="CENTER"><font SIZE="-1">CCOM: </font></div> </td> <td WIDTH="74" HEIGHT="17" BGCOLOR="#99FFFF"> <div ALIGN="CENTER"><font SIZE="-1">UC: </font></div> </td> <td WIDTH="65" HEIGHT="17" BGCOLOR="#99FFFF"> <div ALIGN="CENTER"><font SIZE="-1">ZG: </font></div> </td> </tr> <% ' Recuperation des zg : Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "DSNBc" a=0 set result=server.createObject("ADODB.Recordset") result.open "select * from zgt order by commune", MyConn on error resume next result.movefirst do while not result.eof a=a+1 If (a Mod 2) <>0 Then Response.Write "<DIV name><TR class='lignePaire' OnMouseOver=""this.className='changer';"" OnMouseOut=""this.className='lignePaire';"">" Else Response.Write "<DIV><TR class='ligneImpaire' OnMouseOver=""this.className='changer';"" OnMouseOut=""this.className='ligneImpaire';"">" End If %> <td WIDTH="290" HEIGHT="20"><font SIZE="-1"><% result("commune")%></font></td> <td WIDTH="79" HEIGHT="20"> <div ALIGN="CENTER"><font SIZE="-1"><%= result("ccom") %></font></div> </td> <td WIDTH="74" HEIGHT="20"> <div ALIGN="CENTER"><font SIZE="-1"><%= result("cuc") %></font></div> </td> <td WIDTH="65" HEIGHT="20"> <div ALIGN="CENTER"><font SIZE="-1"><%= result("zg-autodoc") %></font></div> </td> </tr> <%result.movenext loop %> </table> <a HREF="#haut"><img SRC="../boutons/HautPage.gif" WIDTH="125" HEIGHT="13" BORDER="0"></a></div> </td> <td WIDTH="9%" HEIGHT="240" VALIGN="TOP"> <p ALIGN="CENTER"></p> <p ALIGN="CENTER"><b> <a HREF="zg.asp">RETOUR</a></b> </p> </td> </tr> </table> </body> </html>
"Raymond [mvp]" a écrit dans le message de news:eChyU%
Bonjour.
if 6 Mod 2 = 0 then msgbox "6 est pair"
pour les lignes en couleurs voir : http://officesystem.access.free.fr/formulaires_en_couleurs.htm -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Antoine" a écrit dans le message de news:
Bonjour,
Y a t'il une fonction vb simple qui permet d'évaluer si un nombre est pair
ou impair ?
Dans les formulaires de type tableau, comment puis je faire pour alterner
la couleur des lignes : 1 ligne en blanc, l'autre en bleu. Si je supprime un
e ligne, le décalage de couleur doit également se faire.
Merci d'avance
Antoine
Raymond [mvp]
Ton exemple en asp c'est une réponse ou une question ? tu ne parlais pas d'un projet à l'origine.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"LARNAUDIE Serge" <serge.larnaudie----wanadoo.fr> a écrit dans le message de news: cqbpg8$
un petit exemple en asp avec en plus un changement dfe couleur quand la souris passe sur la ligne : <html> <head> <title>Liste des Zones Géographique par commune</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <STYLE> TR.changer {color:#ffffff; background:#0099FF} TR.lignePaire {BACKGROUND-COLOR:#D4FFFF;COLOR: black;} TR.ligneImpaire {BACKGROUND-COLOR:#7FFFFF;COLOR: black;} </STYLE> </head> <body bgcolor="#FFFFFF" text="#000000"> <table WIDTH="100%" BORDER="0"> <tr> <td WIDTH="7%" HEIGHT="240"> </td> <td WIDTH="84%" HEIGHT="240" VALIGN="TOP"> <div ALIGN="CENTER"> <p><a NAME="haut"></a>Liste des ZG<br> <form action="z.asp?" method="get"> Voir les communes commencant par <input name="L" type="text" id="L" value=<%=lettre%>> <input type="submit" name="Submit" value="Envoyer"> <br> <font size="-3">(Attendre l'affichage du bouton NetAuvergne à droite) </font> </form> <a name="haut">Cliquez sur le nom de la commune pour voir les ZTX</a></p> <table BORDER="1" WIDTH="66%" BORDERCOLOR="#66FFFF" ALIGN="CENTER" HEIGHT="73"> <tr> <td WIDTH="290" HEIGHT="17" BGCOLOR="#FFFFFF"> <div ALIGN="CENTER"><font SIZE="-1">Commune: </font></div> </td> <td WIDTH="79" HEIGHT="17" BGCOLOR="#99FFFF"> <div ALIGN="CENTER"><font SIZE="-1">CCOM: </font></div> </td> <td WIDTH="74" HEIGHT="17" BGCOLOR="#99FFFF"> <div ALIGN="CENTER"><font SIZE="-1">UC: </font></div> </td> <td WIDTH="65" HEIGHT="17" BGCOLOR="#99FFFF"> <div ALIGN="CENTER"><font SIZE="-1">ZG: </font></div> </td> </tr> <% ' Recuperation des zg : Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "DSNBc" a=0 set result=server.createObject("ADODB.Recordset") result.open "select * from zgt order by commune", MyConn on error resume next result.movefirst do while not result.eof a=a+1 If (a Mod 2) <>0 Then Response.Write "<DIV name><TR class='lignePaire' OnMouseOver=""this.className='changer';"" OnMouseOut=""this.className='lignePaire';"">" Else Response.Write "<DIV><TR class='ligneImpaire' OnMouseOver=""this.className='changer';"" OnMouseOut=""this.className='ligneImpaire';"">" End If %> <td WIDTH="290" HEIGHT="20"><font SIZE="-1"><% > result("commune")%></font></td> <td WIDTH="79" HEIGHT="20"> <div ALIGN="CENTER"><font SIZE="-1"><%= result("ccom") %></font></div> </td> <td WIDTH="74" HEIGHT="20"> <div ALIGN="CENTER"><font SIZE="-1"><%= result("cuc") %></font></div> </td> <td WIDTH="65" HEIGHT="20"> <div ALIGN="CENTER"><font SIZE="-1"><%= result("zg-autodoc") %></font></div> </td> </tr> <%result.movenext loop %> </table> <a HREF="#haut"><img SRC="../boutons/HautPage.gif" WIDTH="125" HEIGHT="13" BORDER="0"></a></div> </td> <td WIDTH="9%" HEIGHT="240" VALIGN="TOP"> <p ALIGN="CENTER"></p> <p ALIGN="CENTER"><b> <a HREF="zg.asp">RETOUR</a></b> </p> </td> </tr> </table> </body> </html>
Ton exemple en asp c'est une réponse ou une question ?
tu ne parlais pas d'un projet à l'origine.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"LARNAUDIE Serge" <serge.larnaudie----wanadoo.fr> a écrit dans le message de
news: cqbpg8$b551@news.rd.francetelecom.fr...
un petit exemple en asp avec en plus un changement dfe couleur quand la
souris passe sur la ligne :
<html>
<head>
<title>Liste des Zones Géographique par commune</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<STYLE>
TR.changer {color:#ffffff; background:#0099FF}
TR.lignePaire {BACKGROUND-COLOR:#D4FFFF;COLOR: black;}
TR.ligneImpaire {BACKGROUND-COLOR:#7FFFFF;COLOR: black;}
</STYLE>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table WIDTH="100%" BORDER="0">
<tr>
<td WIDTH="7%" HEIGHT="240"> </td>
<td WIDTH="84%" HEIGHT="240" VALIGN="TOP">
<div ALIGN="CENTER">
<p><a NAME="haut"></a>Liste des ZG<br>
<form action="z.asp?" method="get">
Voir les communes commencant par
<input name="L" type="text" id="L" value=<%=lettre%>>
<input type="submit" name="Submit" value="Envoyer">
<br>
<font size="-3">(Attendre l'affichage du bouton NetAuvergne
à
droite) </font>
</form>
<a name="haut">Cliquez sur le nom de la commune pour voir les
ZTX</a></p>
<table BORDER="1" WIDTH="66%" BORDERCOLOR="#66FFFF" ALIGN="CENTER"
HEIGHT="73">
<tr>
<td WIDTH="290" HEIGHT="17" BGCOLOR="#FFFFFF">
<div ALIGN="CENTER"><font SIZE="-1">Commune: </font></div>
</td>
<td WIDTH="79" HEIGHT="17" BGCOLOR="#99FFFF">
<div ALIGN="CENTER"><font SIZE="-1">CCOM: </font></div>
</td>
<td WIDTH="74" HEIGHT="17" BGCOLOR="#99FFFF">
<div ALIGN="CENTER"><font SIZE="-1">UC: </font></div>
</td>
<td WIDTH="65" HEIGHT="17" BGCOLOR="#99FFFF">
<div ALIGN="CENTER"><font SIZE="-1">ZG: </font></div>
</td>
</tr>
<% ' Recuperation des zg :
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "DSNBc"
a=0
set result=server.createObject("ADODB.Recordset")
result.open "select * from zgt order by commune", MyConn
on error resume next
result.movefirst
do while not result.eof
a=a+1
If (a Mod 2) <>0 Then
Response.Write "<DIV name><TR class='lignePaire'
OnMouseOver=""this.className='changer';""
OnMouseOut=""this.className='lignePaire';"">"
Else
Response.Write "<DIV><TR class='ligneImpaire'
OnMouseOver=""this.className='changer';""
OnMouseOut=""this.className='ligneImpaire';"">"
End If
%>
<td WIDTH="290" HEIGHT="20"><font SIZE="-1"><% > result("commune")%></font></td>
<td WIDTH="79" HEIGHT="20">
<div ALIGN="CENTER"><font SIZE="-1"><%= result("ccom")
%></font></div>
</td>
<td WIDTH="74" HEIGHT="20">
<div ALIGN="CENTER"><font SIZE="-1"><%= result("cuc")
%></font></div>
</td>
<td WIDTH="65" HEIGHT="20">
<div ALIGN="CENTER"><font SIZE="-1"><%= result("zg-autodoc")
%></font></div>
</td>
</tr>
<%result.movenext
loop
%>
</table>
<a HREF="#haut"><img SRC="../boutons/HautPage.gif" WIDTH="125" HEIGHT="13"
BORDER="0"></a></div>
</td>
<td WIDTH="9%" HEIGHT="240" VALIGN="TOP">
<p ALIGN="CENTER"></p>
<p ALIGN="CENTER"><b> <a HREF="zg.asp">RETOUR</a></b> </p>
</td>
</tr>
</table>
</body>
</html>
