Varför vill du göra det? Vill du presentera något mellan varje loop?
Frågan#1
Hejsan
Undrar om man på något sätt kan lägga in nån fördröjning på några sekunder i en loop. Så att det blir några sekunders mellanrum mellan varje loop...
tack
/Arvid
fördröjning
9 svar · 265 visningar · startad av arvjos
strunta i varför...jag vill bara ha en enkel fördröjning. Säg att en text ska visas några sekunder...
Man skulle kunna använda Response.Addheader, men i en loop? Det låter inte vettigt, och sen låter det komlicerat. Är det inte dumt att starta en loop, avbryta den, visa en text i några sekunder, och sen starta den igen, från n:te loopen? (Om nu det ens går..)
arvjos skrev:
strunta i varför...jag vill bara ha en enkel fördröjning. Säg att en text ska visas några sekunder...
Nej, jag struntar inte i varför. Jag har varit med om alldeles för många gånger då krånglig kod kunde bytas ut mot ett enklare stycke, under förutsättning att man inte struntar i gränssnittsproblemet.
För det låter sannerligen som om du skulle kunna lösa det där på ett bättre sätt än att fördröja en loop.
RED. Jag raderade den andra korspostade tråden, den var helt onödig i detta forum.
nej
grejen är att det skickas iväg ett mail i varje loop med hjälp av CDONTS men den skickar inte riktigt i varje loop. Min misstanke är då att det hela går lite för fort för det går utmärkt om man gör det en i taget. Det är därför jag vill lägga in en liten fördröjning i varje loop...
om du har nån bättre lösning än loop är den väldigt välkommen
hjälper det...
/arvid
Oj oj oj vad krångligt. Om du ska skicka ut ett mejl med varje loop så tar det tid. Om du hämtar e-postadresser från en databas och sedan loopar igenom alla och försöker mejla en person för varje loop så är det oerhört ineffektiv kod. Så här kan kod se ut för att skicka e-post till flera med Cdonts:
Dim Ep
Set Ep = Server.CreateObject("CDONTS.Newmail")
Ep.From = "din_e-post@adress.com"
Ep.To = "friend1@address1.com;friend2@address2.com"
Ep.Subject = Request.Form("rubrik")
Ep.Body = Request.Form("mejl")
Ep.Send
Set Ep = Nothing
I Ep.To får du loopa igenom alla adresser i databasen och skriva ut dem, samt separera dem med ;.
men hörrö....jag har ju ett personligt brev till varje adress...hämtar data från en databas som ska ingå i brevet. Vad jag vet går inte det att lösa på ditt sätt....
/Arvid
Du får ju berätta alla kriterier du har, och vad som ska ske! Det är svårt att hjälpa någon när man inte har något underlag alls!