Erreur Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

junserval Messages postés 1 Date d'inscription mardi 28 mars 2006 Statut Membre Dernière intervention 12 juillet 2006 - 12 juil. 2006 à 18:55
mehdi7604 Messages postés 118 Date d'inscription jeudi 11 mai 2006 Statut Membre Dernière intervention 6 mars 2015 - 17 févr. 2007 à 00:38
Bonjour !
Voici mon pb :
 Erreur de compilation Microsoft VBScript error '800a0401'Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^

Microsoft OLE DB Provider for ODBC Drivers

error '80040e14'[Microsoft][Pilote ODBC Microsoft Access] Erreur de syntaxe (opérateur absent) dans l'expression 'id_pays= '.

/itcos/caddie.asp, line 65

le code :
<%

if session("item")=0 then
response.redirect "caddievide.asp"
end if
Temp=Session("Caddy")

select case request("Action")

case "Vider le Caddy"
session("pays")=request("livraison_pays")
session("Item")=0
response.redirect "caddievide.asp"

case "Commander"
session("pays")=request("livraison_pays")
direc="commande.asp?paiement="&request.querystring("paiement")
response.redirect direc

case "Recalculer"
session("pays")=request("livraison_pays")
for i=0 to session("item")-1
Qte="quantite"&i
if isNumeric(request(Qte)) then
if int(request(Qte))>0 then
Temp(2,i)=int(request(Qte))
end if
end if
Session("Caddy")=Temp
next
response.redirect "caddie.asp"

end select

If IsObject(Session("boutique_conn")) Then
    Set conn = Session("boutique_conn")
Else
    Set conn = Server.CreateObject("ADODB.Connection")
 ' chaine de connexion
 connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/produits.mdb"
 conn.Open connstring
    Set Session("boutique_conn") = conn
End If

' calcul des totaux
totalHt=0
TotalPort=0
Qte=0
for i=0 to session("Item")-1
TotalHt=TotalHt+temp(3,i)*temp(2,i)
TotalPort=TotalPort+temp(4,i)*temp(2,i)
Qte=Qte+temp(2,i)
next
strtotal=replace(cstr(totalport),",",".")

sql = "SELECT port.*  FROM port  WHERE ("& strtotal &">port.Kgbase_Port)   "
Set port = Server.CreateObject("ADODB.Recordset")
port.Open sql, conn, 3, 3
port.movelast

  sql = "SELECT pays.*  FROM pays  where id_pays="&session("pays")
 Set pays = Server.CreateObject("ADODB.Recordset")
 pays.Open sql, conn, 3, 3
 pays. movefirst
 %>
<%
TotalPort=port.fields("Prix").value*pays.fields("Port_pays").value

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<title>Sélection d'une devise</title>
</head>

<% 
'sélection des devise disponibles
 sql = "SELECT devises.*  FROM devises WHERE Id_devise="&session("devise")
 Set devise = Server.CreateObject("ADODB.Recordset")
    devise.Open sql, conn, 3, 3
 devise. movefirst
%>
<% 
'sélection des pays disponibles
 sql = "SELECT pays.*  FROM pays "
 Set pays = Server.CreateObject("ADODB.Recordset")
    pays.Open sql, conn, 3, 3
 pays. movefirst
%>

  ----

    <!-- #include file="entete.asp"-->,
 
  ----

        
    
    
      <table border="0" cellpadding="0" cellspacing="0" width="100%">
     
       </form>
 ----

         , <!-- #include file=\"sommaire.asp\"--></td>
          <table border="0" cellpadding="0" cellspacing="0" width="450">
            ----

             , <small>Contenu de votre
              Caddie</small></td>
           
            ----

              ,
           
            ----

              &nbsp;
<center><table border="0" cellpadding="0" cellspacing="0"
              width="500">
                ----

                 , </td>
               
                ----

                  <table border="0" cellpadding="0" cellspacing="0"
                  width="100%">
                    ----

                     ,
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\"
                      width=\"100%\">
                        ----

                        ,
                       
                        ----

                        <table border="0" cellpadding="0"
                        cellspacing="1" width="100%">
                        ----

                       , </td>
                       
                        ----

                        ,
                        <small>Titre</small>,
                        <small>Quantité</small>,
                        <small>PU.
                        HT</small>,
                        <small>P.
                        Total HT</small>,
                       
