Chargement de page trop long

Je ne comprend pas car sur mon site, le chargement est exessivement pour une seule page... d'ou cela peut-il venir???
Voici le listing complet :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 <% Option Explicit
Dim sql
Dim rs
Dim conn
Dim connstring
Set conn = Server.CreateObject("ADODB.Connection")
	connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/annu.mdb"
    conn.Open connstring 
	sql = "SELECT *  FROM annur"
	Set rs = Server.CreateObject("ADODB.Recordset")
   	rs.Open sql, conn, 3, 3
	rs.movefirst
%><html>
<head>
<title>Annuaire!!!!!!!</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
 
<body>
<h1 align="center"><b><font color="#990000"><%= request("cate")%></font></b></h1>
<p><table width="75%" border="0" cellpadding="1">
<% do while not rs.eof%>
  <tr>
    <td><a href="<%= rs("ref") %>"><%= rs("titre") %></a></td>
  </tr>
  <tr>
    <td height="83" valign="top"><%= rs("desc") %></td>
  </tr></p>
<% loop %></table>
</body>
</html>

Si la page ne se charge jamais (timeout à la fin), ca resemeble fort à un bug malheureusement très connu de l'IIS...

Sinon, dans un tout autre registre, pense a bien fermer ta connexion avec
Code:

1 2 3 4 RS.Close cnx.Close set RS=nothing set cnx=nothing
Bon courage,
Grafikm

C'est surtout qu'avant de faire ton loop, il faudrait peut-être penser à passer à la ligne suivante dans ton recordset. Là tu fais une boucle infinie !!
Code:

1 2 <% rs.movenext loop %>