Ver Mensaje Individual
  #12 (permalink)  
Antiguo 01/09/2005, 11:26
Avatar de Myakire
Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
Cita:
A ver, no es necesario tener php instalado. Yo lo que quiero es que en una página EN ASP, se incluya una página en PHP.
Bueno, la página a la que hice refernecia dice que si, e incluso al probar por ejemplo <object type="text/html" data="http://url.org/script.php"></object>, en el navegador aparece una ventana indicando que se esta a punto de ejecutar un código externo del que podría no tener control. Pero supuse que por no tener el PHP, fue que no me regreso nada.

Cita:
O lo que podría ser lo mismo, que en una página en ASP se incluya un código HTML externo.

¿Cuál es el código en ASP para hacer esto?
aaaahhh, para eso puedes utilizar un código como este:

Código:
<%

  Response.Buffer = True
  Dim objXMLHTTP, xml

  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", "http://dsrefa01.hsbc.com.mx/aptrix/InternetPub.nsf/Content/TasasSplash", False
	 Cadena = CSTR(xml.responseText)
	 PosIni1 = InStr(Cadena,"DOLAR AMERICANO")
	 PosIni2 = InStr(PosIni1,Cadena,"$")
	 PosFin  = InStr(PosIni2, Cadena,"<")
   DolarCompra = MID(Cadena, PosIni2, PosFin-PosIni2)
	 PosIni1 = PosFin
	 PosIni2 = InStr(PosIni1,Cadena,"$")
	 PosFin  = InStr(PosIni2, Cadena,"<")
   DolarVenta = MID(Cadena, PosIni2, PosFin-PosIni2)
	 Response.Write "Dolar Compra: " & DolarCompra & "<br>"
	 Response.Write "Dolar Venta: " & DolarVenta & "<br>"
   Session.LCID = 2058
	 Response.Write "100 pesos son en dolares: " & FormatNumber((100 / CDbl(MID(DolarVenta,InStr(DolarVenta,";")+1,LEN(DolarVenta)))),2) & "<br>"
  Response.Write Cadena & "<br>"
  Set xml = Nothing
%>