begin process at 2012 05 27 23:06:32
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Archive ASP & ASP.NET

 > 

Archives ASP & ASP.NET

 > 

Base de données

 > 

enregistrer plusieurs enregistrement en meme temps

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

enregistrer plusieurs enregistrement en meme temps

vendredi 12 août 2005 à 09:20:17 | enregistrer plusieurs enregistrement en meme temps

ManuAntibes

Membre Club
Salut

J'ai un travail  a faire, mais je bloque sur un point.
je dois enregistrer les commandes passé par 5 Magasins (Grasse, Villeneuve, Nice, Carros, St Bernard).
et les commandes doit etre dispachés à differents operateurs pour preparé les commandes.

je n'arrive pas a enregistrer les données des commandes d'un magasin car il ne veut pas enregistrer plusieurs champs en meme temps.

Voici mon travail pour finir de m'aidé.
[ Lien ]

Merci car je suis pour l'instant bloqué.

MANUANTIBES
vendredi 12 août 2005 à 09:29:48 | Re : enregistrer plusieurs enregistrement en meme temps

AshenShugar
C'est bien, le coup du fichiers, mais on doit regarder dans quelle paga exactement ???
Enfin bon, donne ton code qui traite juste l'enregistrement, celui qui ne passe pas comme tu le voudrais ! Ce sera déjà mieux que nous donner TOUT ton projet

Le hardware, c'est sur quoi l'on tape lorsque le software merde...
vendredi 12 août 2005 à 09:38:54 | Re : enregistrer plusieurs enregistrement en meme temps

ManuAntibes

Membre Club

ok
la page qui merde est la page grasse.asp qui sera la meme que Villeneuve, Nice, Carros, St Bernard

Voici le code de Grasse:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Connection_base.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_Connection_base_STRING
  MM_editTable = "Table_commandes"
  MM_editRedirectUrl = "entrer.asp"
  MM_fieldsStr  = "Date_commandes|value|Magasin_commandes|value|code_commandes|value|designation_commandes|value|N°lot_commandes|value|Destinataire_commandes|value|Quantite_commandes|value|Poids_commandes|value|Magasin_commandes2|value|code_commandes2|value|designation_commandes2|value|N°lot_commandes2|value|Destinataire_commandes|value|quantité2|value|Poids_commandes2|value|Magasin_commandes3|value|code_commandes3|value|designation_commandes3|value|N°lot_commandes3|value|Destinataire_commandes|value|quantité3|value|Poids_commandes3|value|Magasin_commandes4|value|code_commandes4|value|designation_commandes4|value|N°lot_commandes4|value|Destinataire_commandes|value|quantité4|value|Poids_commandes4|value|Magasin_commandes5|value|code_commandes5|value|designation_commandes5|value|N°lot_commandes5|value|Destinataire_commandes|value|quantité5|value|Poids_commandes5|value|Magasin_commandes6|value|code_commandes6|value|designation_commandes6|value|N°lot_commandes6|value|Destinataire_commandes|value|quantité6|value|Poids_commandes6|value|Magasin_commandes7|value|code_commandes7|value|designation_commandes7|value|N°lot_commandes7|value|Destinataire_commandes|value|quantité7|value|Poids_commandes7|value|Date_commande8|value|Magasin_commandes8|value|code_commandes8|value|designation_commandes8|value|N°lot_commandes8|value|Destinataire_commandes|value|quantité8|value|Poids_commandes8|value"
  MM_columnsStr = "Date_commandes|',none,NULL|Magasin_commandes|',none,''|Code_commandes|none,none,NULL|Designation_commandes|',none,''|N°lot_commandes|none,none,NULL|Destinataire_commandes|',none,''|Quantite_commandes|none,none,NULL|Poids_commandes|none,none,NULL|Magasin_commandes|',none,''|Code_commandes|none,none,NULL|Designation_commandes|',none,''|N°lot_commandes|none,none,NULL|Destinataire_commandes|',none,''|Quantite_commandes|none,none,NULL|Poids_commandes|none,none,NULL|Magasin_commandes|',none,''|Code_commandes|none,none,NULL|Designation_commandes|',none,''|N°lot_commandes|none,none,NULL|Destinataire_commandes|',none,''|Quantite_commandes|none,none,NULL|Poids_commandes|none,none,NULL|Magasin_commandes|',none,''|Code_commandes|none,none,NULL|Designation_commandes|',none,''|N°lot_commandes|none,none,NULL|Destinataire_commandes|',none,''|Quantite_commandes|none,none,NULL|Poids_commandes|none,none,NULL|Magasin_commandes|',none,''|Code_commandes|none,none,NULL|Designation_commandes|',none,''|N°lot_commandes|none,none,NULL|Destinataire_commandes|',none,''|Quantite_commandes|none,none,NULL|Poids_commandes|none,none,NULL|Magasin_commandes|',none,''|Code_commandes|none,none,NULL|Designation_commandes|',none,''|N°lot_commandes|none,none,NULL|Destinataire_commandes|',none,''|Quantite_commandes|none,none,NULL|Poids_commandes|none,none,NULL|Magasin_commandes|',none,''|Code_commandes|none,none,NULL|Designation_commandes|',none,''|N°lot_commandes|none,none,NULL|Destinataire_commandes|',none,''|Quantite_commandes|none,none,NULL|Poids_commandes|none,none,NULL|Date_commandes|',none,NULL|Magasin_commandes|',none,''|Code_commandes|none,none,NULL|Designation_commandes|',none,''|N°lot_commandes|none,none,NULL|Destinataire_commandes|',none,''|Quantite_commandes|none,none,NULL|Poids_commandes|none,none,NULL"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
 
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim Rech_boeuf__MMColParam
Rech_boeuf__MMColParam = "BOEUF"
If (Request("MM_EmptyValue") <> "") Then
  Rech_boeuf__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Rech_boeuf
