Enviar dados via Post

[kioshy 0]

Salve galera!!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

Seguinte gostaria de saber se tem como eu enviar valores para uma página via método post, mas sem ter q usar um formulário pro usuario digitar.

 

Explicando melhor:

 

Tenho uma página que irá precisar efetuar a conversão de valores que estão em reais para dólar e vice versa, só que o esquema que eu consegui foi apartir de um site chamado Conversor q tem um formulário q o cliente teria q colocar o valor que ele qué converter a moeda em que está e para qual moeda irá, bom isso acaba sendo complicado demais e eu quero que o cliente entre no meu site e veja a tarifa em dólar e em baixo a tarifa em reais, com a cotação do momento do acesso a página.

 

Bom espero que tenha sido claro o suficiente.

 

desde já agradeço.

[Mário Monteiro 179]

sem form creio que não

[meirelles 0]

não sei se rola1º coloca um form com campos hidden2º depois faz um response.redirect3º na outra pagina agente request.form("campo_hidden")nem sei se é isso. mas foi aí!

[kioshy 0]

ai meirelles assim como você falou num vai dar pq a página q recebe os dados não é minha.se alguém souber de um outro jeito de fazer isso por favor me fala.

[Salgado 4]

Dê uma pesquisada sobre XMLHTTP que você encontrará uma possível solução.

[kioshy 0]

Cara pelo o q eu entendi o XMLHTTP busca informações de um determinado xml, só q o q acontece eu não tenho esse xml q contenha a cotação do dólar.Entrei em contato com o pessoal da BM&F mas ainda não obtive uma resposta.Bom se alguém souber como fazer essa verificação da contação on line por favor me ajude, estou precisando muito disso.

[kioshy 0]

Galera se vcs quiserem ver como tá ficando o sistema clique aqui

 

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Tá certo que tá horrível mas por enquanto é só pra conseguir fazer funfar e depois sim eu deixo ele bonitinho.

 

Agora meu único problema tá sendo com a página de resposta ela é muito grande e eu queria deixar ele bem menor tentei usar o iframe mas num deu muito certo não consegui apenas tirar a parte de baixo.

 

Se alguém souber de alguma dica pra fazer isso por favor me ajude. :)

[Salgado 4]

Está usando o XMLHTTP?

[kioshy 0]

não isso foi um link q encontrei na net

[kioshy 0]

Bom agora to usando o seguinte Código:

 

ASP

[*]<%

 

[*]Session.LCID = 1046

 

[*]Set obj = CreateObject("MSXML2.XMLHTTP")

 

[*]obj.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm"

 

[*]obj.Send()

 

[*]textHTML = obj.ResponseText

 

[*]dados = LCase(textHTML)

 

[*]' Procura pela posição da string "Taxa de Venda"

 

[*]i = 1

 

[*]i = inStr(i,dados,"taxa de venda")

 

[*]' Procura pela 1ª tag <tr> depois de "Taxa de Venda"

 

[*]i  = inStr(i,dados,"<tr")

 

[*]f  = inStr(i,dados,"</tr") ' Pega a 1ª tag </tr> depois de <tr>

 

[*]dados = Mid(dados,i,(f-i))  ' Retira somente linha da interesse

 

[*]dados = Replace(dados,"</font>","|",1,2) ' Substitui </font> por "|" (2 vezes)

 

[*]dados = Trim(LimpaHTML(dados))  ' Retira todas as tags

 

[*]dados = Split(dados,"|")  ' Separa criando a matriz

 

[*]dat = Date

 

[*]set conn = Server.CreateObject("ADODB.Connection")

 

[*]conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dolar.mdb")

 

[*]sql = "UPDATE TabelaCotacao SET Data = '" & dados(0) & "', Compra = " & NumeroSQL(dados(1)) & ", Venda = " & NumeroSQL(dados(2))

 

[*]conn.execute(sql)

 

[*]conn.close

 

[*]set conn = nothing

 

[*]inf = Array("Data","Compra","Venda")

 

[*]For i = lbound(dados) to ubound(dados)

 

[*] Response.Write inf(i) & " : " & dados(i) & "<br>"

 

[*]Next

 

[*]

 

[*]Function Strzero(val,num)

 

[*]  val = Trim(CStr(val))

 

[*]  Strzero = String(num-len(val),"0") & val

 

[*]End Function

 

[*]

 

[*]Function ConverteData (valor,formato)

 

[*]if not isDate(valor) then

 

[*]  Response.Write "Data Inválida !"

 

[*]  Response.End

 

[*]else

 

[*]  formato = UCase(formato)

 

[*]  if Trim(formato) = "" then formato = "DD/MM/YYYY HH:MI:SS"

 

[*]  formato = Replace(formato,"YYYY",Year(valor))

 

[*]  formato = Replace(formato,"MM",Strzero(Month(valor),2))

 

[*]  formato = Replace(formato,"DD",Strzero(Day(valor),2))

 

[*]  formato = Replace(formato,"HH",Strzero(Hour(valor),2))

 

[*]  formato = Replace(formato,"MI",Strzero(Minute(valor),2))

 

[*]  ConverteData = Replace(formato,"SS",Strzero(Second(valor),2))

 

[*]end if

 

[*]End Function

 

[*]

 

[*]Function LimpaHTML(matriz)

 

[*]Do While True

 

[*]  ini  = InStr(1,matriz,"<")

 

[*]  If ini = 0 Then Exit Do

 

[*]  fim  = InStr(ini,matriz,">")

 

[*]  parcial = Mid(matriz,ini,fim-ini+1)

 

[*]  matriz = Replace(matriz,parcial,"")

 

[*]Loop

 

[*]LimpaHTML = matriz

 

[*]End Function

 

[*]

 

[*]Function NumeroSQL(numero)

 

[*] dim x

 

[*] x = numero

 

[*] x = Replace(x,".","")

 

[*] x = Replace(x,",",".")

 

[*] If isNumeric(x) Then

 

[*] NumeroSQL = x

 

[*] Else

 

[*] NumeroSQL = numero

 

[*] End If

 

[*]End Function

 

[*]%>

 

Só q na hora q eu executo o script a´resenta o seguinte erro:

 

msxml3.dll (0x8000000A)

Os dados necessários para concluir esta operação ainda não estão disponíveis

/testeIT/Conversor/cotacao.asp, line 6

 

Bom galera to perdidinho num sei mais o q fazer pra arrumar esse código por favor em ajudem

[kioshy 0]

Help me Please!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[gastao 0]

linha 4:obj.open "GET", "http://www.bcb.gov.br/htms/infecon/taxas/taxas.htm" , false

[kioshy 0]

Agora só mudou o erro:

 

msxml3.dll (0x80072EE7)

The server name or address could not be resolved

/testeIT/Conversor/cotacao.asp, line 5

[gastao 0]

aí ja nao sei mais, pois aqui funfa corretamente

[kioshy 0]

tentei no meu host e funfo quase normal.

 

Só q o resultado saiu assim:

Data : 09/08/20052,31432,3151

[gastao 0]

aí é o esquema q ele ta usando pra pegar os dados entre as TDs