EDSONET

BOM O PROBLEMA É O SEGUINTE, FIZ UM FORMULRAIO DE ENVIO DE E-MAIL E FUNCIONA PERFEITAMENTE. MAIS AGORA EU GOSTARIA QUE TIVESSE A OPÇÃO ONDE A PESSOA QUE ESTA ENVIANDO O E-MAIL POSSA ESCOLHAR UM ARQUIVO PRÉ SELECIONADO EM SEU COMPUTADOR PARA ANEXAR JUNTO AO E-MAIL. SERÁ QUE FUI CLARO? BOM LOGO ABAIXO ESTA O CÓDIGO EU EU TENTEI DESENVOLVER, MAIS não DEU MUITO CERTO. DEEM UMA OLHADA E ME AJUDEM A ENXERGAR O ERRO. ONTEM EU já POSTEI AKI E O " VICTOR " ME DISSE PRA CONSEGUIR O COMPONENTE PARA 'UPLOAD' , LIGUEI PRO TERRA HOJE E CONSEGUI O BENDITO CÓDIGO. O CÓDIGO (ESSE É O DO FORMULARIO): <form action="envia_email_anexo.asp" method="post" ENCTYPE="multipart/form-data"> <table width="76%" border="0" cellpadding="0"> <tr> <td width="12%"><div align="right"><font size="1" face="Arial">Nome:</font></div></td> <td width="88%"><font size="1"><input name="txt_nome" type="text" id="txt_nome" size="60" style="font-family: Arial; font-size: 8 pt; border: 1 solid #808080"></font></td> </tr> <tr> <td><div align="right"><font size="1" face="Arial">Email:</font></div></td> <td><font size="1"><input name="txt_email" type="text" id="txt_email" size="60" style="font-family: Arial; font-size: 8 pt; border: 1 solid #808080"></font></td> </tr> <tr> <td> <p align="right"><font size="1" face="Arial">Assuunto:</font></td> <td><font size="1"><input name="txt_assunto" type="text" id="txt_assunto" size="60" style="font-size: 8 pt; font-family: Arial; border: 1 solid #808080"></font></td> </tr> <tr> <td><div align="right"><font size="1" face="Arial">Evento:</font></div></td> <td><!--webbot bot="Validation" B-Disallow-First-Item="TRUE" --><select size="1" name="combo_evento" style="font-family: Arial; font-size: 8 pt; border: 1 solid #C0C0C0"> <option selected value=" - Assuntos Gerais">-------------&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Nenhum Evento&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -------------</option> <option>VIII Jornada de Enfermagem</option> <option>I Jornada de Nutrição</option> <option>VII Congresso Internacional de Fixadores</option> <option>X Encontro Sobre WNNICOTT</option> </select></td> </tr> <tr> <td> <p align="right"><font size="1">Anexo:</font></td> <td><font size="1"><input type="file" name="File1" id="File1" size="45" style="font-size: 8 pt; font-family: Arial; background-color: #FFFFFF; border: 1 solid #808080"></font></td> </tr> <tr> <td><div align="right"><font size="1" face="Arial">Mensagem:</font></div></td> <td><font size="1"><textarea name="txt_mensagem" cols="62" rows="7" id="txt_mensagem" style="font-family: Arial; font-size: 8 pt; border: 1 solid #808080"></textarea></font></td> </tr> <tr> <td></td> <td><font size="1"><input type="submit" name="Submit" value=" Enviar " style="font-family: Arial; font-size: 8 pt; color: #606060; background-color: #FFFFFF; border: 1 solid #808080"></font></td> </tr> </table> </form> ESSE É O envia_email_anexo.asp : <% 'Vamos recuperar os valores do formulário nome = Request.Form("txt_nome") email = Request.Form("txt_email") assunto = Request.Form("txt_assunto") mensagem = Request.Form("txt_mensagem") evento = request.form ("combo_evento") anexo = request.form ("File1") espaco = " - " 'Agora vamos criar o objeto Cdonts e enviar a mensagem Set msg = Server.CreateObject("CDONTS.NewMail") msg.From = email msg.To="emaildofulano" msg.Subject = assunto & espaco & evento texto = "O usuário "&nome&" lhe envio a mensagem abaixo:" texto = texto & mensagem msg.Body = texto msg.AttachFile Server.MapPath(anexo) msg.Send Set msg = Nothing 'Avisamos ao usuário que sua mensagem foi enviada corretamente. Response.Redirect "email_enviado.html" %> E ESSE É DO UPLOAD DO TERRA: form_upload.htm : <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Aspupload.asp"> <INPUT TYPE=FILE SIZE=60 NAME="FILE1"> <INPUT TYPE=FILE SIZE=60 NAME="FILE2"> <INPUT TYPE=FILE SIZE=60 NAME="FILE3"> <INPUT TYPE=SUBMIT VALUE="Upload!"> </FORM> Aspupload.asp : <% Set Upload = Server.CreateObject("Persits.Upload.1") Count = upload.SaveVirtual("\\terraempresa.com.br\clusterX\login_ftp\wwwroot\") %> <%= Count %> files uploaded. Bom eu espero não ter esquicido de nada... Poxa vida será que alguém sabe fazer isso ou tem uma soluçao lógica pra isso?!?!?! Acho que nem Deus sabe... Bom vamos ver, aguardo respostas! Grato, Edson MArques Scheffer