Dim Rech_boeuf_numRows

Set Rech_boeuf = Server.CreateObject("ADODB.Recordset")
Rech_boeuf.ActiveConnection = MM_Connection_base_STRING
Rech_boeuf.Source = "SELECT * FROM Table_produits WHERE Famille_produits = '" + Replace(Rech_boeuf__MMColParam, "'", "''") + "' ORDER BY Ligne_produits ASC"
Rech_boeuf.CursorType = 0
Rech_boeuf.CursorLocation = 2
Rech_boeuf.LockType = 1
Rech_boeuf.Open()

Rech_boeuf_numRows = 0
%>
<%
Dim Rech_veau__MMColParam
Rech_veau__MMColParam = "VEAU"
If (Request("MM_EmptyValue") <> "") Then
  Rech_veau__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Rech_veau
Dim Rech_veau_numRows

Set Rech_veau = Server.CreateObject("ADODB.Recordset")
Rech_veau.ActiveConnection = MM_Connection_base_STRING
Rech_veau.Source = "SELECT * FROM Table_produits WHERE Famille_produits = '" + Replace(Rech_veau__MMColParam, "'", "''") + "' ORDER BY Ligne_produits ASC"
Rech_veau.CursorType = 0
Rech_veau.CursorLocation = 2
Rech_veau.LockType = 1
Rech_veau.Open()

Rech_veau_numRows = 0
%>
<%
Dim Rech_agn__MMColParam
Rech_agn__MMColParam = "AGNEAU"
If (Request("MM_EmptyValue") <> "") Then
  Rech_agn__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Rech_agn
Dim Rech_agn_numRows

Set Rech_agn = Server.CreateObject("ADODB.Recordset")
Rech_agn.ActiveConnection = MM_Connection_base_STRING
Rech_agn.Source = "SELECT * FROM Table_produits WHERE Famille_produits = '" + Replace(Rech_agn__MMColParam, "'", "''") + "' ORDER BY Ligne_produits ASC"
Rech_agn.CursorType = 0
Rech_agn.CursorLocation = 2
Rech_agn.LockType = 1
Rech_agn.Open()

Rech_agn_numRows = 0
%>
<%
Dim Rech_PORC__MMColParam
Rech_PORC__MMColParam = "PORC"
If (Request("MM_EmptyValue") <> "") Then
  Rech_PORC__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Rech_PORC
Dim Rech_PORC_numRows

Set Rech_PORC = Server.CreateObject("ADODB.Recordset")
Rech_PORC.ActiveConnection = MM_Connection_base_STRING
Rech_PORC.Source = "SELECT * FROM Table_produits WHERE Famille_produits = '" + Replace(Rech_PORC__MMColParam, "'", "''") + "' ORDER BY Ligne_produits ASC"
Rech_PORC.CursorType = 0
Rech_PORC.CursorLocation = 2
Rech_PORC.LockType = 1
Rech_PORC.Open()

Rech_PORC_numRows = 0
%>
<%
Dim Rech_volaille__MMColParam
Rech_volaille__MMColParam = "VOLAILLE"
If (Request("MM_EmptyValue") <> "") Then
  Rech_volaille__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Rech_volaille
Dim Rech_volaille_numRows

Set Rech_volaille = Server.CreateObject("ADODB.Recordset")
Rech_volaille.ActiveConnection = MM_Connection_base_STRING
Rech_volaille.Source = "SELECT * FROM Table_produits WHERE Famille_produits = '" + Replace(Rech_volaille__MMColParam, "'", "''") + "' ORDER BY Ligne_produits ASC"
Rech_volaille.CursorType = 0
Rech_volaille.CursorLocation = 2
Rech_volaille.LockType = 1
Rech_volaille.Open()

Rech_volaille_numRows = 0
%>
<%
Dim Rech_abats__MMColParam
Rech_abats__MMColParam = "ABATS"
If (Request("MM_EmptyValue") <> "") Then
  Rech_abats__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Rech_abats
Dim Rech_abats_numRows

Set Rech_abats = Server.CreateObject("ADODB.Recordset")
Rech_abats.ActiveConnection = MM_Connection_base_STRING
Rech_abats.Source = "SELECT * FROM Table_produits WHERE Famille_produits = '" + Replace(Rech_abats__MMColParam, "'", "''") + "' ORDER BY Ligne_produits ASC"
Rech_abats.CursorType = 0
Rech_abats.CursorLocation = 2
Rech_abats.LockType = 1
Rech_abats.Open()

