Microsoft.XMLHTTP

[sergiocacique 0]

pessoal estou com esse script aqui abaixo, mas estou tendo uma dificuldade, como que eu faço para trazer somente a tabela de bolsa do canto direto do site?

ele esta trazendo o site todo.

<%

Function BinaryToString(xBinary)

 

Dim Binary

Dim RS, LBinary

 

If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary

Const adLongVarChar = 201

Set RS = CreateObject("ADODB.Recordset")

LBinary = LenB(Binary)

 

If LBinary>0 Then

RS.Fields.Append "mBinary", adLongVarChar, LBinary

RS.Open

RS.AddNew

RS("mBinary").AppendChunk Binary

RS.Update

BinaryToString = RS("mBinary")

Else

BinaryToString = ""

End If

 

Set RS=Nothing

 

End Function

Function MultiByteToBinary(MultiByte)

 

Dim RS, LMultiByte, Binary

Const adLongVarBinary = 205

 

Set RS = CreateObject("ADODB.Recordset")

LMultiByte = LenB(MultiByte)

 

If LMultiByte>0 Then

RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte

RS.Open

RS.AddNew

RS("mBinary").AppendChunk MultiByte & ChrB(0)

RS.Update

Binary = RS("mBinary").GetChunk(LMultiByte)

End If

 

Set RS = Nothing

MultiByteToBinary = Binary

 

End Function

 

dim objXMLHTTP

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

Url = "http://www.gradualinvestimentos.com.br/portal/home.aspx"

objXMLHTTP.Open "GET", URL, FALSE

objXMLHTTP.Send

sai=objXMLHTTP.responsebody

set objXMLHTTP=nothing

response.write BinaryToString(sai)

%>

[Gutoffline 1]

Cria uma DIV e coloca a parte de bolsa nessa div, ai você trabalha só com a DIV, independente do restante do site.

[xanburzum 169]

coloca o

response.write BinaryToString(sai)

dentro da DV, como mencionado acima....