Gestire il tempo di esecuzione di uno script

[ciucciatiilcalzino]

Ciao a tutti,
all'interno di una pagina ASP (classico)
ho una funzione che si connette al server tramite XMLHTTP a Google per ottenere il tempo e la distanza tra due punti.
Ho notato che a volte il mio server rende questa richiesta molto lenta bloccando lo script della pagina.
Vi vorrei quindi chiedere, se posso cambiare in qualche modo lo script allegato per far si che se il tempo di esecuzione supera i cinque secondi, lo arresta o entri in una condizione che mi permetta di gestire questo evento
Grazie

function GooDistInd(origine,destintario)


Set objxml = Nothing




     ' Dichiaro le variabili che mi servono nello script
        Dim file, objXmlHttp, objXmlDom, distanza, cognome, i




        'http://maps.google.com/maps/api/directions/xml?origin=40.7143528,-74.0059731&destination=40.7035458,-74.21607971&sensor=false
         file = "http://maps.googleapis.com/maps/api/directions/xml?origin="& origine &"destination="&destintario &"&sensor=false"


        Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
            objXmlHttp.Open "GET", file, False
            objXmlHttp.Send




        Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
            objXmlDom.async = False
            objXmlDom.loadXML(objXmlHttp.responseText)




        Set tempo = objXmlDom.getElementsByTagName("leg/distance/value")




        i = 0




        For i = 0 To tempo.length - 1






             distanza=tempo(i).Text
             exit for
        Next






        GooDistInd =distanza




 end function

[cavicchiandrea]

http://www.html.it/pag/16611/la-richiesta-fantasma/

[ciucciatiilcalzino]

http://www.html.it/pag/16611/la-richiesta-fantasma/

Grazie Andrea
sicuramente provo lo script, perchè ho anche delle chiamate in javascript
ma il problema dello script che ho postato ce l'ho in asp
in pratica vorrei gestire gli errori di timeout in delle funzioni vbscript (asp)

[cavicchiandrea]

se parliamo di server/siti esterni (vedi maps.googleapis.com) non credo sia possibile la gestione tramite vbscript, ameno che non vegano forniti API dei siti stessi

[ciucciatiilcalzino]

se parliamo di server/siti esterni (vedi maps.googleapis.com) non credo sia possibile la gestione tramite vbscript, ameno che non vegano forniti API dei siti stessi

sto provando questo script
ti faccio sapere come riesco a mandarlo in timeout

Const WAIT_TIMEOUT =15
Dim http
Set http = Server.CreateObject("MSXML2.ServerXMLHTTP")
    http.open "POST", servleturl,True'async request
    http.setrequestheader "content-type","application/x-www-form-urlencoded"
    http.setrequestheader "accept-encoding","gzip, deflate"
    http.send  "request="& sxml
    If http.waitForResponse(WAIT_TIMEOUT)Then'response ready
        http_response = http.responseText
    Else'wait timeout exceeded
        'Handling timeout etc
        'http_response = "TIMEOUT" 
    EndIf
Set http =Nothing

[vic53]

ciao
se metti 180 secondi sul tuo server (il doppio) e poi lo rimetti a posto alla fine dello script?
il default è 90 secondi ma tu puoi fare varie prove...

Server.ScriptTimeout=180

ciao