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

Signaler
Messages postés
1
Date d'inscription
mardi 28 mars 2006
Statut
Membre
Dernière intervention
12 juillet 2006
-
Messages postés
118
Date d'inscription
jeudi 11 mai 2006
Statut
Membre
Dernière intervention
6 mars 2015
-
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

Messages postés
118
Date d'inscription
jeudi 11 mai 2006
Statut
Membre
Dernière intervention
6 mars 2015

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
Messages postés
118
Date d'inscription
jeudi 11 mai 2006
Statut
Membre
Dernière intervention
6 mars 2015

Cette erreur survient lorsque le serveur tente de traiter une page
contenant un comportement de serveur Insérer l'enregistrement.


Cette erreur résulte généralement d'un ou de plusieurs problèmes,
cités ci-dessous, relatifs au nom d'un champ, d'un objet ou d'une
variable de la base de données :



<li> Utilisation d'un mot réservé en tant que nom. La majorité des
bases de données disposent d'un jeu de mots réservés. Par exemple,
« date » est un mot réservé et ne peut pas être utilisé pour les noms
de champs d'une base de données.
</li>
<li>
Utilisation de caractères spéciaux dans le nom, tels que ceux mentionnés ci-dessous :
. / * : ! # & - ?

</li>
<li>
Utilisation d'un espace dans le nom.
</li>

L'erreur peut également survenir lorsqu'un masque d'entrée est
défini pour un objet de la base de données et que les données insérées
ne sont pas conformes au masque.


Pour résoudre le problème, évitez d'utiliser des mots réservés tels
que « date », « name », « select », « where » et « level » lorsque vous
spécifiez des noms de colonnes dans votre base de données. Eliminez
également les espaces et les caractères spéciaux.