<%@ LANGUAGE="VBSCRIPT" %> Concept-inox

RéalisationRéalisationRéalisation RéalisationRéalisationRéalisation RéalisationRéalisationRéalisation RéalisationRéalisatio
Hyginox est une marque de CONCEPT-INOX, des produits fabriqués spécialement pour les besoins des industries alimentaires & pharmaceutiques : www.hyginox.com







<% set lmDB = Server.CreateObject("ADODB.Connection") gmstring = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/_private/gm.mdb" lmDB.Open gmstring %> <% Set selectSet = lmDB.Execute("select * from news") while not selectSet.EOF %> <% p_design = selectSet("hyperlien") p_but = selectset("target") %> <% IF NOT SelectSet("hyperlien") = "" Then %> <% selectSet.Movenext %> <% wend %> <% lmDB.Close set lmDB = Nothing %>

LES NEWS :

<% Response.Write selectSet("news") %>Hyperlien <% END IF %>