Rech_abats_numRows = 0
%>
<%
Dim Rech_sauce__MMColParam
Rech_sauce__MMColParam = "SAUCE"
If (Request("MM_EmptyValue") <> "") Then
  Rech_sauce__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Rech_sauce
Dim Rech_sauce_numRows

Set Rech_sauce = Server.CreateObject("ADODB.Recordset")
Rech_sauce.ActiveConnection = MM_Connection_base_STRING
Rech_sauce.Source = "SELECT * FROM Table_produits WHERE Famille_produits = '" + Replace(Rech_sauce__MMColParam, "'", "''") + "' ORDER BY Ligne_produits ASC"
Rech_sauce.CursorType = 0
Rech_sauce.CursorLocation = 2
Rech_sauce.LockType = 1
Rech_sauce.Open()

Rech_sauce_numRows = 0
%>
<%
Dim Rech_charcut__MMColParam
Rech_charcut__MMColParam = "CHARCUTERIE"
If (Request("MM_EmptyValue") <> "") Then
  Rech_charcut__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Rech_charcut
Dim Rech_charcut_numRows

Set Rech_charcut = Server.CreateObject("ADODB.Recordset")
Rech_charcut.ActiveConnection = MM_Connection_base_STRING
Rech_charcut.Source = "SELECT * FROM Table_produits WHERE Famille_produits = '" + Replace(Rech_charcut__MMColParam, "'", "''") + "' ORDER BY Ligne_produits ASC"
Rech_charcut.CursorType = 0
Rech_charcut.CursorLocation = 2
Rech_charcut.LockType = 1
Rech_charcut.Open()

Rech_charcut_numRows = 0
%>
<%
Dim Record_commande
Dim Record_commande_numRows

Set Record_commande = Server.CreateObject("ADODB.Recordset")
Record_commande.ActiveConnection = MM_Connection_base_STRING
Record_commande.Source = "SELECT * FROM Table_commandes"
Record_commande.CursorType = 0
Record_commande.CursorLocation = 2
Record_commande.LockType = 1
Record_commande.Open()

Record_commande_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Rech_boeuf_numRows = Rech_boeuf_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 10
Repeat2__index = 0
Rech_veau_numRows = Rech_veau_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
Rech_agn_numRows = Rech_agn_numRows + Repeat3__numRows
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index

Repeat4__numRows = -1
Repeat4__index = 0
Rech_PORC_numRows = Rech_PORC_numRows + Repeat4__numRows
%>
<%
Dim Repeat5__numRows
Dim Repeat5__index

Repeat5__numRows = -1
Repeat5__index = 0
Rech_volaille_numRows = Rech_volaille_numRows + Repeat5__numRows
%>
<%
Dim Repeat6__numRows
Dim Repeat6__index

Repeat6__numRows = -1
Repeat6__index = 0
Rech_abats_numRows = Rech_abats_numRows + Repeat6__numRows
%>
<%
Dim Repeat7__numRows
Dim Repeat7__index

Repeat7__numRows = -1
Repeat7__index = 0
Rech_sauce_numRows = Rech_sauce_numRows + Repeat7__numRows
%>
<%
Dim Repeat8__numRows
Dim Repeat8__index

Repeat8__numRows = -1
Repeat8__index = 0
Rech_charcut_numRows = Rech_charcut_numRows + Repeat8__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>GRASSE Entrer Commande</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<style type="text/css">
<!--
.Style2 {
 font-size: x-large;
 font-weight: bold;
}
-->
</style>
</head>

