----------
<%
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
strURL = "
http://www.pezzo.lir.dk"if request("getSite") <> "" then
strURL = replace(request("getSite"),"""","")
if not left(strURL,7) = "
http://" then
strURL = request("getDoman") & "/" & replace(request("getSite"),"""","")
end if
end if
HTTPObj.Url = strURL
strSourceCode = HTTPObj.GetURL
strR1 = replace(strSourceCode,"href=","href=?getDoman=" & strUrl & "&getSite=")
strR2 = replace(strR1,"href=""","href=""?getDoman=" & strUrl & "&getSite=")
strR3 = replace(strR2,"src=","src=?getDoman=" & strUrl & "&getSite=")
strR4 = replace(strR3,"src=""","src=""?getDoman=" & strUrl & "&getSite=")
strOutPut = strR4
'strOutPut = strSourceCode
Response.Write strOutPut
%>
-----