Forum « Blems avec le bouton actualiser. »

Forum « Programmation ASP » (archives)

Blems avec le bouton actualiser.

Envoyé: 31 août 2004, 5h43 par dork_maule

Salut tout le monde.
J'ai fais un prog qui marche a condition de ne pas cliquer su "Reactuliser" sinon il bloque.
Comment regler sa???????

Prog :
<%option explicit%>
<%
Dim TPath, DSN, Connection_2
TPath = "C:\Inetpub\wwwroot\Notre_i\"
DSN = "DBQ=C:\Inetpub\wwwroot\Notre_i\Menus_intranet.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Connection_2 = Server.CreateObject("ADODB.Connection")
Connection_2.ConnectionTimeout = 30
Connection_2.CommandTimeout = 30
Connection_2.Open DSN
Dim requete_affiche_L_U
Dim recordset_affiche_L_U
Dim ligne_m
Dim ligne_ctr
CONST AdUseClient = 3

Function afficher_L_U ()
requete_affiche_L_U = "SELECT Liens.* FROM Liens ORDER BY Liens.Num_liens"
Set recordset_affiche_L_U = Server.createObject("ADODB.Recordset")
recordset_affiche_L_U.cursorlocation = AdUseClient
recordset_affiche_L_U.cachesize = 16
recordset_affiche_L_U.Open requete_affiche_L_U, Connection_2
ligne_m = Cint(recordset_affiche_L_U.pagesize)
%>
<%do until recordset_affiche_L_U.EOF or ligne_ctr >= ligne_m%>
<BR><td align="left">
<Font face="Arial" size="1">
<img border="0" src="<%=recordset_affiche_L_U("Image_liens")%>" name="affichage">
<%=recordset_affiche_L_U("Nom_liens")%>
</a></font></td></tr>
<tr><td></td></tr>
<%
recordset_affiche_L_U.movenext
loop%>
<%
recordset_affiche_L_U.Close
set recordset_affiche_L_U = Nothing
End Function
%>
<html>
<head>
<title>Liens qui peuvent étre utiles :-{</title>
</head>
<body>
<font face="arial" size="2">
<div align="left">
<h4>Liens utiles</h4>
</div>
<%call afficher_L_U()%>
</font>
</body>
</html>
<%
Connection_2.close
Set Connection_2 = Nothing
%>

voici le msg d'erreur :
Type d'erreur :
Provider (0x80004005)
Erreur non spécifiée
/Notre_i/Liens_utiles.asp, line 9
????????????????????????????????????????