---

Hej

Jeg har brug for at skrive en sætning til skærmen hvorefter jeg
vil have en pause på 5 til 10 sek. inden jeg udføre den næste
sætning, hvordan gør jeg det ??

På forhånd tak

Henrik Godiksen

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Henrik Godiksen" <henrik@godiks.dk> wrote in message
news:b15rf2$rnh$1@sunsite.dk...
> Hej
>
> Jeg har brug for at skrive en sætning til skærmen hvorefter jeg
> vil have en pause på 5 til 10 sek. inden jeg udføre den næste
> sætning, hvordan gør jeg det ??

du kan evt. bruge setTimeOut() funktionen

http://msdn.microsoft.com/library/default.asp?url=/workshop/author/dhtml/ref
erence/methods/setTimeout.asp

hth
>
> På forhånd tak
>
> Henrik Godiksen
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials

---

Henrik Eghave skrev:

>> Jeg har brug for at skrive en sætning til skærmen hvorefter
>> jeg vil have en pause på 5 til 10 sek. inden jeg udføre den
>> næste sætning, hvordan gør jeg det ??

Det kan ikke gøres i asp (rettelse, det kan muligvis gøres i asp,
ved hjælp af et forsinket load, men det er ikke kønt).

> du kan evt. bruge setTimeOut() funktionen

Spørg evt. i .clientside-gruppen hvis du vil have mere hjælp.

NB (til Henrik Eghave): Kig gerne på min signatur - bundcitater er
splid af tid og plads.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

[snip]
> NB (til Henrik Eghave): Kig gerne på min signatur - bundcitater er
> splid af tid og plads.

Taget til efterretning! :)

mvh
Henrik

---

Hej Henrik

Pænt er det ikke men det skulle fungere...

ASP....

Dim StartTime
StartTime = Now()

Response.Write "En meddelelse"
Response.Flush

Do Until DateDiff("s", Now(), StartTime) >= 10
Loop

....flere asp kommandoer

/Carsten Suurland

---

Carsten Suurland skrev:

> Pænt er det ikke men det skulle fungere...

Det gør det bare ikke.

Jeg har prøvet at lægge tiden over i en variabel - men det hjælper
heller ikke.

--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jc@dmf.dk> wrote in message
news:Xns93119AA14432Bjcdmfdk@gyrosmod.dtext.news.tele.dk...
> Carsten Suurland skrev:
>
> > Pænt er det ikke men det skulle fungere...
>
> Det gør det bare ikke.
>
> Jeg har prøvet at lægge tiden over i en variabel - men det hjælper
> heller ikke.


<%
Sub TimeDelay (Seconds)

' Variabler



' ------------------------------------------------------------------------
Seconds_Count = 0
Sec2 = 0



' ------------------------------------------------------------------------


' Saa laenge kriteriet er opfyldt
' Seconds_Count skal vaere mindre end eller lig med tidsvariablen
(Seconds)



' ------------------------------------------------------------------------
While Seconds_Count <= Seconds

Sec1 = Second (Time)

If Sec1 <> Sec2 Then

Sec2 = Second (Time)
Seconds_Count = Seconds_Count + 1

End If

Wend



' ------------------------------------------------------------------------

End Sub
%>


<%
Response.Write Time & "<br>"

Timedelay (2)

Response.Write Time & "<br>"
%>

Ses bedst i Fixed width font.

Den virker, men snupper 100% CPU-kraft mens den venter.
Der findes en komponent skrevet til formålet som ikke tager al kraft.
Jeg kan ikke huske hvad den hedder.

Mvh
Jimmy

---

> Der findes en komponent skrevet til formålet som ikke tager al kraft.
> Jeg kan ikke huske hvad den hedder.

Jeg mener det hedder AspWaitFor og er fra www.serverobjects.com.
Kan dog ikke lige tjekke efter, da deres side er nede lige nu.

--
Mvh. Jesper

---

Hej Jens

Nedenfor er den kode som fungerer fint ved mig:
*****************************************
Dim StartTime
StartTime = Now()

Response.Write StartTime
Response.Flush

Do While Abs(DateDiff("s", Now(), StartTime)) < 10
Loop

Response.Write Now()
Response.End
*****************************************
/Carsten Suurland

---

"Jens Gyldenkærne Clausen" <jc@dmf.dk> wrote
> Carsten Suurland skrev:
> > Pænt er det ikke men det skulle fungere...
> Det gør det bare ikke.

Og ofte vil også gælde at man er ude i noget snavs hvis man har brug for den
funktionalitet i ASP.

--
Jakob Andersen