Probleme de compilation dans asp
Fermé
laila2008
-
10 mai 2008 à 15:04
ghuysmans99 Messages postés 2496 Date d'inscription jeudi 14 juillet 2005 Statut Contributeur Dernière intervention 5 juin 2016 - 10 mai 2008 à 15:06
ghuysmans99 Messages postés 2496 Date d'inscription jeudi 14 juillet 2005 Statut Contributeur Dernière intervention 5 juin 2016 - 10 mai 2008 à 15:06
A voir également:
- Probleme de compilation dans asp
- Breach compilation - Guide
- Asp logiciel - Télécharger - Gestion de données
- Compilation année 80 télécharger gratuit - Forum Musique / Radio / Clip
- Compilation error: expected unqualified-id before '{' token ✓ - Forum C++
- Compilation error: expected ')' before ';' token ✓ - Forum C
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
%>
<%
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
%>
ghuysmans99
Messages postés
2496
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
339
10 mai 2008 à 15:06
10 mai 2008 à 15:06
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP
Dim strMethod, lngPos, datNow, strQueryString, strURL
Dim strMethod, lngPos, datNow, strQueryString, strURL