<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 onLoad="MM_preloadImages('images/image_foncer/index_entrer_foncer_16.gif','images/image_foncer/index_entrer_foncer_17.gif','images/image_foncer/index_entrer_foncer_18.gif','images/image_foncer/index_entrer_foncer_19.gif','images/image_foncer/index_entrer_foncer_20.gif','images/image_foncer/index_traiter_foncer_05.gif','images/image_foncer/index_ajouter_foncer_07.gif','images/image_foncer/index_lot_foncer_09.gif')">
<TABLE WIDTH=800 BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0>
 <TR>
  <TD COLSPAN=16>
   <IMG SRC="images/index_entrer_01.gif" WIDTH=800 HEIGHT=60 ALT=""></TD>
 </TR>
 <TR>
  <TD COLSPAN=2 ROWSPAN=2>
   <IMG SRC="images/index_entrer_02.gif" WIDTH=75 HEIGHT=26 ALT=""></TD>
  <TD COLSPAN=2>    <IMG SRC="images/index_entrer_03.gif" ALT="" name="Image1" WIDTH=135 HEIGHT=21 id="Image1"></TD>
  <TD ROWSPAN=2>
   <IMG SRC="images/index_entrer_04.gif" WIDTH=34 HEIGHT=26 ALT=""></TD>
  <TD COLSPAN=2>
   <a href="javascript:;" onClick="MM_goToURL('parent','traiter.asp');return document.MM_returnValue" onMouseOver="MM_swapImage('Image7','','images/image_foncer/index_traiter_foncer_05.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG SRC="images/index_entrer_05.gif" ALT="" name="Image7" WIDTH=135 HEIGHT=21 border="0" id="Image7"></a></TD>
  <TD COLSPAN=2 ROWSPAN=2>
   <IMG SRC="images/index_entrer_06.gif" WIDTH=35 HEIGHT=26 ALT=""></TD>
  <TD COLSPAN=2>
   <a href="javascript:;" onClick="MM_goToURL('parent','rajout.asp');return document.MM_returnValue" onMouseOver="MM_swapImage('Image8','','images/image_foncer/index_ajouter_foncer_07.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG SRC="images/index_entrer_07.gif" ALT="" name="Image8" WIDTH=135 HEIGHT=21 border="0" id="Image8"></a></TD>
  <TD ROWSPAN=2>
   <IMG SRC="images/index_entrer_08.gif" WIDTH=36 HEIGHT=26 ALT=""></TD>
  <TD COLSPAN=2>
   <a href="javascript:;" onClick="MM_goToURL('parent','lot.asp');return document.MM_returnValue" onMouseOver="MM_swapImage('Image9','','images/image_foncer/index_lot_foncer_09.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG SRC="images/index_lot_09.gif" ALT="" name="Image9" WIDTH=135 HEIGHT=21 border="0" id="Image9"></a></TD>
  <TD COLSPAN=2 ROWSPAN=2>
   <IMG SRC="images/index_entrer_10.gif" WIDTH=80 HEIGHT=26 ALT=""></TD>
 </TR>
 <TR>
  <TD COLSPAN=2>
   <IMG SRC="images/index_entrer_11.gif" WIDTH=135 HEIGHT=5 ALT=""></TD>
  <TD COLSPAN=2>
   <IMG SRC="images/index_entrer_12.gif" WIDTH=135 HEIGHT=5 ALT=""></TD>
  <TD COLSPAN=2>
   <IMG SRC="images/index_entrer_13.gif" WIDTH=135 HEIGHT=5 ALT=""></TD>
  <TD COLSPAN=2>
   <IMG SRC="images/index_entrer_14.gif" WIDTH=135 HEIGHT=5 ALT=""></TD>
 </TR>
 <TR>
  <TD>
   <IMG SRC="images/index_entrer_15.gif" WIDTH=10 HEIGHT=21 ALT=""></TD>
  <TD COLSPAN=2>
   <a href="javascript:;" onClick="MM_goToURL('parent','grasse.asp');return document.MM_returnValue" onMouseOver="MM_swapImage('Image2','','images/image_foncer/index_entrer_foncer_16.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG SRC="images/index_entrer_16.gif" ALT="" name="Image2" WIDTH=130 HEIGHT=21 border="0" id="Image2"></a></TD>
  <TD COLSPAN=3>
   <a href="javascript:;" onClick="MM_goToURL('parent','villeneuve.asp');return document.MM_returnValue" onMouseOver="MM_swapImage('Image3','','images/image_foncer/index_entrer_foncer_17.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG SRC="images/index_entrer_17.gif" ALT="" name="Image3" WIDTH=130 HEIGHT=21 border="0" id="Image3"></a></TD>
  <TD COLSPAN=2>
   <a href="javascript:;" onClick="MM_goToURL('parent','nice.asp');return document.MM_returnValue" onMouseOver="MM_swapImage('Image4','','images/image_foncer/index_entrer_foncer_18.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG SRC="images/index_entrer_18.gif" ALT="" name="Image4" WIDTH=130 HEIGHT=21 border="0" id="Image4"></a></TD>
  <TD COLSPAN=2>
   <a href="javascript:;" onClick="MM_goToURL('parent','carros.asp');return document.MM_returnValue" onMouseOver="MM_swapImage('Image5','','images/image_foncer/index_entrer_foncer_19.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG SRC="images/index_entrer_19.gif" ALT="" name="Image5" WIDTH=130 HEIGHT=21 border="0" id="Image5"></a></TD>
  <TD COLSPAN=3>
   <a href="javascript:;" onClick="MM_goToURL('parent','st%20bernard.asp');return document.MM_returnValue" onMouseOver="MM_swapImage('Image6','','images/image_foncer/index_entrer_foncer_20.gif',1)" onMouseOut="MM_swapImgRestore()"><IMG SRC="images/index_entrer_20.gif" ALT="" name="Image6" WIDTH=130 HEIGHT=21 border="0" id="Image6"></a></TD>
  <TD COLSPAN=2>
   <IMG SRC="images/index_entrer_21.gif" WIDTH=130 HEIGHT=21 ALT=""></TD>
  <TD>
   <IMG SRC="images/index_entrer_22.gif" WIDTH=10 HEIGHT=21 ALT=""></TD>
 </TR>
 <TR>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=10 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=65 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=65 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=70 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=34 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=26 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=109 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=21 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=14 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=116 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=19 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=36 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=75 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=60 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=70 HEIGHT=1 ALT=""></TD>
  <TD>
   <IMG SRC="images/espaceur.gif" WIDTH=10 HEIGHT=1 ALT=""></TD>
 </TR>