OU SEI LÁ, não TEM COMO ME DAR UM EXEMPLO USANDO UM COMPONENTE QUALQUER SÓ PRA MIM TER UMA IDEIA, porque DAI O RESTO EU CORRO ATRAS!

CARA, ESSE MEU SITE ESTA HOSPEDADO NO TERRA EMPRESAS, BOM AGORA NESSE HORARIO EU não CONSIGO ENTRAR EM CONTATO COM ELES. não TEM IDEIA DE QUAL SERIA ESSE COMPONENTE?

BOM O PROBLEMA É O SEGUINTE, FIZ UM FORMULRAIO DE ENVIO DE E-MAIL E FUNCIONA PERFEITAMENTE. MAIS AGORA EU GOSTARIA QUE TIVESSE A OPÇÃO ONDE A PESSOA QUE ESTA ENVIANDO O E-MAIL POSSA ESCOLHAR UM ARQUIVO PRÉ SELECIONADO EM SEU COMPUTADOR PARA ANEXAR JUNTO AO E-MAIL. SERÁ QUE FUI CLARO? BOM LOGO ABAIXO ESTA O CÓDIGO EU EU TENTEI DESENVOLVER, MAIS não DEU MUITO CERTO. DEEM UMA OLHADA E ME AJUDEM A ENXERGAR O ERRO. O CÓDIGO (ESSE É O DO FORMULARIO): <form action="envia_email_anexo.asp" method="post" ENCTYPE="multipart/form-data"> <table width="76%" border="0" cellpadding="0"> <tr> <td width="12%"><div align="right"><font size="1" face="Arial">Nome:</font></div></td> <td width="88%"><font size="1"><input name="txt_nome" type="text" id="txt_nome" size="60" style="font-family: Arial; font-size: 8 pt; border: 1 solid #808080"></font></td> </tr> <tr> <td><div align="right"><font size="1" face="Arial">Email:</font></div></td> <td><font size="1"><input name="txt_email" type="text" id="txt_email" size="60" style="font-family: Arial; font-size: 8 pt; border: 1 solid #808080"></font></td> </tr> <tr> <td> <p align="right"><font size="1" face="Arial">Assuunto:</font></td> <td><font size="1"><input name="txt_assunto" type="text" id="txt_assunto" size="60" style="font-size: 8 pt; font-family: Arial; border: 1 solid #808080"></font></td> </tr> <tr> <td><div align="right"><font size="1" face="Arial">Evento:</font></div></td> <td><!--webbot bot="Validation" B-Disallow-First-Item="TRUE" --><select size="1" name="combo_evento" style="font-family: Arial; font-size: 8 pt; border: 1 solid #C0C0C0"> <option selected value=" - Assuntos Gerais">-------------&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Nenhum Evento&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -------------</option> <option>VIII Jornada de Enfermagem</option> <option>I Jornada de Nutrição</option> <option>VII Congresso Internacional de Fixadores</option> <option>X Encontro Sobre WNNICOTT</option> </select></td> </tr> <tr> <td> <p align="right"><font size="1">Anexo:</font></td> <td><font size="1"><input type="file" name="File1" id="File1" size="45" style="font-size: 8 pt; font-family: Arial; background-color: #FFFFFF; border: 1 solid #808080"></font></td> </tr> <tr> <td><div align="right"><font size="1" face="Arial">Mensagem:</font></div></td> <td><font size="1"><textarea name="txt_mensagem" cols="62" rows="7" id="txt_mensagem" style="font-family: Arial; font-size: 8 pt; border: 1 solid #808080"></textarea></font></td> </tr> <tr> <td></td> <td><font size="1"><input type="submit" name="Submit" value=" Enviar " style="font-family: Arial; font-size: 8 pt; color: #606060; background-color: #FFFFFF; border: 1 solid #808080"></font></td> </tr> </table> </form> ESSE É O envia_email_anexo.asp : <% 'Vamos recuperar os valores do formulário nome = Request.Form("txt_nome") email = Request.Form("txt_email") assunto = Request.Form("txt_assunto") mensagem = Request.Form("txt_mensagem") evento = request.form ("combo_evento") anexo = request.form ("File1") espaco = " - " 'Agora vamos criar o objeto Cdonts e enviar a mensagem Set msg = Server.CreateObject("CDONTS.NewMail") msg.From = email msg.To="emaildofulano" msg.Subject = assunto & espaco & evento texto = "O usuário "&nome&" lhe envio a mensagem abaixo:" texto = texto & mensagem msg.Body = texto msg.AttachFile Server.MapPath(anexo) msg.Send Set msg = Nothing 'Avisamos ao usuário que sua mensagem foi enviada corretamente. Response.Redirect "email_enviado.html" %> BOM QUALQUER DUVIDA ESTAMOS AI. MEU MSN edsonscheffer@MSN.com FALOW E ATÉ MAIS!

