nicolasferraris
Membre récent
 Hors-Ligne
Messages: 3
Je suis un lama!
|
Bonjour,
J'ai un formulaire qui récupère les données en provenance d'une BD ACCESS. Cette étape se passe correctemment.
Dès que l'utilisateur clic sur "Suivant" Ce formulaire doit retourner une page asp en fonction du choix d'un bouton-radio.
Dès que j'inclus la fonction if Request("formRempli") = 1 then
J'ai le message d'erreur suivant :
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id_client='.
/FormRegistrationRecapemsESSAI.asp, line 77
La ligne 77 correspond à : rs.Open sql, conn, 3, 3
Voici le code la page :
<%
Dim conn
Dim rs
Dim sql
Dim connstring
Dim theid_client
Set conn = Server.CreateObject("ADODB.Connection")
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/admin/ems07.mdb"
conn.Open connstring
theid_client=Request.QueryString("id_client")
response.write(theid_client)
%>
<html>
<head>
<meta http-equiv="Content-Language" content="fr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>EMSLIBS 2007 - Inscription</title>
<base target="_self">
</head>
<body>
<p><b><font face="Arial" color="#5A617E">Inscription</font></b></p>
<hr color="#FA7123" align="left">
<div align="left">
</div>
<%sql = "SELECT * FROM RequeteEssai WHERE id_client="& theid_client
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if rs.EOF then response.redirect "erreurems.html" end if
%>
<form action="FormRegistrationRecapemsESSAI.asp?formRempli=1" method="post" name="sponsor">
<%rs.movefirst%>
<div align="center">
<table border="1" width="100%" id="table9" style="border-collapse: collapse">
<tr>
<td width="47%" align="center"
.....................
....................
<input type="submit" name="B1" value="Suivant">
<a href="javascript:history.back()">
<input type="button" value="Retour" name="B2"</a></p>
<input type=hidden name=company_organism value="<%=Request.QueryString("company_organism")%>">
<input type=hidden name=email value="<%=Request.QueryString("email")%>">
<input type=hidden name=last_name value="<%=Request.QueryString("last_name")%>">
<input type=hidden name="ht" value="<% =rs("ht")%>" >
<input type=hidden name="first_name" value="<% =rs("first_name")%>" >
<input type=hidden name="fax" value="<% =rs("fax")%>" >
<input type=hidden name="vat" value="<% =rs("vat")%>">
<input type=hidden name="ttc" value="<% =rs("ttc")%>">
<input type=hidden name="montant" value="<% =rs("ttc")%>">
<input type=hidden name="service_laboratory" value="<% =rs("service_laboratory")%>">
<input type=hidden name="address1" value="<% =rs("address1")%>">
<input type=hidden name="address2" value="<% =rs("address2")%>">
<input type=hidden name="zip_code" value="<% =rs("zip_code")%>">
<input type=hidden name="city" value="<% =rs("city")%>">
<input type=hidden name="country" value="<% =rs("country")%>">
<input type=hidden name="phone" value="<% =rs("phone")%>">
<input type=hidden name="genre" value="<% =rs("genre")%>">
<input type=hidden name="comments" value="<% =rs("comments")%>">
<input type=hidden name="company_organism_invoice" value="<% =rs("company_organism_invoice")%>">
<input type=hidden name="last_name_invoice" value="<% =rs("last_name_invoice")%>">
<input type=hidden name="first_name_invoice" value="<% =rs("first_name_invoice")%>">
<input type=hidden name="service_laboratory_invoice" value="<% =rs("service_laboratory_invoice")%>">
<input type=hidden name="address1_invoice" value="<% =rs("address1_invoice")%>">
<input type=hidden name="address2_invoice" value="<% =rs("address2_invoice")%>">
<input type=hidden name="zip_code_invoice" value="<% =rs("zip_code_invoice")%>">
<input type=hidden name="city_invoice" value="<% =rs("city_invoice")%>">
<input type=hidden name="country_invoice" value="<% =rs("country_invoice")%>">
<input type=hidden name="vat_invoice" value="<% =rs("vat_invoice")%>">
<input type=hidden name="phone_invoice" value="<% =rs("phone_invoice")%>">
<input type=hidden name="fax_invoice" value="<% =rs("fax_invoice")%>">
<input type=hidden name="email_invoice" value="<% =rs("email_invoice")%>">
<input type=hidden name="genre_invoice" value="<% =rs("genre_invoice")%>">
<input type=hidden name="session1" value="<% =rs("session1")%>">
<input type=hidden name="session2" value="<% =rs("session2")%>">
<input type=hidden name="membre" value="<% =rs("membre")%>">
<input type=hidden name="personne_accompagnant" value="<% =rs("personne_accompagnant")%>">
<input type=hidden name="genre_accompagnant" value="<% =rs("genre_accompagnant")%>">
<input type=hidden name="nom_accompagnant" value="<% =rs("nom_accompagnant")%>">
<input type=hidden name="prenom_accompagnant" value="<% =rs("prenom_accompagnant")%>">
<input type=hidden name="devise" value="<% =rs("devise")%>">
<input type=hidden name="langue" value="<% =rs("langue")%>">
<input type=hidden name="id_client" value="<% =rs("id_client")%>">
<%
if Request("formRempli") = 1 then
If request.form("paiement") ="cb" then
response.redirect ("cbProvisoire.asp?id_client="&Request.QueryString("id_client")&"")
else
response.redirect ("VirementInscriptionFR.htm")
end if
end if
%>
</form>
</body>
</html>
<%conn.close
set conn=nothing
%>
|
|
Si j'enlève le if Request("formRempli") = 1 then
ça à l'air de fonctionner |
Auteur 
