.Andreia.

Pedro, você não me disse se sua aplicação funciona daquela forma que eu te disse. Talvez no link ele esteja pegando o primeiro registro que o banco acha. Sempre é com 1 a mais? Tentou com varios ID e sempre aparece a mais?

boooooooa JCMPJ, a primeira opção que você me passou funcionou, adaptei aqui e ficou assim: <!--#include file="conexao.asp"--> <% call abre_conexao Set objUpload = server.CreateObject("Dundas.Upload.2") objUpload.MaxFileSize = 1048576 objUpload.UseUniqueNames = false Set objNextFile = objUpload.GetNextFile() caminho = "D:\Meus Documentos\IMAGENS" If objUpload.FileExists(caminho & "\" & objNextFile.FileName) Then %> <script language="javascript"> window.alert('Este arquivo já existe!'); window.location.href="../default.asp"; </script> <% Else objNextFile.Save caminho titulo_foto = objUpload.form("titulo_foto") sql_insere = "INSERT INTO TABELA (titulo_cartao, img_cartao) VALUES ('"& titulo_foto &"','"& objNextFile.FileName &"')" set tab_insere = conexao.execute(sql_insere) %> <script language="javascript"> window.alert('Arquivo salvo com sucesso'); window.location.href="../cartoes_virtuais.asp"; </script> <% End If Set objUpload = Nothing %> Bem melhor, obrigadaa

Deixa ver se entendi sua aplicação. O usuario preenche um formulario e na tela seguinte esses dados são gravados no BD e exibidos na tela. Um e-mail é enviado para ele com um link da página. Certo? Supondo que seja, essa ID no seu banco de dados é auto-numeração? porque assim, se você está inserindo um novo registro e precisa saber um campo deste novo registro, é necessário que você faça um SELECT antes de enviar o e-mail para saber qual é a ID gerada para este usuário, entendeu?

você recebe o e-mail com a ID certa e na tela abre errado ou você já recebe no email a ID errada? Poste seu codigo como está agora

Pedro, montei um exemplo: <% id_usuario = 8 strBody = "Clique no <a href='http://www.seusite.com.br/cadastrado.asp?id_usuario="&id_usuario&"'>Link</a>" Set objCDOMail = Server.CreateObject ("CDONTS.NewMail") objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.From = "FUCE inscricao de Modalidades <fuce@fuce.esp.br>" objCDOMail.To = strTo objCDOMail.Subject = stRSubject objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = nothing %> Mas eu usei uma constante, daí você adapta.

você resgata as variaveis e usa no envio de e-mail. Exemplo usando CDONTS: <% para = request.form("email") telefone = request.form("telefone") endereco = request.form("endereco") texto = "Seu telefone é "& telefone &" <BR>" texto = texto & "Seu endereço é "& endereco &" <BR>" assunto = "Confirmação" Set Email = Server.CreateObject ("CDONTS.NewMail") Email.BodyFormat = 0 Email.MailFormat = 0 Email.From = "Site" Email.To = para Email.Subject = assunto Email.Body = texto Email.Send Set Email = nothing %>

JCMPJ não esqueci não, no caminho da pasta está assim (exemplo): Eu tb já tinha tentado no início da forma que você colocou, e tb não deu.

JCMPJ, não deu pra testar sua opção porque mexi tanto no arquivo que não tenho mais o ponto que era pra alterar.... Bom achei uma solução que testei e funciona certinho. Vou colocar aqui, se alguém tiver uma ideia pra melhorar, agradeço: <!--#include file="conexao.asp"--> <% call abre_conexao 'cria instância do objeto set objUpload = server.CreateObject("Dundas.Upload.2") 'estipula o tamanho máximo do arquivo objUpload.MaxFileSize = 1048576 'formatando o nome do arquivo objUpload.UseUniqueNames = false 'informa o path onde os arquivos serão salvos objUpload.Save "caminho_da_pasta" foto = objUpload.GetFileName(objUpload.Files(0).Path) caminho = "caminho_da_pasta" & foto sql="select * from TABELA" set tab = conexao.execute(sql) do while not tab.eof if foto = tab("img_cartao") then %> <script language="javascript"> window.alert('Este arquivo já existe'); window.location.href="../default.asp"; </script> <% exit do end if tab.movenext loop if tab.eof then sql_insere = "INSERT INTO TABELA (img_cartao) VALUES ('"& foto &"')" set tab_insere = conexao.execute(sql_insere) response.redirect "../default.asp" end if set tab = nothing Set objUpload = Nothing %> vl a atenção de todos.

