Probleme de compilation dans asp
laila2008
-
ghuysmans99 Messages postés 2496 Date d'inscription Statut Contributeur Dernière intervention -
ghuysmans99 Messages postés 2496 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je travaille sur une page asp qui fait une recherche selon des critere et apres elle affiche le resultat de la recherche
le problem que j'ai l'erreur suivante:
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 SQL Server error '80040e14'
Ligne 1 : syntaxe incorrecte vers ','.
/biblio/pret.asp, line 38
si vous voulez le code je vais vous les montrer pour voir l'erreur
je travaille sur une page asp qui fait une recherche selon des critere et apres elle affiche le resultat de la recherche
le problem que j'ai l'erreur suivante:
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 SQL Server error '80040e14'
Ligne 1 : syntaxe incorrecte vers ','.
/biblio/pret.asp, line 38
si vous voulez le code je vais vous les montrer pour voir l'erreur
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
voici mon code asp j'espere que vous m'aidiez:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
connect.Open Application("StrConnect")
req1 ="ps_recherche_livre " & dis & "," & titre & "," & auteur
Set rs1 = Server.CreateObject("ADODB.RecordSet")
rs1.Open req1, connect
result=rs1.RecordCount
if (result = 0) then
Response.write("pas de reponse")
else
%>
<table border="1" align="center" width="786">
<%
while not rs1.EOF
%>
<tr>
<td bgcolor="#ffccdd" >
<%=left(rs1("Titre"),10)%>
</td>
</tr>
<tr>
<td align="left" >
<img src="<%=rs1("photo")%>" height="60">
</td>
<td>
<%=rs1("Description")%>
</td>
<td >
Auteur: <%=rs1("Auteur")%><br>
Edition: <%=rs1("Edition")%>
</td>
</tr>
<tr>
<td align="right"><br>
<a href="voir.asp" > Voir </a>
<a href="pret.asp" > Prêter </a>
</td>
</tr>
<%
rs1.MoveNext
wend
end if
rs1.Close()
Set rs1 = Nothing
%> -
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP
Dim strMethod, lngPos, datNow, strQueryString, strURL