<%for i=0 to session(\"item\")-1%>
                        ----

                        "> ,
                        <%=Temp(1,i)%>

                       ,
                        " size="2" name="quantite<%=i%>"> ,
                        <%=formatnumber((Temp(3,i)/devise.fields("prix_devise").value),2)%>,
                        <%=formatnumber((Temp(3,i)*Temp(2,i))/devise.fields("prix_devise").value,2)%>,
                       
<%next%>
                       

                       
</td>
                        </tr>
                      </table>
                     
</td>
                    </tr>
                    <tr align="center">
                      <td>
                        ----

                        <small>Pays de
                        livraison : </small><select name="livraison_pays" size="1">
<% pays.movefirst
do while not pays.eof
%>                        <option <%if cint(pays.fields("id_pays").value)=cint(session("pays")) then %> selected
                        <% end if%> value="<%=pays.fields("id_pays").value%>"><%=pays.fields("titre_pays").value%></option>
<% pays.movenext
Loop
%>                        </select> ,
                       
                     

                     

                        ----

                        <table border="0"
                        cellspacing="1" width="150">
                        ----

                       , <small>Par
                        chèque</small></td>
                       
                        ----

                        <small>Par Carte Bancaire</small>,
                       
                       

                        </td>
                        <td width="20%" align="center" bgcolor="#F3E2A0" height="21"><small>TOTAL
                        HT</small></td>
                        <td width="20%" align="center" bgcolor="#F3E2A0" height="21"> <%=formatnumber(TotalhT/devise.fields("prix_devise").value,2)%> </td>
                        </tr>
                        <tr>
                        <td width ="20%" align= "center" bgcolor="#F3E2A0" height="21"><small>TVA
                        20,6%</small></td>
                        <td width="20%" align="center" bgcolor="#F3E2A0" height="21"> <%=formatnumber((TotalhT/devise.fields("prix_devise").value)*0.206,2)%> </td>
                        </tr>
                        <tr>
                        <td width ="20%" align= "center" bgcolor="#F3E2A0" height="27"><small>Frais
                        de Ports</small></td>
                        <td width="20%" align="center" bgcolor="#F3E2A0" height="27"> <%=formatnumber((Totalport/devise.fields("prix_devise").value),2)%> </td>
                        </tr>
                        <tr>
                        <td width ="60%" align= "center" bgcolor="#FFFFFF" height="27"></td>
                        <td width="20%" align="center" bgcolor="#F3E2A0" height="27"><small>Total
                        TTC</small></td>
                        <td width="20%" align="center" bgcolor="#F3E2A0" height="27"> <%=formatnumber((((TotalHt-remise)*1.206+TotalPort)/devise.fields("prix_devise").value),2)%> <%if devise.fields("Symb_devise")<>"na" then%><%=devise.fields("Symb_devise")%><%else%>" align="middle"><% end if%> </td>
                        </tr>
                        <tr>
                        <td width ="60%" align="center" bgcolor="#FFFFFF" height="21">
                         <form method="GET" action="caddie.asp">
                       
                        </td>
                        <td width="40%" align="center" colspan="2" height="21">
                        </td>
                        </form>
                        </tr>
                        
                      </table>
                     

                        ----

                        <center><table border="0" cellpadding="0" cellspacing="0"
                        width="100%">
                        ----

                       ,

                        <small>Pour supprimer une ligne du Caddy, cliquez sur la petite poubelle à
                        gauche dans la ligne. Pour ajouter un produit, cliquez sur le produit en
                        sélection dans la barre de navigation sur le gauche ou en haut sur produits. Pour commander
                        plusieurs produits identiques, modifiez la quantité, puis cliquez sur
                        &quot;recalculer&quot;.

                        Vous pouvez commander par chèque ou par carte Bleue, dans ce cas vous fournirez vos
                        informations personnelles sur un espace sécurisé.</small> </td>
                       
                       

                        </center>
</td>
                        </tr>
                      </table>
                     
</td>
                    </tr>
                  </table>
                 
</td>
                </tr>
              </table>
              </center>
</td>
            </tr>
          </table>
          </td>
        </tr>
      </table>
    </form>
    </td>
  </tr>
</table>

</html>
ce code est cense gerer un caddie
merci d votre aide
A voir également:

2 réponses

mehdi7604 Messages postés 118 Date d'inscription jeudi 11 mai 2006 Statut Membre Dernière intervention 6 mars 2015
17 févr. 2007 à 00:38
sur un problème j'avais le meme code d'erreure 80040e14  l'erreure que j'ai faite est d'utiliser des noms reservés dans les noms de champs de la base de données ( date,.....)

ça n'a rien à avoir  mais verifie qd meme
0
Rejoignez-nous