xmlhttp

Vill hämta info från en hemsida genom följande kod.
När jag gör detta får jag ett problem.
Det är att sidan som jag vill infoga länkar sina bilder och länker till en undermapp på sin sida. http://www.sidan.com/undermappen
och när jag kör detta så hänvisas bilderna till minadress.com/undermappen.

Nu vill jag byta ut min adress mot sidans adress. Hur gör jag detta?

Hoppas ni förstår vad jag menar och kan hjälpa mig.
<%
Function GetPage(strURL)
'On Error Resume Next

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", strUrl, False
objHTTP.Send

'If Err.Code <> "" Then
'strReturn = "Sidan fanns inte"
'Else
strReturn = objHTTP.ResponseText
'End If

Set objHTTP = Nothing
GetPage = strReturn
End Function

strSida = GetPage(" http://sidan.com/bild.asp")
%>

Om jag har förstått det rätt borde det väl funka så här?

<%
Function GetPage(strURL)
  'On Error Resume Next

  Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  objHTTP.Open "GET", strUrl, False
  objHTTP.Send

  'If Err.Code <> "" Then
    'strReturn = "Sidan fanns inte"
  'Else
    strReturn = objHTTP.ResponseText
  'End If

  Set objHTTP = Nothing
  GetPage = strReturn
End Function

strSida = GetPage("http://sidan.com/bild.asp")
strSida = Replace(strSida, "<img src=""undermapp/", "<img src=""http://www.sidan.com/undermapp/")
%>