Estava pensando aqui, talvez uma saida seria: pegar o caminho todo, por exemplo: o arquivo começa a partir da ultima \ ah, mas tb não sei como fazer isso, se alguém tive uma ideia...

JCMPJ, gero o seguinte erro: linha Se eu coloco antes, dae o erro Objeto necessário: 'objNextFile'

Já sim Kuroi, até colei no IE pra ver se abre a imagem e funcionou certinho. É como eu disse nos tópicos acima.. ele sempre cai em uma condição independe se é ou não. Já tentei até usando SELECT mas eu não sei que diabos acontece que ele ignora o select, até se eu escrever o select errado ele nem gera erro...

Tb já tentei assim Kuroi, já tentei monte de jeito, até tentei xingando a mãe dele mas pior vl pela atenção

Eu tinha pensado nisso Alex, mas daí tem um problema... quando eu resgato o valor do campo ele vem o caminho todo. Esse caminho varia de tamanho porque depende da pasta onde o usuario está selecionando... Quando eu uso FSO antes do Dundas pra fazer a verificação, ocorre o mesmo problema porque eu não consigo pegar só o nome do arquivo... vem tudo junto. ps.: só estou usando o Dundas porque é o unico que o servidor aceita, porque é horrivel esse componente, nem no site achei a documentação.

Sabe qual é o problema Alex, é que eu só consigo resgatar o nome da foto (só o nome, sem o caminho junto) quando: foto = objUpload.GetFileName(objUpload.Files(0).Path) e isso está atrelado ao Dundas

Então Marcelo, ele não está resgatando a variavel ProductPrice. Se você colocou o request.form correto nesta pagina, confira na pagina anterior se o nome desta variavel coincide. O problema é que não está resgatando esse valor.

Marcelo você fez o teste pra ver o que a SQL está recebendo? Te passei um exemplo lá emcima....

Alex, está depois. Tanto que quando eu UP um arquivo que não tem, ele inclui na pasta. Se já tem o arquivo ele não faz o UP mas tb não aparece mensagem de erro. ps.: esse é o codigo todo

Ok, Alex, tentei assim, mas SEMPRE escreve "já tem" set objUpload = server.CreateObject("Dundas.Upload.2") objUpload.MaxFileSize = 1048576 objUpload.UseUniqueNames = false objUpload.Save "caminho da minha pasta" caminho = "caminho da minha pasta" & foto foto = objUpload.GetFileName(objUpload.Files(0).Path) Set FSO = Server.CreateObject("Scripting.FileSystemObject") If FSO.FileExists(Caminho) Then response.write "já tem" else response.write "não tem" End If

Pessoal, to com uma dúvida que tá me matando, já pesquisei até em site árabe mas nada resolve. Tenho um formulário onde o usuário faz um upload da foto, mas preciso verificar se o arquivo já existe na pasta. Caso tenha, mostra um erro avisando disso. o código está assim: set objUpload = server.CreateObject("Dundas.Upload.2") objUpload.MaxFileSize = 1048576 objUpload.UseUniqueNames = false objUpload.Save "caminho da minha pasta" caminho = "caminho da minha pasta" foto = objUpload.GetFileName(objUpload.Files(0).Path) If objUpload.FileExists(caminho & foto) Then response.write("erro") else response.write("ok") end if O problema é que SEMPRE imprime ok. Já tentei de tudo, até coloquei um SELECT (porque grava no banco o nome do arquivo) mas ele simplesmente ignora meu select... alguém tem uma sugestao de como fazer? Só preciso que gere uma mensagem de erro caso o arquivo já exista na pasta.

não entendi

você pode fazer assim: if campo = "" then campo = 0 end if 0 vai como não marcado no campo boolean

No BD está como "requerido Sim" ?

Se os arquivos topo1.asp e tp2.asp estão na mesma pasta que o arquivo que os chama, então o include tem que ser:

Web Standards

Tem certeza que este arquivo está a um nível (pasta) acima?