Læse hjemmeside fra VBScript

Hey renolde !
Prøv, at kigge lidt på denne side :
http://www.ericphelps.com/scripting/samples/GetWebPage/GetWebPage.txt

/Killer

Private Function GetHTMLBin(strURL)
    Dim objXMLHTTP, strReturn
    Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
   
    objXMLHTTP.Open "GET", strURL, False
    objXMLHTTP.Send
   
    GetHTMLBin = objXMLHTTP.responseBody
    Set objXMLHTTP = Nothing
End Function

//>Rune

Her er et lidt mere brugbart eksempel:

Private Function GetHTMLBin(strURL)
    Dim objXMLHTTP, strReturn
    Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
   
    objXMLHTTP.Open "GET", strURL, False
    objXMLHTTP.Send
   
    GetHTMLBin = objXMLHTTP.responseBody
    Set objXMLHTTP = Nothing
End Function

Private Function BinToText(varBinData, intDataSizeInBytes) ' as String

    Dim objRs
    Const adFldLong = &H00000080
    Const adVarChar = 200
   
    Set objRS = CreateObject("ADODB.Recordset")
   
    objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
    objRS.Open
   
    objRS.AddNew
    objRS.Fields("txt").AppendChunk varBinData
    BinToText = objRS("txt").Value
   
    objRS.Close
   
    Set objRS = Nothing
End Function

html = BinToText(GetHTMLBin ("www.medions.dk"), 35000)

Det skal dog siges intet er testet af...

//>Rune

Den fejler (Line:5 Char:5 Error:unspecified error). Går ud fra at den ikke behøver at blive embedded i et html dokoment, men kan køres som den er?

Fandt en anden løsning på mit problem.

Hvad var den løsning? - altid en go' ide og dele det her med andre, da der sikkert er andre der også kan have din problemstilling.

//>Rune

ja tak, skriv lige hvad i fandt frem til !?!?!

har kigget lidt på det i har lavet, den skal have et fuldkomment stykke url (til .html filen) fx. "http://www.curia.eu.int/index.htm"
men derefter fejler scriptet ikke mere!

faktisk ret cool :D takker folkens

Jeg er pt. uden internet derhjemme pga. flytning. Jeg poster den løsning jeg fandt frem til når jeg kommer på nettet igen.