script temporizzato

[deleted_b]

l'unico modo per mettere in pausa un script asp è chiamare con xmlhttp un pagina aspx con dentro il solo comando sleep(...)... xmlhttp deve usare una chiamata sincrona

[DarioMarco]

scusate, ma forse sono io che faccio le cose troppo facili, ma a mio parere penso che la soluzione ci sia, indipendentemente da dove risiede il problema:

- il primo ciclo lo esegue per scorrere il recordset
- nel primo ciclo, ne esegue un'altro, ed esce finche non si verifica una condizione.

pensate che si possa unire con javascript??? o combino una frittata???

[br1]

Originariamente inviato da DarioMarco
scusate, ma forse sono io che faccio le cose troppo facili, ma a mio parere penso che la soluzione ci sia, indipendentemente da dove risiede il problema:

- il primo ciclo lo esegue per scorrere il recordset
- nel primo ciclo, ne esegue un'altro, ed esce finche non si verifica una condizione.

pensate che si possa unire con javascript??? o combino una frittata???

Mi spiace, ho rinunciato a capirti... ma ti posso assicurare che nel forum javascript questo problema (qualunque sia) non ci sta a fare nulla.

Pero' aiuterebbe ad aiutarti se provassi a rispiegare meglio cosa stai cercando di fare (a parte il secondo ciclo inutile e che bloccherebbe il server).

ciao

[saltodifondi]

credo di aver capito, vuoi dare "tempo" al server tiscali di verificare l'email. insomma, quando il tuo ciclo va più veloce del server... quale potrebbe essere un tempo di "ritardo" adeguato affinché il tuo script giri a pari passo con la verifica del server tiscali questo non può dirlo nessuno.

ti passo una funzione che ritarda ti un tot di decimi di secondo le istruzioni

SUB delay(decisec)
	inizio = round(timer(),1)*10
	do while (round(timer(),1)*10)-inizio < decisec
	loop
END SUB


la puoi usare qui:

Dim contrMail
do while not recordset.eof 
	if mail <> "" AND mail <> null then 	
		contrMail = mail
		fl_EmailExists = EmailExists(contrMail)
                CALL delay(20) 
		If fl_EmailExists = False Then
   			Response.Write("falsa")
		Else
			Response.Write("vera")
		end if
	end if
	recordset.MoveNext
Loop


oppure all'interno della funzione che chiama il server tiscali:

 Function EmailExists(EmailToTest)
        Dim Tiscali, XMLHTTP
        Tiscali = "http://webservices.tiscali.com/"
        Tiscali = Tiscali & "EmailServices.asmx/IsValidEmail"
        Tiscali = Tiscali & "?email="
        Set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
        XMLHTTP.Open "GET", Tiscali & EmailToTest, False
        XMLHTTP.Send
        If InStr(1, CStr(XMLHTTP.ResponseText), "true") > 0 Then
            EmailExists = True
        Else
            EmailExists = False
        End If
        Set XMLHTTP = Nothing
        CALL delay(20)
    End Function



in questo modo passeranno 2 secondi prima verificare la condizione
"If fl_EmailExists = False ...." 

Ma non garantisco che il metodo funzioni

Ad ogni modo fammi sapere se ti torna utile

[DarioMarco]

Thnx, la tua è indubbiamente una trovata geniale, purtroppo, penso che è come hanno detto gli altri, non si può fare, lo script cammina sempre, e procede con l'elaborazione della pagina:

'loop' without 'do'

grazie per la tua risposta

[br1]

Originariamente inviato da DarioMarco
Thnx, la tua è indubbiamente una trovata geniale, purtroppo, penso che è come hanno detto gli altri, non si può fare, lo script cammina sempre, e procede con l'elaborazione della pagina:

'loop' without 'do'

grazie per la tua risposta

Chissa' a quale codice ti riferisci... comunque: http://forum.html.it/forum/showthrea...5#post12402725