Cara, da uma olhada no teu código SQL, deve ter alguma coisinha errada, um nome declarado errado. Da uma olhada aprofundada. Qualquer coisa coloca todo o código ai! Falowww

Seguinte... Quero fazer uma consulta no me BD, mais na hora da consulta tanto faz se a pessoa digitar no campo com letras minusculas ou maiusculas. Ex: Chega um usuario e tanta consultar no BD um CLIENTE com o nome PUCRS. Só que no BD está cadastrado PucRS. Sendo assim não ira aparecer o resultado da busca. O código é esse: <% Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("banco.mdb") Conn.open Set rs=Server.CreateObject ("AdoDb.Recordset") cliente_pesq = request.form("cliente") sql = "SELECT cliente, atendido_por" sql = sql & " FROM tb_atendimento " '######### essa é a consulta normal ################ sql = sql & " where cliente = '"&cliente_pesq&"' " '######### Tentei Fazer assim mais não deu ########### 'sql = sql & "where ucase(cliente)='"&cliente_pesq&"'" '######### Assim tb não deu ################ 'sql = sql & "where lcase(cliente)='"&lcase(cliente_pesq)&"'" rs.open sql, Conn %> <form method="POST" action="consulta2.asp"> <p><input type="text" name="cliente" size="20"></p> <p><input type="submit" value="Submeter" name="B1"></p> </form> <% if request.form("cliente") = rs ("cliente") then While Not rs.eof response.write "<b>Cliente:</b>" & rs("cliente") & " " response.write "<b>Atendido Por:</b>" & rs("atendido_por") & "<p>" rs.movenext wend end if %> não deve ser dificil pra vc`s!!!

Acabei de enviar! falow

que coisa, não consegui até agora!!!

Cara eu testei e não deu certo... O código é pra ficar assim? <% Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("banco.mdb") Conn.open %> <select size="1" name="D1"> <% tsql="select * from tb_eventos" trsql= conn.execute(tsql) do while not (trsql.eof) %> <option value="<%=trsql.fields("nome")%>"><%=trsql.fields("nome")%></option> <% trsql.movenext loop %> </select> Me dá uma mão, porque eu recem estou aprendendo ASP! Falow!!!

Olá, Lé vem eu denovo! Como eu posso listar em uma COMBO os dados que estam em uma determinada tabela no meu BD? Podem só me dar a lógica, ai eu programo e testo, caso não der certo eu volto. Pode ser?

OLHA A LOÓGICA PELO VISTO ESTÁ CORRETA, MAIS SEI LÁ, NOME MEU TO CÓDIGO DEVE HAVER UM PARAMETRO ERRADO. TIPO, ONTEM ESTAVA TENTANDO FAZER UMA INCLUSAO SIMPLES NO BD E não FUNCIONAVA DE JEITO NEMHUM. O dark0 ESTA DE PROVA... HEHEHEHE AI A MESMA COISA PARECE SER SIMPLES, MAISSSS MARFF É FODA!

O que você quer dizer com implementar??? Seja mais claro!!!

Assino em baixo ShowTime está correto!

Pelo que eu entendi ele esta usando quadros em sua page, uma no topo e uma abaixo. Sendo que ele quer fazer um link no quadro localizado no topo, que redirecione uma determinada page para o quadro abaixo. isso em ASP. Cara existe um comando chamado "redirect", da uma pesquisada sobre isso! Falow!!!

Como assim??? Quer colocar o que no quadro de baixo??? Explica isso melhor!!! Té +

