<%@ LANGUAGE="JScript" %>
<%
OBJdbConnection = Server.CreateObject("ADODB.Connection");
CheminBase='DRIVER={Microsoft Access Driver (*.mdb)}; ' + "DBQ=" + Server.MapPath('/') + '/microel/bases/memoireded.mdb';
OBJdbConnection.Open(CheminBase);
%>
<%=Request.Form("Type")%>
<%=Request.Form("Bus")%>
<%
RequeteSQL = "SELECT * FROM OffreMemoire where Type =" + "'" + Request.Form("Type") + "' AND Bus='" + Request.Form("Bus") + "'";
RS = OBJdbConnection.Execute(RequeteSQL);
%>
<%=RequeteSQL%>
<%while(!RS.EOF)
{%>
<%for(toto=3; toto
<%if (zipo!="null"){%>
<%=RS(toto).Name%> <%=zipo%>
<%}%>
<%}%>
<%
RS.MoveNext();}%>
<%
RequeteSQL = "SELECT DISTINCT Type FROM OffreMemoire";
RS = OBJdbConnection.Execute(RequeteSQL);
%>
<%RS.Close();%>
<% OBJdbConnection.close(); %>