</TABLE>
<div align="center">
  <form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1">
    <BR>
    <table width="90%"  border="0" align="center" cellspacing="0">
      <tr>
        <td width="31%">Date :
            <input name="Date_commandes" type="text" id="Date_commandes" value= <%=Date()%> ></td>
        <td width="34%">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Magasin : <span class="Style2">GRASSE</span> </td>
        <td width="35%" valign="top">          <div align="center">
          <input type="submit" name="Submit" value="Enregistrer commande">         
          <br>
        </div></td>
      </tr>
    </table>
    <br>
    <table width="100%"  border="0" align="center" cellspacing="0">
      <tr>
        <td valign="top"><table width="90%"  border="1" align="center" cellspacing="0">
            <tr bgcolor="#CCCCCC">
              <td colspan="3"><div align="center">
                  <p><strong>BOEUF</strong></p>
              </div></td>
            </tr>
            <%
While ((Repeat1__numRows <> 0) AND (NOT Rech_boeuf.EOF))
%>
            <tr>
              <td width="71%"><p align="left">
                <input name="Magasin_commandes" type="hidden" id="Magasin_commandes" value="GRASSE">
                <input name="code_commandes" type="hidden" id="code_commandes" value="<%=(Rech_boeuf.Fields.Item("Code_produits").Value)%>">
                <input name="designation_commandes" type="hidden" id="designation_commandes" value="<%=(Rech_boeuf.Fields.Item("Designation_produits").Value)%>">
                <input name="N°lot_commandes" type="hidden" id="N°lot_commandes">
                <%=(Rech_boeuf.Fields.Item("Designation_produits").Value)%></p></td>
              <td width="71%"><div align="center">
                <% Dim Destinataire
    Destinataire=(Rech_boeuf.Fields.Item("Destinataire_produits").Value) %>
    <select name="Destinataire_commandes" id="Destinataire_commandes">
                 <% If Destinataire="TESTA" then %>
      <option value="TESTA" selected>TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="STEPHANE" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE" selected>STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="BOUCHER AM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM" selected>BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="BOUCHER PM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM" selected>BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="AUTRES" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES" selected>AUTRES</option>  
      <% End If%>
                </select>
              </div></td>
              <td width="29%"><div align="center">
                  <input name="Quantite_commandes" type="text" id="Quantite_commandes" value="0" size="2">
                  <input name="Poids_commandes" type="hidden" id="Poids_commandes">
              </div></td>
            </tr>
            <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Rech_boeuf.MoveNext()
Wend
%>

                </table>
        <br>
        <table width="90%"  border="1" align="center" cellspacing="0">
          <tr bgcolor="#CCCCCC">
            <td colspan="3"><div align="center">
                <p><strong>VEAU</strong></p>
            </div></td>
          </tr>
          <%
While ((Repeat2__numRows <> 0) AND (NOT Rech_veau.EOF))
%>
          <tr>
            <td width="71%"><p align="left">
              <input name="Magasin_commandes2" type="hidden" id="Magasin_commandes2" value="GRASSE">
              <input name="code_commandes2" type="hidden" id="code_commandes2" value="<%=(Rech_veau.Fields.Item("Code_produits").Value)%>">
              <input name="designation_commandes2" type="hidden" id="designation_commandes2" value="<%=(Rech_veau.Fields.Item("Designation_produits").Value)%>">
              <input name="N°lot_commandes2" type="hidden" id="N°lot_commandes2">
              <%=(Rech_veau.Fields.Item("Designation_produits").Value)%></p></td>
            <td width="71%"><div align="center">
              <% Destinataire=(Rech_veau.Fields.Item("Destinataire_produits").Value) %>
              <select name="Destinataire_commandes" id="Destinataire_commandes">
      <% If Destinataire="TESTA" then %>
      <option value="TESTA" selected>TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="STEPHANE" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE" selected>STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="BOUCHER AM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM" selected>BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="BOUCHER PM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM" selected>BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="AUTRES" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES" selected>AUTRES</option>  
      <% End If%>
              </select>
            </div></td>
            <td width="29%"><div align="center">
                <input name="quantité2" type="text" id="quantité2" value="0" size="2">
                <input name="Poids_commandes2" type="hidden" id="Poids_commandes2">
            </div></td>
          </tr>
          <%
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  Rech_veau.MoveNext()
Wend
%>

          </table>
        <br>
        <table width="90%"  border="1" align="center" cellspacing="0">
          <tr bgcolor="#CCCCCC">
            <td colspan="3"><div align="center">
                <p><strong>ANGEAU</strong></p>
            </div></td>
          </tr>
          <%
While ((Repeat3__numRows <> 0) AND (NOT Rech_agn.EOF))
%>
          <tr>
            <td width="71%"><p align="left">
              <input name="Magasin_commandes3" type="hidden" id="Magasin_commandes3" value="GRASSE">
              <input name="code_commandes3" type="hidden" id="code_commandes3" value="<%=(Rech_agn.Fields.Item("Code_produits").Value)%>">
              <input name="designation_commandes3" type="hidden" id="designation_commandes3" value="<%=(Rech_agn.Fields.Item("Designation_produits").Value)%>">
              <input name="N°lot_commandes3" type="hidden" id="N°lot_commandes3">
              <%=(Rech_agn.Fields.Item("Designation_produits").Value)%></p></td>
            <td width="71%"><div align="center">
              <% Destinataire=(Rech_agn.Fields.Item("Destinataire_produits").Value) %>
              <select name="Destinataire_commandes" id="select2">
