|
<%
Session("debug") = True
Dim RegEx
Set RegEx = New RegExp
RegEx.Global = True
RegEx.IgnoreCase = True
RegEx.Pattern = "<\!\-\- begin new content \-\->((.|\n)*)<\!\-\- end new content \-\->"
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "GET", "http://ocwebsolution.com/hosting_main.asp", False
objHTTP.Send
Set objMatches = RegEx.Execute(objHTTP.ResponseText)
HTML = Replace(RegEx.Replace(objMatches.Item(0), "$1"), "background-image: url('", "background-image: url('http://pursesalecom.host-manager.com/")
HTML = Replace(HTML, " 0 Then Response.Write(HTML)
Set RegEx = Nothing
Set Matches = Nothing
Set objHTTP = Nothing
%>
|
|
