Marcos-rj

No código passado, você cria uma página com o campo Email, onde a pessoa digitará o email cadastrado p/ receber a senha no email.

você está usando codigo D+. tenta assim: Sql = "UPDATE prlist SET cliques = cliques+1 WHERE id = " & id & " "

Romulo, cria um tópico novo e posta o seu código.

uma idéia: i = 1 'Comeca o loop do rss i=i+1 If i = 5 Then Exit For 'fim do loop do rss

um exemplo. <%set Dicionario = CreateObject("scripting.dictionary") i = 0 If request.form("nome") = "" then Dicionario.add i, "Preencha o campo nome!" i= i+1 end if If request.form("email") = "" then Dicionario.add i, "Preencha o email" i= i+1 end if Vet = Dicionario.items if Dicionario.Count<>0 then Response.Write "<b><center><font face=verdana size=1>" Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>" for i = 0 to Dicionario.Count - 1 Response.Write vet(i) & "<BR><br>" next response.write "<BR><br>" Else aqui entra os codigos se estiver tudo certo... end if %>

tenta fazer assim, só uma idéia. faz um if p/ se estiver sem anexo ele desabilita a propriedade anexo do cdonts. tipo assim: If varanexo<>"" Then 'myMail.Attachfile "varanexo" else myMail.Attachfile "varanexo End If

Pelo que entendi, não é assim que funciona. lá no site registro.br você vai configurar com os dns passados pelo servidor. O site que você fez o registro na locaweb é o com.br ou o org.br? Essa configuração você faz no registro.br, isso que você esta tentando fazer pelo que eu saiba não funciona. não desta forma.

tenta assim então: <% recipient = request("recipient") subject = request("subject") redirect = request("redirect") razaosocial = request("razaosocial") message = subject & Chr(13) & Chr(10) & Chr(13) & Chr(10) if razaosocial <> "" then message = message & "Nome: " & razaosocial & Chr(13) & Chr(10) & Chr(13) & Chr(10) end if Set Mailer = Server.CreateObject("Persits.Mailsender") Mailer.Host = "smtp.ocftecnologia.com.br" Mailer.Username = "EMAIL" Mailer.Password = "SENHADOEMAIL" Mailer.AddCc recipient Mailer.From = recipient Mailer.Subject = subject Mailer.Body = message Mailer.Send if err = 0 then response.redirect redirect else response.write "Erro ao enviar email." end if %>

por que não coloca tudo em https? eu tive este problema com uma loja virtual. coloquei logo tudo em ambiente seguro.

Não sei se resolve, mas tenta assim: <% recipient = request("recipient") subject = request("subject") redirect = request("redirect") razaosocial = request("razaosocial") message = subject & Chr(13) & Chr(10) & Chr(13) & Chr(10) if razaosocial <> "" then message = message & "Nome: " & razaosocial & Chr(13) & Chr(10) & Chr(13) & Chr(10) end if Set Mailer = Server.CreateObject("Persits.Mailsender") Mailer.Host = "smtp.ocftecnologia.com.br" Mailer.AddCc recipient Mailer.From = recipient Mailer.Subject = subject Mailer.Body = message Mailer.Send if err = 0 then response.redirect redirect else response.write "Erro ao enviar email." end if %>

Bom olhando rapido não nada errado no codigo a não ser que você está excluindo o arquivo anexo antes de enviar por email.

posta o codigo de como você esta fazendo.

Este forum está bom hein!!!

em ASP eu já fiz assim: <%set Dicionario = CreateObject("scripting.dictionary") i = 0 If request.form("nome") = "" then Dicionario.add i, "Preencha o campo nome!" i= i+1 end if If request.form("email") = "" then Dicionario.add i, "Preencha o email" i= i+1 end if Vet = Dicionario.items if Dicionario.Count<>0 then Response.Write "<b><center><font face=verdana size=1>" Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>" for i = 0 to Dicionario.Count - 1 Response.Write vet(i) & "<BR><br>" next response.write "<BR><br>" Else aqui entra os codigos se estiver tudo certo... end if %> Ele lista todos os campos incompletos. a pergunta que fiz: do formulário todo? foi da pergunta acima.

do formulário todo?

http://forum.imasters.com.br/index.php?showtopic=17223

não entendi, uma pasta abrir outro site?

Liga p/ o seu provedor de hospedagem e pergunta qual o componente de email usado por eles.

Posso estar enganado mas acho que este erro é no cdonts e não no upload. tenta fazer um if, tipo se não tiver anexo desabilitar a propriedade myMail.Attachfile If varanexo<>"" Then myMail.Attachfile "" End If alguma coisa do tipo.

o Server.ScriptTimeout pode ´resolver. qual o tamanha seria deste arquivo maior? + ou -