<% If Destinataire="TESTA" then %>
      <option value="TESTA" selected>TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="STEPHANE" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE" selected>STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="BOUCHER AM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM" selected>BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="BOUCHER PM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM" selected>BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="AUTRES" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES" selected>AUTRES</option>  
      <% End If%>
              </select>
            </div></td>
            <td width="29%"><div align="center">
                <input name="quantité3" type="text" id="quantité3" value="0" size="2">
                <input name="Poids_commandes3" type="hidden" id="Poids_commandes3">
            </div></td>
          </tr>
          <%
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  Rech_agn.MoveNext()
Wend
%>

          </table>
        <br>
        <table width="90%"  border="1" align="center" cellspacing="0">
          <tr bgcolor="#CCCCCC">
            <td colspan="3"><div align="center">
                <p><strong>PORC</strong></p>
            </div></td>
          </tr>
          <%
While ((Repeat4__numRows <> 0) AND (NOT Rech_PORC.EOF))
%>
          <tr>
            <td width="71%"><p align="left">
              <input name="Magasin_commandes4" type="hidden" id="Magasin_commandes4" value="GRASSE">
              <input name="code_commandes4" type="hidden" id="code_commandes4" value="<%=(Rech_PORC.Fields.Item("Code_produits").Value)%>">
              <input name="designation_commandes4" type="hidden" id="designation_commandes4" value="<%=(Rech_PORC.Fields.Item("Designation_produits").Value)%>">
              <input name="N°lot_commandes4" type="hidden" id="N°lot_commandes4">
              <%=(Rech_PORC.Fields.Item("Designation_produits").Value)%></p></td>
            <td width="71%"><div align="center">
                <% Destinataire=(Rech_PORC.Fields.Item("Destinataire_produits").Value) %>
                <select name="Destinataire_commandes" id="select8">
<% If Destinataire="TESTA" then %>
      <option value="TESTA" selected>TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="STEPHANE" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE" selected>STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="BOUCHER AM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM" selected>BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="BOUCHER PM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM" selected>BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="AUTRES" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES" selected>AUTRES</option>  
      <% End If%>
                </select>
            </div></td>
            <td width="29%"><div align="center">
                <input name="quantité4" type="text" id="quantité4" value="0" size="2">
                <input name="Poids_commandes4" type="hidden" id="Poids_commandes4">
            </div></td>
          </tr>
          <%
  Repeat4__index=Repeat4__index+1
  Repeat4__numRows=Repeat4__numRows-1
  Rech_PORC.MoveNext()
Wend
%>

          </table>
        <br>
        <table width="90%"  border="1" align="center" cellspacing="0">
          <tr bgcolor="#CCCCCC">
            <td colspan="3"><div align="center">
                <p><strong>VOLAILLE</strong></p>
            </div></td>
        </tr>
          <%
While ((Repeat5__numRows <> 0) AND (NOT Rech_volaille.EOF))
%>
          <tr>
            <td width="71%"><p align="left">
              <input name="Magasin_commandes5" type="hidden" id="Magasin_commandes5" value="GRASSE">
              <input name="code_commandes5" type="hidden" id="code_commandes5" value="<%=(Rech_volaille.Fields.Item("Code_produits").Value)%>">
              <input name="designation_commandes5" type="hidden" id="designation_commandes5" value="<%=(Rech_volaille.Fields.Item("Designation_produits").Value)%>">
              <input name="N°lot_commandes5" type="hidden" id="N°lot_commandes5">
              <%=(Rech_volaille.Fields.Item("Designation_produits").Value)%></p></td>
            <td width="71%"><div align="center">
              <% Destinataire=(Rech_volaille.Fields.Item("Destinataire_produits").Value) %>
              <select name="Destinataire_commandes" id="select9">
<% If Destinataire="TESTA" then %>
      <option value="TESTA" selected>TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="STEPHANE" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE" selected>STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="BOUCHER AM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM" selected>BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="BOUCHER PM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM" selected>BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="AUTRES" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES" selected>AUTRES</option>  
      <% End If%>
              </select>
            </div></td>
            <td width="29%"><div align="center">
                <input name="quantité5" type="text" id="quantité5" value="0" size="2">
                <input name="Poids_commandes5" type="hidden" id="Poids_commandes6">
            </div></td>
          </tr>
          <%
  Repeat5__index=Repeat5__index+1
  Repeat5__numRows=Repeat5__numRows-1
  Rech_volaille.MoveNext()
Wend
%>

          </table>        </td>
        <td valign="top"><table width="90%"  border="1" align="center" cellspacing="0">
          <tr bgcolor="#CCCCCC">
            <td colspan="3"><div align="center">
                <p><strong>ABATS</strong></p>
            </div></td>
          </tr>
          <%
