<%@ LANGUAGE="JScript" %>
<%
OBJdbConnection = Server.CreateObject("ADODB.Connection");
CheminBase='DRIVER={Microsoft Access Driver (*.mdb)}; ' + "DBQ=" + Server.MapPath('/') + '/microel/bases/memoireded.mdb';
OBJdbConnection.Open(CheminBase);
RequeteSQL = "SELECT Bus FROM OffreMemoire where Type =" + "'" + Request.Form("Type") + "'";
RS = OBJdbConnection.Execute(RequeteSQL);
%>
<%=Request.Form("Type")%>
<%RS.Close();%>
<% OBJdbConnection.close(); %>