Forum de discussion
Forum « Programmation ASP » (archives)
pb de codage dans une page aps
Envoyé: 11 mai 2006, 5h21 par leclone
voici mon cadoge :
<html>
<head><title>Le Clone --> Les Alimentations</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<table border="1" cellpadding="0" cellspacing="0" style="border-width:0; border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="130">
<tr>
<td width="100%" height="130" valign="middle" style="border-style: none; border-width: medium">
<p align="right">
<img border="0" src="../logo/logo1.gif" align="left" width="193" height="111"></td>
</tr>
</table>
<%'-------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_m
ateriel,PrixHT_materiel,Dispo_materiel,Acheter_m
ateriel from Matériel where Ref1_leclone like "alimentation*";"
RS.Open RequeteSQL , Conn%>
<%if RS.EOF then %>
Nous n'avons aucun articles à vous proposer
<%else%>
<Table border="1" width="496" align="center" bordercolor="black">
<TR>
<TH width="70"><font color="#FF0000">Référence</font></TH>
<TH width="32"><font color="#FF0000">Nom</font></TH>
<TH width="34"><font color="#FF0000">Type</font></TH>
<TH width="54"><font color="#FF0000">Marque</font></TH>
<TH width="75"><font color="#FF0000">Prix HT</font></TH>
<TH width="86"><font color="#FF0000">Disponibilité</font></TH>
<TH width="72"><font color="#FF0000">Acheter</font></TH>
</TR>
<%Do While Not RS.EOF%>
<TR>
<TD width="70"><%=RS("Ref_materiel")%> </TD>
<TD width="32"><%=RS("Nom_materiel")%> </TD>
<TD width="34"><%=RS("Type_materiel")%>
</TD>
<TD width="54"><%=RS("Marque_materiel")%>&nbs
p;</TD>
<TD width="75"><%=RS("PrixHT_materiel")%>&nbs
p;</TD>
<TD width="86"><%=RS("Dispo_materiel")%> 
;</TD>
<TD width="72"><%=RS("Acheter_portable")%>&nb
sp;</TD>
</TR>
<%RS.MoveNext%>
<%Loop %>
</table>
<%end if%>
<%'-------fermeture de la connection et du recordset----------
Set RS = Nothing
Conn.Close
Set Conn = Nothing%>
</body>
</html>
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_m
ateriel,PrixHT_materiel,Dispo_materiel,Acheter_m
ateriel from Matériel where Ref1_leclone like "alimentation*";"
pouvez vous m'aider sur ce pb
merci d'avance