contenido de otras paginas en la mia.

[sjam7]

Código:

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", "http://dsrefa01.hsbc.com.mx/aptrix/I...nt/TasasSplash", False
  xml.Send
  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>"
'	   Response.Write Cadena & "<br>"
  Set xml = Nothing
  
response.write "Dolar compra"&Dolarcompra
response.write "<br>Dolar venta"&Dolarventa

Response.Write "<br>100 pesos son en dolares: " & FormatNumber((100 / CDbl(MID(DolarVenta,InStr(DolarVenta,";")+1,LEN(DolarVenta)))),2) & "<br>"
dia=day(date())
mes=month(date())
ano=replace(year(date()),"20","")
response.write dia&mes&ano
%>