<% Dim objGrab 'Set objGrab = Server.CreateObject("Microsoft.XMLHTTP") Set objGrab = Server.CreateObject("MSXML2.SERVERXMLHTTP.3.0") 'If you get errors, replace the line above with this one. strURL = "http://www.marbellaguide.com/en/cinema_feed1.asp" objGrab.Open "GET" , strURL , False ,"","" objGrab.Send If Err.Number = 0 Then If objGrab.Status = 200 then strOpen = objGrab.ResponseText Else Response.Write "Please enter a valid URL" End if Else Response.Write Err.Description End If grabtext = strOpen grabtext = Replace(grabtext, "src=""/", "src=""http://www.marbellaguide.com/") 'This displays the text that was grabbed by the script. response.write grabtext %>