---

Kan nogen fortælle mig, hvorfor response.flush ikke virker i denne kode?

Der kommer først svar til skærmen, når elle svar er fundet.
SLinier er sat til 20 tidligere og overskriften vises godt nok for hver 20
linier.

'--------- Find svar på forfatterforespørgsel -------------
svar.open soegestr,Conn
I=0
%><hr size="1">
<div align="center">
<table border="0" rules=all cellspacing="01" width="790"><%
Do While Not svar.EOF
If (I MOD SLinier) = 0 Then
response.flush
'Skriv overskrift
%>
<tr>
<b><font size="4"><td width="45"></td>
<td width="300"><p align="left"><b>Forfatter</td>
<td width="276"><p align="left"><b>Titel</td>
<td width="40" align="center"><b>År</td>
<td width="35" align="center"><b>Nr</td>
<td width="37" align="center"><b>Side</td>
<tr>
<%
End If
'Skriv resultatslisten
%> </b>
<tr>
<td width="45" align="center"><font size="4"><% response.write I+1%></td>
<td width="300"><% response.write SForfatter%></td>
<td width="276"><% response.write Titel%></td>
<td width="40" align="center"><% response.write Aar %></td>
<td width="35" align="center"><% response.write Nr %></td>
<td width="37" align="center"><% response.write Side %></td>
<%
I = I + 1
'Næste
svar.MoveNext
Loop
svar.close
%> </table>
<p align="center"> <%
Conn.Close
Set Conn = Nothing


Mvh Kurt

---

Kurt G wrote:
> Kan nogen fortælle mig, hvorfor response.flush ikke virker i denne kode?
>
> Der kommer først svar til skærmen, når elle svar er fundet.
> SLinier er sat til 20 tidligere og overskriften vises godt nok for hver 20
> linier.
>
> '--------- Find svar på forfatterforespørgsel -------------
> svar.open soegestr,Conn
> I=0
> %><hr size="1">
> <div align="center">
> <table border="0" rules=all cellspacing="01" width="790"><%
> Do While Not svar.EOF
> If (I MOD SLinier) = 0 Then
> response.flush
> 'Skriv overskrift
> %>
> <tr>
> <b><font size="4"><td width="45"></td>
> <td width="300"><p align="left"><b>Forfatter</td>
> <td width="276"><p align="left"><b>Titel</td>
> <td width="40" align="center"><b>År</td>
> <td width="35" align="center"><b>Nr</td>
> <td width="37" align="center"><b>Side</td>
> <tr>
> <%
> End If
> 'Skriv resultatslisten
> %> </b>
> <tr>
> <td width="45" align="center"><font size="4"><% response.write I+1%></td>
> <td width="300"><% response.write SForfatter%></td>
> <td width="276"><% response.write Titel%></td>
> <td width="40" align="center"><% response.write Aar %></td>
> <td width="35" align="center"><% response.write Nr %></td>
> <td width="37" align="center"><% response.write Side %></td>
> <%
> I = I + 1
> 'Næste
> svar.MoveNext
> Loop
> svar.close
> %> </table>
> <p align="center"> <%
> Conn.Close
> Set Conn = Nothing
>
>
> Mvh Kurt
>
>


Sæt response.flush til sidst i løkken? Bare et gæt

---

"Jesper Staun Hansen" <jeshan@es.aau.dk> skrev i en meddelelse
news:47c32c31$0$90268$14726298@news.sunsite.dk...
> Kurt G wrote:
>> Kan nogen fortælle mig, hvorfor response.flush ikke virker i denne kode?
>>
>> Der kommer først svar til skærmen, når elle svar er fundet.
>> SLinier er sat til 20 tidligere og overskriften vises godt nok for hver
>> 20 linier.
KLIPPET

> Sæt response.flush til sidst i løkken? Bare et gæt
Det er prøvet og hjalp ikke.
Det virker, som om funktionen er sat ud af drift.
Selv om jeg anbringer response.flush lige efter
Do While Not svar.EOF
kommer der først svar efter alle er fundet.

Findes der en mulighed for at afbryde nogle af funktionerne i WB eller kan
man 'glemme' at skrive noget, så det ikke virker?

Mvh Kurt

---

On Mon, 25 Feb 2008 10:44:40 +0100, "Kurt G" <kurt_g@guldbaek.net>
wrote:

>Kan nogen fortælle mig, hvorfor response.flush ikke virker i denne kode?
>
>Der kommer først svar til skærmen, når elle svar er fundet.

Er du sikker på det?
Medmindre du har en meget langsom server, tror jeg ikke den vil tage så
lang tid om at fyre svarene af, at du vil opdage, at de kommer "i
klumper".

Jeg vil gætte på, at scriptet bruger det meste af tiden på at etablere
Connection, udføre SQL'en og danne et RecordSet, mens selve
udskrivningen vil gå ret hurtigt.

Du kan evt. teste det ved at indføje en tidsforsinkelse:
<snip>

> Do While Not svar.EOF
For c = 0 To 999
y = y + c
Next

Det burde give så meget tidsforsinkelse, at udskriften går *en del*
langsommere.

Advarsel: Brug kun den slags loops til test! De belaster serveren, og
hvis du bruger et webhotel, kan de (med rette) blive sure

Good luck!

--
Jørn Andersen,
Brønshøj