loop dans recordset sqlserver
Salut,
Je traville sur une bdd sqlserver, voici la page ASP qui n'affiche rien et la table conteint 4.000.000 records environ.
Il me dit
Error Type:
Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
Mais j'ai mis le parameter time out à 0 donc illimitée.
Est-ce que on doit peut utilisre Movefirst et MoveNext pour parcourir le recordset ?
Car des que je retire le code de la boucle je peux bien lire par exemple le contenu du premier record en utilisant
Response.write RS("champs1") & "<br>"
Response.write RS("champs2") & "<br>"
......
Response.write RS("champs8") & "<br>"
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
<%OPTION EXPLICIT%>
<!--#include file="conf/adovbs.inc" -->
<!-- #include file="conf/info.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>GEO</title>
</head>
<body>
<%
Dim SQL_query, str_boek
Dim i
on error resume next
err.clear
'call sub to open database
Call OpenDatabase() 'see in map conf/info.asp
if err then
Response.Write "<br>failed open databse in: index.asp <br> objConn=" & _
objConn & "<br>Error number=" & err.number & "<br>Error description:" & err.description
'Reset server objects
Call CloseDatabase()'see in map conf/info.asp
else
SQL_query = "SELECT * FROM T_Result"
'Response.Write "<br>" & SQL_query
Set RS = objConn.Execute(SQL_query)
str_boek="<TABLE WIDTH=75% BORDER=1 CELLSPACING=1 CELLPADDING=1>"
RS.MoveFirst
i = 0
do while not RS.eof
if i mod 2 = 0 then
rowcolor = "#990066"
else
rowcolor = "#055369"
end if
str_boek = str_boek & "<tr style bgcolor ='" & rowcolor & "'>" & _
"<td>" & RS("ACC_ID") & "</td>" & _
"<td>" & RS("ACC_FMC") & "</td>" & _
"<td>" & RS("C_Date") & "</td>" & _
"<td>" & RS("WkDay") & "</td>" & _
"<td>" & RS("CMonth") & "</td>" & _
"<td>" & RS("Chour") & "</td>" & _
"<td>" & RS("Street") & "</td>" & _
"</tr>"
RS.movenext
i = i+1
loop
str_boek = str_boek & "</table>"
Call CloseDatabase()' see in map conf/info.asp
Response.Write str_boek
end if
%>
</body>
</html> |
Je ne vois pas le probleme.
Merci d'avance pour vos idées.