While ((Repeat6__numRows <> 0) AND (NOT Rech_abats.EOF))
%>
          <tr>
            <td width="71%"><p align="left">
              <input name="Magasin_commandes6" type="hidden" id="Magasin_commandes6" value="GRASSE">
              <input name="code_commandes6" type="hidden" id="code_commandes6" value="<%=(Rech_abats.Fields.Item("Code_produits").Value)%>">
              <input name="designation_commandes6" type="hidden" id="designation_commandes6" value="<%=(Rech_abats.Fields.Item("Designation_produits").Value)%>">
              <input name="N°lot_commandes6" type="hidden" id="N°lot_commandes6">
              <%=(Rech_abats.Fields.Item("Designation_produits").Value)%></p></td>
            <td width="71%"><div align="center">
                  <% Destinataire=(Rech_abats.Fields.Item("Destinataire_produits").Value) %>             
                  <select name="Destinataire_commandes" id="select10">
  <% If Destinataire="TESTA" then %>
      <option value="TESTA" selected>TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="STEPHANE" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE" selected>STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="BOUCHER AM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM" selected>BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="BOUCHER PM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM" selected>BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="AUTRES" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES" selected>AUTRES</option>  
      <% End If%>
                  </select>
            </div></td>
            <td width="29%"><div align="center">
                <input name="quantité6" type="text" id="quantité6" value="0" size="2">
                <input name="Poids_commandes6" type="hidden" id="Poids_commandes7">
            </div></td>
          </tr>
          <%
  Repeat6__index=Repeat6__index+1
  Repeat6__numRows=Repeat6__numRows-1
  Rech_abats.MoveNext()
Wend
%>

                </table>
        <br>
        <table width="90%"  border="1" align="center" cellspacing="0">
          <tr bgcolor="#CCCCCC">
            <td colspan="3"><div align="center">
                <p><strong>SAUCE</strong></p>
            </div></td>
        </tr>
          <%
While ((Repeat7__numRows <> 0) AND (NOT Rech_sauce.EOF))
%>
          <tr>
            <td width="71%"><p align="left">
              <input name="Magasin_commandes7" type="hidden" id="Magasin_commandes7" value="GRASSE">
              <input name="code_commandes7" type="hidden" id="code_commandes7" value="<%=(Rech_sauce.Fields.Item("Code_produits").Value)%>">
              <input name="designation_commandes7" type="hidden" id="designation_commandes7" value="<%=(Rech_sauce.Fields.Item("Designation_produits").Value)%>">
              <input name="N°lot_commandes7" type="hidden" id="N°lot_commandes7">
              <%=(Rech_sauce.Fields.Item("Designation_produits").Value)%></p></td>
            <td width="71%"><div align="center">
                  <% Destinataire=(Rech_sauce.Fields.Item("Destinataire_produits").Value) %>             
                  <select name="Destinataire_commandes" id="select11">
<% If Destinataire="TESTA" then %>
      <option value="TESTA" selected>TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="STEPHANE" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE" selected>STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="BOUCHER AM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM" selected>BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="BOUCHER PM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM" selected>BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="AUTRES" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES" selected>AUTRES</option>  
      <% End If%>
                  </select>
            </div></td>
            <td width="29%"><div align="center">
                <input name="quantité7" type="text" id="quantité7" value="0" size="2">
                <input name="Poids_commandes7" type="hidden" id="Poids_commandes8">
            </div></td>
          </tr>
          <%
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  Rech_sauce.MoveNext()
Wend
%>

          </table></td>
        <td valign="top"><table width="90%"  border="1" align="center" cellspacing="0">
          <tr bgcolor="#CCCCCC">
            <td colspan="3"><div align="center">
                <p><strong>CHARCUTERIE</strong></p>
            </div></td>
        </tr>
          <%
While ((Repeat8__numRows <> 0) AND (NOT Rech_charcut.EOF))
%>
          <tr>
            <td width="71%"><p align="left">
              <input name="Date_commande8" type="hidden" id="Date_commande8" value="date()">
              <input name="Magasin_commandes8" type="hidden" id="Magasin_commandes8" value="GRASSE">
              <input name="code_commandes8" type="hidden" id="code_commandes8" value="<%=(Rech_charcut.Fields.Item("Code_produits").Value)%>">
              <input name="designation_commandes8" type="hidden" id="designation_commandes8" value="<%=(Rech_charcut.Fields.Item("Designation_produits").Value)%>">
              <input name="N°lot_commandes8" type="hidden" id="N°lot_commandes8">
              <%=(Rech_charcut.Fields.Item("Designation_produits").Value)%></p></td>
            <td width="71%"><div align="center">
                  <% Destinataire=(Rech_charcut.Fields.Item("Destinataire_produits").Value) %>             
                  <select name="Destinataire_commandes" id="select12">
     <% If Destinataire="TESTA" then %>
      <option value="TESTA" selected>TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="STEPHANE" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE" selected>STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>
      <% ElseIf Destinataire="BOUCHER AM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM" selected>BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="BOUCHER PM" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM" selected>BOUCHER PM</option>
                  <option value="AUTRES">AUTRES</option>  
      <% ElseIf Destinataire="AUTRES" then %>
      <option value="TESTA">TESTA</option>
                  <option value="STEPHANE">STEPHANE</option>
                  <option value="BOUCHER AM">BOUCHER AM</option>
                  <option value="BOUCHER PM">BOUCHER PM</option>
                  <option value="AUTRES" selected>AUTRES</option>  
      <% End If%>
                  </select>
            </div></td>
            <td width="29%"><div align="center">
                <input name="quantité8" type="text" id="quantité8" value="0" size="2">
                <input name="Poids_commandes8" type="hidden" id="Poids_commandes9">
            </div></td>
          </tr>
          <%
  Repeat8__index=Repeat8__index+1
  Repeat8__numRows=Repeat8__numRows-1
  Rech_charcut.MoveNext()
