pb de codage dans une page asp

Question

dans ma page asp, j'affiche une partie de la base de donees. Le pb c'est qu'il ne veut pas l'afficher. voici mon cadoge : Le Clone --> Les Alimentations <%'-------déclaration de la base------------------------------ DSN_BASE = "DBQ=" & Server.Mappath("webleclone.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%> <%'-------création de la connection et du recordset----------- Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DSN_BASE Set RS = Server.CreateObject("ADODB.Recordset")%> <%'-------définition et exécution de la requête--------------- RequeteSQL = "select Ref_materiel,Nom_materiel,Type_materiel,Marque_materiel,PrixHT_materiel,Dispo_materiel,Acheter_materiel from Matériel where Ref1_leclone like "alimentation*";" RS.Open RequeteSQL , Conn%> <%if RS.EOF then %> Nous n'avons aucun articles à vous proposer <%else%> Référence | Nom | Type | Marque | Prix HT | Disponibilité | Acheter | <%Do While Not RS.EOF%> ---- <% =RS("Ref_materiel")%> , <%=RS("Nom_materiel")%> , <%=RS("Type_materiel")%> , <%=RS("Marque_materiel")%> , <%=RS("PrixHT_materiel")%> , <%=RS("Dispo_materiel")%> , <%=RS("Acheter_portable")%> , <%RS.MoveNext%> <%Loop %> <%end if%> <%'-------fermeture de la connection et du recordset---------- Set RS = Nothing Conn.Close Set Conn = Nothing%> voici le message d'erreur : 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 --------------------------------------------------------------------------^ Erreur de compilation Microsoft VBScript error '800a0401' Fin d'instruction attendue /www.leclone.fr/pages/Alimentations.asp, line 23 RequeteSQL = "select Ref_materiel,Nom_materiel,Type_materiel,Marque_materiel,PrixHT_materiel,Dispo_materiel,Acheter_materiel from Matériel where Ref1_leclone like "alimentation*";" pouvez vous m'aider sur ce pb merci d'avance

io_ost · Answer

tu devellope avec quoi ?

matt

cs_Nurgle · Answer

Salut,

Dans ta ligne 23, utilises des quotes simples et pas doubles :

RequeteSQL =  "Select
Ref_materiel, Nom_materiel, Type_materiel, Marque_materiel, PrixHT_materiel, Dispo_materiel, Acheter_materiel From Mat&#233;riel Where Ref1_leclone Like 'alimentation*'; "

au lieu de :

RequeteSQL = "select
Ref_materiel,Nom_materiel,Type_materiel,Marque_materiel,PrixHT_materiel,Dispo_materiel,Acheter_materiel
from Mat&#233;riel where Ref1_leclone like "alimentation*";"

 io_ost  >> je vois pas en quoi son environnement de d&#233;veloppement est responsable...

A+

<hr size ="2" width="100%">Nurgle (Antoine)

leclone59 · Answer

bonjour a tous !!! merci grace a ce que tu ma dit, g corriger un pb mais maintenant un autre est apparu Pouvez vous m'aider encore une fois ??? voici le codage de ma page asp : Le Clone --> Les Alimentations <%'-------déclaration de la base------------------------------ DSN_BASE = "DBQ=" & Server.Mappath("webleclone.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%> <%'-------création de la connection et du recordset----------- Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DSN_BASE Set RS = Server.CreateObject("ADODB.Recordset")%> <%'-------définition et exécution de la requête--------------- RequeteSQL = "select Ref_materiel,Nom_materiel,Type_materiel,Marque_materiel,PrixHT_materiel,Dispo_materiel,Acheter_materiel from Matériel where Ref1_leclone like 'alimentation*';" RS.Open RequeteSQL , Conn%> <%if RS.EOF then %> Nous n'avons aucun articles à vous proposer <%else%> Référence | Nom | Type | Marque | Prix HT | Disponibilité | Acheter | <%Do While Not RS.EOF%> ---- <% =RS("Ref_materiel")%> , <%=RS("Nom_materiel")%> , <%=RS("Type_materiel")%> , <%=RS("Marque_materiel")%> , <%=RS("PrixHT_materiel")%> , <%=RS("Dispo_materiel")%> , <%=RS("Acheter_materiel")%> , <%RS.MoveNext%> <%Loop %> <%end if%> <%'-------fermeture de la connection et du recordset---------- Set RS = Nothing Conn.Close Set Conn = Nothing%> voici l'erreur : 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 --------------------------------------------------------------------------^ Provider error '80004005' Erreur non spécifiée /www.leclone.fr/pages/Alimentations.asp, line 19

cs_Nurgle · Answer

Quelle est la ligne 19 de ta page ?
C'est le Conn.Open je suppose...
Dans ce cas c'est qu'il y a un probl&#232;me avec la chaine de connexion, ou l'emplacement de la base...

<hr size="2" width="100%">Nurgle (Antoine)

Pb de codage dans une page asp

4 réponses

Votre réponse

Discussions similaires