%@ LANGUAGE="JScript" %>
<%
OBJdbConnection = Server.CreateObject("ADODB.Connection");
CheminBase='DRIVER={Microsoft Access Driver (*.mdb)}; ' + "DBQ=" + Server.MapPath('/') + '/bases/memoireded.mdb';
OBJdbConnection.Open(CheminBase);
Trouver=false;
Memorise='';
%>
Produits - Mémoires dédiées
|

|
|
|
|
|
 |
|
MÉMOIRES
Sélectionnez
le type de mémoire qui vous intéresse :
|
|
<%
tmp = "";
tmp +=Request.Form("Type");
if (tmp!="undefined") {
%>
<%}%>
|
|
|
|
|
|
<%
RequeteSQL = "SELECT * FROM OffreMemoire where Type =" + "'" + Request.Form("Type") + "' AND Bus='" + Request.Form("Bus") + "'";
if (!Trouver)
RequeteSQL = "SELECT * FROM OffreMemoire where Type =" + "'" + Request.Form("Type") + "' AND Bus='" + Memorise + "'";
RS = OBJdbConnection.Execute(RequeteSQL);
%>
|
Capacité | Nom
du Fabricant | Liens
vers le site du fabricant
|
|
<%while(!RS.EOF)
{%>
<%for(toto=3; toto
<%if (zipo!="null")
{%>
<%=RS(toto).Name%> | <%=zipo%> |
vvvvv.fabricant.com |
|
<%}%>
<%}%>
<%
RS.MoveNext();}%> |
<%
RequeteSQL = "SELECT Liens FROM InfoMemoiresDediees";
RS = OBJdbConnection.Execute(RequeteSQL);
%>
<%
while(!RS.EOF)
{
%>
<%=RS("Liens")%>
<%
RS.MoveNext();}%>
<%create view deuxcolonnes "select Societe, Liens from InfoMemoiresDediees"%>
|
|
|