Wend
%>

                </table></td>
      </tr>
    </table>
 
       
 
    <input type="hidden" name="MM_insert" value="form1">
  </form>
</div>
</body>
</html>
<%
Rech_boeuf.Close()
Set Rech_boeuf = Nothing
%>
<%
Rech_veau.Close()
Set Rech_veau = Nothing
%>
<%
Rech_agn.Close()
Set Rech_agn = Nothing
%>
<%
Rech_PORC.Close()
Set Rech_PORC = Nothing
%>
<%
Rech_volaille.Close()
Set Rech_volaille = Nothing
%>
<%
Rech_abats.Close()
Set Rech_abats = Nothing
%>
<%
Rech_sauce.Close()
Set Rech_sauce = Nothing
%>
<%
Rech_charcut.Close()
Set Rech_charcut = Nothing
%>
<%
Record_commande.Close()
Set Record_commande = Nothing
%>

MANUANTIBES
vendredi 12 août 2005 à 09:41:35 | Re : enregistrer plusieurs enregistrement en meme temps

ManuAntibes

Membre Club
J'ai choisi de mettre mon travail sur le FTP pour ne pas innondé le forum de message interminable avec mon code.
Mais si tu preferes le code, pas de souci.

A je travail avec Dreamweaver MX.
A+
MANUANTIBES
vendredi 12 août 2005 à 10:59:53 | Re : enregistrer plusieurs enregistrement en meme temps

AshenShugar
Attends, je crois que tu ne m'as pas vraiment compris !!! J'entendais par là le code qui pose problème, celui ou tu exécutes la requêtes pour enregistré !!! Pas tout le code, tu avais bien vu pour le FTP, ca fout le bordel sur le forum, mais si tu avais juste le bout de code concerné, ça serait beaucoup mieux !!!!!!!!!!!!!

Le hardware, c'est sur quoi l'on tape lorsque le software merde...
vendredi 12 août 2005 à 11:06:56 | Re : enregistrer plusieurs enregistrement en meme temps

AshenShugar
Regarde ce petit morceau de code extrait de ta boucle For pour l'insertion des données :
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
Déjà, tu vas avoir un problème car dans tous les cas, tes chaines font finir par un virgule, et ça va forcément faire planter l'exécution !
Par contre, ne comptes meme pas sur moi pour te corriger ton code ou te le tester !
En revanche, je te conseille d'essayer en mettant cette ligne à la place de l'originale :

MM_editQuery = "insert into " & MM_editTable & " (" & Left(MM_tableValues, len(MM_tableValues)-1) & ") values (" & Left(MM_dbValues, len(MM_dbValues, )-1) & ")"

Déjà, il y aurait des chances que ça fonctionne mieux !
Le hardware, c'est sur quoi l'on tape lorsque le software merde...


Cette discussion est classée dans : enregistrer, enregistrement, temps, commandes, travail

Répondre à ce message

Sujets en rapport avec ce message

Comment enregistrer plusieurs enregistrement dans la BDD [ par VivoBaggio ] Salut. J'ai une variable qui me donne le nombre d'enregistrement a effectuer dans la BDD. Les enregistrements sont les enregistrements de cours.Donc j Enregistrement d'un fichier dans une base [ par guidal ] Bien le bonjour :)Voilà donc mon problème ...Je souhaite enregistrer un fichier (de type quelconque) dans une base de donnée ...Le problème, c'est la Enregistrer et afficher des images avec PHP [ par Kentobar ] Je suis sur un code ou je veux enregister dans une base mysql des images avec PHP et les afficher.Aussi se trouve -t-il sur le formulaire d'enregistre afficher une enregistrement de type Mémo en asp [ par albazouz ] je veux afficher une enregistrement de type Mémo en asp à partir d'une base de données access mais le pb que elle s'affiche mais pas avec la mise en t Affichage sans résultat [ par blangenois ] Bonsoir,lorsque j'affiche une page asp sans résultat, j'aimerai afficher un message du type" Votre recherche n'a donnée aucun résultat "Comment puis j calcul de temps [ par ptitemel62 ] Bonjour, Voilà, ds le cadre de mon travail, je dois fr une étude de temps extrait d'une machine. J'arrive à extraire les données sur excel ds un form Récupérer un enregistrement dans un datagrid ! [ par Mickey VB ] Bonjour,(ASP.NET)J'utilise un datagrid pour afficher un datasetJ'ai ajouté un bouton imagebutton dans une colonne.Et quand je click dessus je récupère Changement heure dans emploi du temps [ par VivoBaggio ] Salut. Voilà, j'ai un emploi du temps qui affiche pour tel classe le cours, le prof, la matiere, la salle & la possiblité de réserver une salle par un lister des fichiers sur un repertoire et les enregistrer dans une base [ par P19 ] Bonsoir,Je recherche une fonction me permettant de lister les fichiers d'un répertoire et de les enregistrer dans une table.Avez vous une fonction qui Gridview Modifier Probleme [ par iklibous ] Salut, J'ai un probleme avec une gridview, j'effectue une recherche sur cette derniere en modifiant sa SelectCommand , quand la gridview me retourne u


Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,484 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)