Hent og læs indhold af html side ...

Jeg har lavet et komponent der faktisk køre ret godt.

kunne godt tænke mig at omskrive det lidt, håber en kan hjælpe med det.

sådan ser den ud inden den kompileres:

------------

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Private Sub Command1_Click()
Dim download_url As String

Text1.Text = download_url
DownloadFile "" & download_url & "", "resultat.htm"
End Sub

--------------
Min ASP fil ser således ud.

Dim obj
Set obj = CreateObject("ASPlink.class1")
obj.DownloadURL "http://www.testside.dk/hent.html"
--------------

Selve læsningen af filen bliver nød til at foregå i ASP filen - for der sluttes af med at slette en record.

Kommer filen med et output der ikke er OK så skal filen ikke slettes.