Olá Pessoal

Alguem aí possui ou sabe onde tem um codigo que busca endereço de CEP, e se possível ainda, que faça o cálculo do frete via correios...

Obrigado desde já, abraço

Rafael Freitas

Eaí rapaz!

seguinte, não entendi algumas coisas:

O que é o "i" que vc se refere no código? Não vi ele declarado em lugar nenhum.

Outra coisa, ao invés de usar:

j = 1
valor = 0

Do until j = (i+1)

tabela = Request.Cookies("nomecookie")("campo1_"&j)
codigo = Request.Cookies("nomecookie")("campo2_"&j)

If tabela = "removido" then
j = j + 1
Loop

Não deveria ser:

j = 1
valor = 0


tabela = Request.Cookies("nomecookie")("campo1_"&j)
codigo = Request.Cookies("nomecookie")("campo2_"&j)



If tabela = "removido" then
Do until j = (i+1)
j = j + 1
Loop

?

"Lendo" o código:

Se a tabela for igual a "removido" então faça um loop até j ser igual a (i + 1). Mas i não está declarado, então acho meio dificil isso dar certo.

Pra ser bem sincero eu não entendi o que tu quis dizer no teu código hehe

Dá uma explicada um pouco melhor sobre qual a função que tu quer nisso tudo que acho que facilita.

Valeu a iniciativa e a tentativa Firehalk!

Esse "i" está declarado mais acima no código. Não está aqui mas foi declarado. É um contador. Ele conta qtos registros têm.

O que eu preciso é que a cada Loop seja verificado se o valor lido é igual a "removido" (tabela = Request.Cookies("nomecookie")("campo1_"&j)), pq se for já descarta e busca o próximo (j = j + 1 e "Loopa"), e se esse proximo também for, descarta e burca o proximo outra vez(j = j + 1 e Loopa outra vez).

Fazendo do jeito que vc aconselhou, a verificação se o valor lido é igual a "removido" (tabela = Request.Cookies("nomecookie")("campo1_"&j)) acontece antes do Loop e eu preciso que aconteça a cada Loop.

Consegui explicar? Qqr coisa pergunta outra vez! muito obrigado!
Rafael

Olá pessoal
Estou com a seguinte dúvida: Como antecipar um loop caso uma condição seja satisfeita?
segue o código: (pagina.asp)

Loop
  ElseIf tabela = "" then
    Response.Redirect("pagina.asp")
  Else
    tabela = Request.Cookies("nomecookie")("campo1_"&j)
    codigo = Request.Cookies("nomecookie")("campo2_"&j)
    SQL="SELECT titulo, arquivo, preco from "&tabela&" where codigo="&codigo
  End If
  
  SET RS=Con.Execute(SQL)
%>
 _linenums:0'><% j = 1valor = 0Do until j = (i+1)    tabela = Request.Cookies("nomecookie")("campo1_"&j)  codigo = Request.Cookies("nomecookie")("campo2_"&j)    If tabela = "removido" then    j = j + 1    Loop  ElseIf tabela = "" then    Response.Redirect("pagina.asp")  Else    tabela = Request.Cookies("nomecookie")("campo1_"&j)    codigo = Request.Cookies("nomecookie")("campo2_"&j)    SQL="SELECT titulo, arquivo, preco from "&tabela&" where codigo="&codigo  End If    SET RS=Con.Execute(SQL)%>

meu problema nesse código é que me retorna um erro falando que falta um Do para o meu Loop...
Alguem poderia me ajudar nesse caso?
Desde já agradecido... abraço
Rafael

Olá,

gostaria de saber como faço para apresentar o resultado de uma conta com o formato de Moeda, ou seja, duas casas decimais (Ex.: 1000,00).

Eis a conta:

<%valorFinal = (precoUni * quatidade)%>

Obrigado, desde já, pela cooperação!
Valeu

Olá pessoal, estou com dificuldades em corrigir um erro no destino do upload.

Abaixo código original:

<%
	Set Upload = Server.CreateObject("Persits.Upload.1")

	Upload.OverwriteFiles = False
	On Error Resume Next

	Upload.SetMaxSize 1048576	' Limit files to 1MB
	Count = Upload.Save("c:\upload")
%>

Abaixo meu código, com as alterações:

<%
	Set Upload = Server.CreateObject("Persits.Upload.1")

	Upload.OverwriteFiles = False
	On Error Resume Next

	Upload.SetMaxSize 1048576	' Limit files to 1MB
	Count = Upload.Save ("\imagens\produtos")
%>

Já tentei colocar o endereço de destino de várias formas como: ("\imagens\produtos"), ("www\imagens\produtos"), ("..\www\imagens\produtos"), ("imagens/produtos"), ("/imagens/produtos"), ("../imagens/produtos")...

Agradeço se alguém puder me ajudar.
Abraço