Tidsforsinkelse

KODE DER BEVIRKER EN PAUSE = Server.ScriptTimeout = 1000

pause: 1 sek

mm12010>>> Det er ikke rigtigt - Server.ScriptTimeout angiver hvor længe serveren vil lade dit script være om at udføre et enkelt request, før det bliver slået ihjel. Defaultværdien er 90 sekunder. mm12010's forslag vil muliggøre at scriptet kan køre løs i 1000 sekunder før det bliver slået ihjel, det har dog intet at gøre med en pause!

jespernaur >> Tak

Jeg fandt selv et svar, der gør tricket:

          for i = 0 to 500000
                  i = i+1
          next

Her er en forsinkelse på 2 sekunder. Jeg ved ikke om det er optimalt, men det virker:

dtmNu = Now()
dtmSenere = DateAdd("s",2,dtmNu)
Do While dtmSenere > dtmNu
    dtmNu = Now()
Loop

Jeg er nødt til at nævne, at begge ovenstående forslag belaster serverens CPU 100% i ventetiden, da der er tale om 'busy wait'. hf's forslag er nok det 'bedste', hvis der ønskes præcis kontrol over ventetidens længde. Udførelsestiden for weiland's løkke fra 0 til 500000 afhænger derimod både af serverens CPU-hastighed og dens belastning fra andre brugere. I begge tilfælde vil udførelsen af scriptet blive slået ihjel efter udløbet af Server.ScriptTimeout, så hvis du har brug for at afsende hundrede- eller tusind-vis af mails med pause i sekundstørrelse mellem hver, er dette ikke løsningen. Der skulle i så fald nok overvejes en lidt mere 'frit-i-luften' kørende løsning, der ikke er en del af et ASP-script.

Mvh
Jesper Naur