% rAFAEL %

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

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