Detalhe, não almocei ainda cara! Ah olha só, tu tem MSN, bha eu te adicionei e nada... Falow, vou comer um Club Social, hehehe

Mais uma vez. Obrigado e obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado, obrigado e obrigado! Mais cedo ou mais tarde to ai denovo! hehehehe

Cara... olha só!!! Tu não vai acreditar!!! Eu consegui fazer funcionar! Nem sei como, tipo eu dei uma olhada em outros códigos fontes feitos por mim e só repassei e percebi que não havia nenhum erro aparente!!! Olha só o código: <% Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("banco.mdb") Conn.open Dim nome, SQL, RS, conexao If Request.Form("nome") <> "" then nome = request.Form ("nome") SQL = "insert into tb_nome(nome) Values('"&nome&"')" Set RS = Conn.Execute(SQL) response.write "Dados Cadastrados" End If %> <html> <body> <form method="post"> <Input type="text" name="nome"> <Input type="submit" value="OK"> </form> </body> </html> A unica coisa que possivelmente eu mudei foi isso: Conn.connectionstring=Server.Mappath("banco.mdb") Bha cara, fala serio, nem acredito que ta funcionando. Bha, essa pelei foi brava! Falowww Gurizada!!! Muito Obrigaduuuuuuu... Olha e nem acredito que fui eu ainda que "por acaso" ou sei lá porque, ou nem sei se foi eu mesmo, que arrumou o problema! Mais eu acho que se vc`s paracem de perguntar ou de estipular a escrever, eu tinha desistido! Valeuuuu!!!!!!!

Beleza!!!

já mudei varias vezes esses códigos, e sempre dá o mesmo erro. E eu coloco ele em um diretório que eu tenho na Brinkster e tb dá o mesmo erro. Dark0, você que tem conta na Brinkster tenta colocar no ar pra ver se funciona! O que acha???

Bha, não funcionou cara. Eele da o erro aqui: set rs = conexao.execute(sql) O código utilizado foi: conexao.asp <% sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") ' Conexao.Open "BANCO" Conexao.Open "DBQ=C:\Inetpub\wwwroot\inclui\banco.mdb;Driver={Microsoft Access Driver (*.mdb)}" end sub sub fecha_conexao Conexao.close Set Conexao =nothing end sub %> cad_form.asp <% Option Explicit %> <!-- #include file = "conexao.asp" --> <% Dim nome, SQL, RS, conexao If Request.Form("nome") <> "" then nome = request.Form ("nome") SQL = "insert into tb_nome(nome) Values("&nome&")" call abre_conexao set rs = conexao.execute(sql) response.write "Dados Cadastrados" End If %> <html> <body> <form method="post"> <Input type="text" name="nome"> <Input type="submit" value="OK"> </form> </body> </html> E ai?

BOM, PRIMEIRAMENTE EU GOSTARIA DE AGRADECER AO URSOLOUCO E AO dark0 QUE ME DERAM A MAIOR FORÇA, TENTARAM ME AJUDAR DE TODAS AS FORMAS POSSIVEIS. ESPERO QUE NENHUM DE VC`S PASSEM PELO QUE ESTOU PASSANDO! POIS ISTO É UM INFERNO, UM PESADELO QUE NÃO ACABA! E TAMBEM QUERIA DIZER QUE DESISTO, TO MORRENDO DE DOR DE CABEÇA, BUSQUEI VARIAS AJUDAS E PESQUISEI MUITO!!! MAIS NÃO TIVE O RESULTADO ESPERADO! MAIS UMA VEZ OBRIGADO A TODOS QUE TENTARAM ME AJUDAR! AH, SE DESCUBRIREM O PROBLEMA ME AVISEM POR FAVOR! FALOW!

EU SOU NOVO AKI, MAIS CONHEÇO E TRABALHO MUITO COM COREL!!! TE INDICO A EXPORTAR A FIGURA COMO "GIF". DEPOIS você ESCOLHE A COR DE FUNDO PARA SER RETIRADA, SENDO ASSIM, SEM A COR DE FUNDO FICARÁ TRANSPARENTE EM SUA HOME PAGE. OBS: SE SUA HOME PAGE TEM UM FUDO CINZA, TENTE COLOCAR A SUA FIGURA COM O FUNDO CINZA E DEPOIS EXPORTE ELA COMO GIF. COM ISSO VAI HAVER UMA SUAVIZAÇÃO DA FIGURA COM O FUNDO. TÉ +

CONCERTEZA!!! VOU ESPERAR, MAIS ENTRE EM CONTATO COMIGO HOJE AINDA!!! VALEU!!!