hum...não sei dizer o porq do erro é este, mas tenta assim: Set FSO= Server.CreateObject("Scripting.FileSystemObject") If Fso.FileExists(Server.MapPath(Varquivo)) Then Set arquivo = FSO.GetFile(Server.MapPath(Varquivo)) arquivo.delete end if

eu ia te falar isso. você pode fazer isso usando FSO. tenta assim, coloca este código depois do envio do email. Set FSO= Server.CreateObject("Scripting.FileSystemObject") If Fso.FileExists(varanexo) Then Set anexo = FSO.GetFile(varanexo) anexo.delete end if

Eu nunca envio anexo, mas vou tentar te ajudar. tenta assim, você se funciona. varanexo = Server.MapPath(Varquivo) 'Chamamos o componente e enviamos o email Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "www.cype.com.br" myMail.To = "teste@cype.com.br" myMail.Subject = "DÚVIDAS DO SIM - VIA SITE" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Attachfile varanexo myMail.Body = HTML myMail.Send qualquer coisa posta aí.

não, montei em cima do qualquer você passou, funcionando acertamos o envio do anexo.

Priscila, eu não havia reparado, mas do jeito que esta sendo feito esta errado. você fez o envio do email numa página diferente da de cadastro e esta tentando recuperar os valores por request.form. por isso não envia. você não esta passando nenhum valor. faz o seguinte, coloca o envio de email na mesma página do casdatro. logo apos cadastrar na tabela. em cima dos codigos passados eu montei aqui p/ você o cadastro com envio na mesma página. testa ai p/ ver. Obs.: O arquivo não esta sendo envia em anexo, do jeito que você montou ele somente enviará o nome do aquivo no corpo da mensagem. <!-- #include file = "funcoes_upload.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- Vcodigo = UploadRequest.Item("codigo").Item("Value") Vemail = UploadRequest.Item("email").Item("Value") Vwin = UploadRequest.Item("win").Item("Value") Vproc = UploadRequest.Item("proc").Item("Value") VversaoAUTO = UploadRequest.Item("versao").Item("Value") VSoftware = UploadRequest.Item("Software").Item("Value") Vversao = UploadRequest.Item("versao").Item("Value") Vrelease = UploadRequest.Item("release").Item("Value") Vtipo = UploadRequest.Item("tipo").Item("Value") Vduvida = UploadRequest.Item("duvida").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName") ' Nome dos arquivos enviados nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\")) ' Conteudo binario dos arquivos enviados arquivo = UploadRequest.Item("arquivo").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("obras/") nome_arquivo = "/"&nome_arquivo ' pasta + nome dos arquivos Varquivo = "obras" + nome_arquivo ' Fazendo o Upload do arquivo selecionado if Varquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "INSERT into OBRAS(codigo, email, win, proc, versaoAUTO, software, versao, release, tipo, duvida, arquivo) values ('"&Vcodigo&"', '"&Vemail&"', '"&Vwin&"', '"&Vproc&"', '"&VversaoAUTO&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vtipo&"', '"&Vduvida&"', '"&Varquivo&"')" Conexao.Execute(sql) '============ ENVIO DO E-MAIL ============= 'Monta Mensagem HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>Contatos </title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">" HTML = HTML & "<font size=""1"" face=""verdana"">" HTML = HTML & "<B>DÚVIDA DO SIM PELO SITE</B><BR><HR><BR>" HTML = HTML & "<B>CODIGO SIM : </B>" & Vcodigo & "<BR>" HTML = HTML & "<B>EMAIL : </B>" & Vemail & "<BR>" HTML = HTML & "<B>WINDOWS : </B>" & Vwin & "<BR>" HTML = HTML & "<B>PROCESSADOR : </B>" & Vproc & "<BR>" HTML = HTML & "<B>VERSÃO DO AUTO CAD: </B>" & VversaoAUTO & "<BR>" HTML = HTML & "<B>SOFTWARE : </B>" & Vsoftware & "<BR>" HTML = HTML & "<B>VERSÃO : </B>" & Vversao & "<BR>" HTML = HTML & "<B>RELEASE : </B>" & Vrelease & "<BR>" HTML = HTML & "<B>TIPO DA DUVIDA : </B>" & Vtipo & "<BR>" HTML = HTML & "<B>DUVIDA : </B>" & Vduvida & "<BR>" HTML = HTML & "<B>ANEXO : </B>" & Varquivo & "<BR>" HTML = HTML & "</body>" HTML = HTML & "</html>" 'Chamamos o componente e enviamos o email Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "www.cype.com.br" myMail.To = "teste@cype.com.br" myMail.Subject = "DÚVIDAS DO SIM - VIA SITE" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = HTML myMail.Send Set myMail = Nothing ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='5; url=SIM/PRINCIPALXYZ000.htm>" %>