<% 'Chaîne de connection ' Créer l'objet ADO Set Conn = Server.CreateObject("ADODB.Connection") connstring = "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ="&Server.MapPath("/")&"\base\kpointcom.mdb" Conn.open connstring %> <%'recuperation du nom du constructeur stconstructeur=request("constructeur") %> <% 'Requete SQL produits pour le constructeur choisi sql = "SELECT * FROM TELEPHONES WHERE Constructeur='" & stconstructeur & "' and actif order by ordre" set rs = Conn.Execute(sql) 'Requete alimentation menu deroulant constructeurs sql2 = "SELECT DISTINCT Constructeur FROM TELEPHONES " set rs2 = Conn.Execute(sql2) 'Requete alimentation paragraphe commentaires sql3 = "SELECT commentaires FROM CONSTRUCTEURS WHERE Constructeur = '" & stconstructeur & "' " set rs3 = Conn.Execute(sql3) %> KPOINTCOM - Notre gamme de téléphones
 
 
      NOTRE GAMME DE TELEPHONES RECHERCHER  
     
TELEPHONES MOBILES  <%=ucase(stconstructeur)%>

<%=rs3("Commentaires")%>
<% On error Resume Next rs.MoveFirst do while not rs.eof %> <% rs.MoveNext if(not rs.eof) then %> <%end if%> <% rs.MoveNext loop %>
&constructeur=<%=rs("constructeur")%>','<%=rs("Image")%>','scrollbars=NO,width=550,height=630')">_small.jpg" border="1" width="32" hight="92"> <%=stconstructeur%>   <%=rs("ref")%>

<%=rs("descriptif")%>
<%if rs("promo")=true then%> .jpg','<%rs("lien_promo")%>','width=730,height=510')"> <%else%>   <%end if%>
&constructeur=<%=rs("constructeur")%>','<%=rs("Image")%>','scrollbars=NO,width=550,height=630')">_small.jpg" border="1" width="32" hight="92"> <%=stconstructeur%>   <%=rs("ref")%>

<%=rs("descriptif")%>
<%if rs("promo")=true then%> .jpg','<%rs("lien_promo")%>','width=730,height=510')"> <%else%>   <%end if%>
 
  Liens utiles Sonneries/logos Contacts Haut de page