imagenes

[_br1_]

La funcion que buscan puede ser esta
<%
Function TraeFuente(URL)
Set Fuente = Server.CreateObject("Microsoft.XMLHTTP")
Page = "http://" & URL
Fuente.Open "GET", Page, False
Fuente.Send
TraeFuente = "<xmp>" & Fuente.responseText & "</xmp>"
Set Fuente = Nothing
End Function
%>
y para ver el codigo sera un
response.write SourceCode = TraeFuente("argentina.deremate.com")

Ahora a ver si alguien me puede decir como es esto.
Cuando hago el response.write me muestra el codigo de la url pero no como codigo siino como texto.
Y quisiera saber si se puede tomar desde esa URL solo desde un punto, por ejemplo <!--DR_HomeV3_NavBar_Tbl--> hasta el final </!--DR_HomeV3_NavBar_Tbl-->.

El codigo que tengo esta en PHP pero necesitaria aplicarlo a ASP, ya que necesito esas funciones. Se los paso abajo
Saludos y gracias de antemano


php<?
$SiteID=5523730;
$idu=2764669;
switch ($_SERVER["HTTP_ACCEPT_LANGUAGE"]) {
case "es-mx":
$url1 = 'mexico.deremate.com';
break;
case "es-ar":
$url1 = 'argentina.deremate.com';
break;
case "es-cl":
$url1 = 'chile.deremate.com';
break;
case "es-ve":
$url1 = 'venezuela.deremate.com';
break;
case "es-co":
$url1 = 'www.deremate.com.co';
break;
case "pt-br":
$url1 = 'www.arremate.com.br';
break;
default:
$url1 = 'argentina.deremate.com';
break;
}
if(!($myFile=fopen("http://$url1","r")))
{
echo "Estamos realizando tareas de mantenimiento.";
exit;
}
while(!feof($myFile))
{
// Read each line and add to $myLine
$myLine.=fgets($myFile,4096);
}
fclose($myFile);
$start='<!-- Identificate -->';
$end="<!-- Fin Identificate -->";
$start_position=strpos($myLine, $start);
$end_position=strpos($myLine, $end)+strlen($end);
$length=$end_position-$start_position;
$myLine=substr($myLine, $start_position, $length);
$myLine=ereg_replace( 'src="/', 'src="http://'. $url1 .'/', $myLine );
$myLine=ereg_replace( 'background="/', 'background="http://'. $url1 .'/', $myLine );
$myLine=ereg_replace( 'src=/user/images/', 'src=http://'. $url1 .'/user/images/', $myLine );
$myLine=ereg_replace( 'href="/', 'href="http://'.$url1.'/Afiliados/Tracking.asp?SiteID='.$SiteID.'&idu='.$idu.'&UrlTo =http://'.$url1.'/', $myLine );
?>

<style type="text/css">
<!--
.snt {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
font-weight: lighter;
color: #CC6633;
}
.nbt {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #663399;
}
-->
</style>

<?
echo $myLine;
?>