Ripresa dati da un altro sito

[kronos23]

Prima funzionava abbastanza bene ma oggi apro il sito e m ida questo errore e non capisco perchè è sempre andato.....

msxml3.dll error '800c0005'

The system cannot locate the resource specified.

/fcrore/asp2/barche.asp, line 11

Codice:

<%

Dim Http,varTxt
Set Http = Server.CreateObject("Microsoft.XMLHTTP")
Http.open "GET","http://www.boatshop24.com/web/it/haendler_homepages/gdd41174/liste.htm",False
Http.Send() <--------------------- Riga 11
varTxt = Http.ResponseText
Set Http=Nothing

dim start,inizio_txt,spos,epos,indice,arrBarche()

start=1
inizio_txt=""
fine_txt=""
indice=0

while not instr(start, varTxt, inizio_txt)=0

spos=instr(start, varTxt, inizio_txt)
epos=instr(spos+len(inizio_txt),varTxt,fine_txt)

redim preserve arrBarche(indice)
arrBarche(indice)=mid(varTxt,spos,epos-spos)
start=epos+len(fine_txt)
indice=indice+1
wend


'estraggo per ogni barca i seguenti dati:
'id,lunghezza,larghezza,anno di costruzione,motori,peso,nome,pescaggio

dim arrId(),arrLung(),arrLarg(),arrAnno(),arrMotori(), arrPeso(),arrNome(),arrPos(),arrPescaggio(), arrlink()
redim arrId(indice): redim arrLung(indice):redim arrLarg(indice): redim arrAnno(indice):redim arrMotori(indice): redim arrPeso(indice): redim arrNome(indice): redim arrPos(indice): redim arrPescaggio(indice): redim arrlink(indice)

conta=0: dati_txt=""

VVi pregonon so proprio come sistemarlo...

[kronos23]

Scusate si è rimesso a funzionare.... Non so cosa gli abbia preso scusate...