<%@ LANGUAGE="JScript" %>
<%
OBJdbConnection = Server.CreateObject("ADODB.Connection");
CheminBase='DRIVER={Microsoft Access Driver (*.mdb)}; ' + "DBQ=" + Server.MapPath('/') + '/microel/bases/memoireded.mdb';
OBJdbConnection.Open(CheminBase);
Trouver=false;
Memorise='';
%>
|
|
|
| <%
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);
%>
<%while(!RS.EOF)
{%>
<%for(toto=3; toto
<%if (zipo!="null"){%>
<%=RS(toto).Name%> <%=zipo%>
<%}%>
<%}%>
<%
RS.MoveNext();}%>
|
|
<%
str1="coucou/--/bonjour/--/zipo";
var strTable = new Array();
Separateur = "/--/";
rester=true;
Debut=0;
PosTable=0;
while (rester)
{
if ( ((Position=str1.indexOf(Separateur,Debut))!=-1) )
{
if ( (SuitePosition=str1.indexOf(Separateur,Position+Separateur.length)!=-1) )
SuitePosition=str1.length;
strTable[PosTable++]=str1.substring(Debut, SuitePosition);
Debut = SuitePosition;
Debut += Separateur.length;
if (Debut > str1.length)
Debut = str1.length
}
else
rester=false;
}
%>
<%
s = str1.indexOf("/--/");
Sortie = str1;
%>
<%=Sortie%>
<%=s%>
Position = <%=PosTable%>
Position = <%=strTable[0]%>
Position = <%=strTable[1]%>
Position = <%=strTable[2]%>