Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Carlos Moreira

Somar com PAC

Por , em ASP Clássico

Recommended Posts

Carlos Moreira    0

Carlos Moreira
Postado

Ola pessoal preciso somar o peso no PAC ja tenho no sedex como no codigo abaixo

mas como posso somar com PAC?

 

DEFAULT.ASP

<%

If Request("busca")=1 Then
Dim UrlResposta

'---------AQUI A SUA URL DE RESPOSTA-------------------------------
pag = request.servervariables("URL")
arr = split(pag,"/")
dir = "/"
for i = 0 to ubound(arr)-1
dir = dir + arr(i) + "/"
next

UrlResposta = "http://" + request.servervariables("server_name") + dir + "respostacorreios.asp" 
'------------------------------------------------------------------

Response.Redirect("http://www.correios.com.br/encomendas/precos/calculo.cfm?cepOrigem=" & Request("cepOrigem") & "&cepDestino=" & Request("cepDestino") & "&peso=" & Request("peso") & "&resposta=" & UrlResposta & "")

End if
%>
<html>
<head>
</head>
<body>
<form action="<%Request.ServerVariables("SCRIPT_NAME")%>" method="get" name="form1" ID="Form1"> 
<table width="400" ID="Table1">

<tr>
<td>Cep Origem:</td>
<td>13930000
		<input type="hidden" name="cepOrigem" value="13930000" ID="Hidden1"></td>
</tr>
<tr>
<td>Cep Destino:</td>
<td><input type="text" name="cepDestino" value="" ID="Text1"></td>
</tr>
<tr>
<td>Peso:</td>
<td><input type="text" name="peso" value="1" ID="Text2"></td>
</tr>
<tr>
<td>
<input type="hidden" name="busca" value="1" ID="Hidden3"></td>
<td><input type="submit" name="Submit" value="Enviar" ID="Submit1"></td>
</tr>
</table>
</form>
</body>
</html>

RESPOSTACORREIOS.ASP

<%
Response.Buffer= True 
Response.AddHeader "cache-control", "private" 
Response.AddHeader "pragma", "no-cache" 
Response.ExpiresAbsolute = #January 1, 1990 00:00:01# 
Response.Expires=Now()-1 
Response.AddHeader "Cache-Control", "must-revalidate" 
Response.AddHeader "Cache-Control", "no-cache"
%>

<%
Response.Write "<center><div id='Carregando' style='display:block;'><br><br>"
Response.Write "<font face='Arial, Tahoma' size='2' color='#330099'><b>Aguarde carregando...</b></font><br><br>"
Response.Write "<img src='progressbar.gif' alt='Carregando...' border='0' height='17' width='94'>"
Response.Write "</div></center>"
'Response.Buffer = True
Response.Flush()
Response.Write "<script language='javascript'>document.all.Carregando.style.display = 'none';</script>"
%>

<%
Dim x
For each x in Request.QueryString
Response.Write(x & " : " & Request.QueryString(x) & "<BR>" )
next
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

não entendi bem. não seria apenas pegar a resposta, jogar na variavel e somar com a sua variavel?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito