Champagne Rainbow production de champagnes destinés à la communauté gay.

<%@LANGUAGE="VBSCRIPT"%><% Response.Expires=-1500 ' connexion dim cnx Set cnx = Server.CreateObject("ADODB.Connection") cnx.ConnectionString = "DSN=rainbow" cnx.Open dim cmd set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection=cnx dim req ' ***** recherche des liens req="SELECT * FROM Liens order by Index;" cmd.CommandText=req dim rcd set rcd = Server.CreateObject("ADODB.Recordset") set rcd.ActiveConnection=cnx rcd.CursorType=1 rcd.Open(cmd) total=rcd.RecordCount %> Champagne Rainbow production de champagnes destinés à la communauté gay.

<% impair=true while not (rcd.EOF) if (impair) then %> <% end if %> <% if (not impair)then %> <% end if rcd.MoveNext() if impair then impair=false else impair=true end if wend set rcd=nothing cnx.Close() %>

<%if rcd("Image")<>"" then%> " hspace="30" vspace="5"> <%end if%>
" target="_blank" ><%=rcd("Adresse")%>