Il ciclo è piuttosto corposo, comunque gli URL vengono prelevati da un db mysql, per poi essere dati in pasto a questo script che ne estrae il codice html, che verrà successivamente analizzato tramite regular expression....

while not objRS.eof

URL=objRS("URL")

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
Set objXmlDOM = Server.CreateObject("Microsoft.XMLDOM")
Set test = Server.CreateObject("Microsoft.XMLDOM")
objXMLHTTP.Open "POST", URL, False
objXMLHTTP.Send(null)

If objXMLHTTP.status = 200 then
response.write objXMLHTTP.ResponseStatus
objXmlDOM.loadXML(objXMLHTTP.ResponseText)
end if

Set objXMLHTTP = Nothing
Set objXmlDOM = Nothing
Set test = Nothing

objRS.movenext
wend

boh....