script temporizzato

[DarioMarco]

Salve a tutti,
vorrei temporizzare il caricamento di una pagina, finchè una variabile non abbia un valore, es:

do while not recordset.eof 
		if mail <> "" OR mail <> null then 	
				Dim contrMail
				contrMail = mail
				do while not EmailExists <> ""
					If EmailExists(contrMail) = False Then
   		     			Response.Write("falsa")
						exit Do
    				Else
						Response.Write("vera")
						exit Do
					end if
				loop
recordset.MoveNext
Loop

Purtroppo, lo script mi da: Unexpected 'Loop' (l'ultima riga),
dove sbaglio???

[Roby_72]

Non puoi evitare tutti quei loop costruendo una query più adatta?
La Dim in ogni caso devi metterla fuori da qualsiasi ciclo...

Roby

[DarioMarco]

purtroppo, i loop sono questi:
uno che fa scorrere i recordset,
mentre l'altro, aspetta che il server gli da una risposta (true/false)

Se io non temporeggio (mettendo il secondo loop) lo script fa tante richieste al server, e lo manda in tilt.

potresti indicarmi una soluzione migliore pls???

[Roby_72]

ma cosa fa il secondo loop?

Roby

[DarioMarco]

Il secondo loop, fa una richiesta ad un server per vedere se l'indirizzo mail è valido.
EmailExists è una funziona, dove gli passi un parametro (contMail - indirizzo mail), che controlla la sua esistenza. questa funzione restituisce un booleano.

 del secondo loop
do while not EmailExists (contrMail) <> "" // finche EmailExists non ha un valore
			If EmailExists(contrMail) = False Then // se valore falso
   		    		Response.Write("falsa")
				exit Do // esci
    			Else
				Response.Write("vera")
				exit Do
				end if
			loop

alla prima riga ho sbagliato, ho corretto adesso :P

[br1]

A me pare che manchi la end if della prima if ... :master:

ciao

[DarioMarco]

Vabbè, lascia stare la sintassi, il codice è scritto in maniera molto disordinato, l'endif e poco prima del loop.

Ma un metodo per fare calmare sto benedetto script c'è????

praticamente devo dire al server: finchè la variabile non acquista un valore, tu cerca, ma non andare avanti.

[br1]

Non riesco a capire la complicazione... se la funzione che verifica l'esistenza della mail restituisce un valore a che scopo introdurre un loop? lo restituira' ( e quindi l'elaborazione proseguira') quando avra' terminato il suo compito :master:

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

Cosa non ho capito?

ciao

[DarioMarco]

Ok, gioco il Jolly

<%
    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
    End Function


%>

questa è una funzione che contatta il server Tiscali, alla fine EmailExists, avrà un risultato.
Se lo faccio una volta, ok, ma se lo faccio più volte, il server s'impalla, e quindi vorrei dargli un po di tempo per respirare.

Un ciclo do while, è velocissimo, mentre il server, è più lento a dare una risposta, immagino sia questo il mio problema...

[br1]

Originariamente inviato da DarioMarco
questa è una funzione che contatta il server Tiscali, alla fine EmailExists, avrà un risultato.
Se lo faccio una volta, ok, ma se lo faccio più volte, il server s'impalla , e quindi vorrei dargli un po di tempo per respirare.

Quale dei due, secondo te? se e' il tuo (dubito, vista la sequenza delle operazioni) e' un comportamento anomalo e devi contattare l'assistenza, se e' Tiscali non puoi farci nulla...

Originariamente inviato da DarioMarco
Un ciclo do while, è velocissimo, mentre il server, è più lento a dare una risposta, immagino sia questo il mio problema...

Vedi sopra.

ciao