ejubr

e ai galera, segura essa mais um pau de ie, é o seguinte, instalei na minha máquina windows 2000 professional e atualizei o ie 5.0 para 6.0 sp1 depois de uma semana atualizado e rodando blza, agora esta dando pau as fontes dos site estão aparecendo grandes demais o que esta atrapalhando o visual de todos os site detonando com os design que sabe explicar. valeuuu

ele está enviando o email para a pasta mailroot/queue. e o email não esta indo para o endereço ejuniorb@yahoo.com.br será que tem que configurar alguma coisa no iis para envio de email?

o cdonts já está funcionando cara eu quero so o seguinte enviar dados de um formulario, para o meu email ejuniorb@yahoo.com.br e junto com este dados uma imagem de tamnho maximo 1mb, e quando abrir meu email no yahoo ver que a mensagem chegou lá so isso por favor eu to tendando tem um tempão, me ajuda. preciso terminar meu site.

os email estao indo para um pasta de nome Queue . C:\Inetpub\mailroot\queue, porque será que não as recebo no email que coloquei? este é o codigo: <% 'Set the response buffer to true so we execute all code before sending to the clients browser Response.Buffer = True 'Dimension variables Dim strBody 'Holds the body of the e-mail Dim objCDOMail 'Holds the mail server object Dim strMyEmailAddress 'Holds your e-mail address Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send to more tahn on e-mail address Dim strReturnEmailAddress 'Holds the return e-mail address of the user '----------------- Place your e-mail address in the following sting ---------------------------------- strMyEmailAddress = "ejuniorb@yahoo.com.br" '----------------------------------------------------------------------------------------------------- '----------- Place Carbon Copy e-mail address's in the following sting, supporated by ; -------------- 'Use this string only if you want to send the copy's of the e-mail to more than one person strCCEmailAddress = "edsonbarbosajunior@terra.com.br" '----------------------------------------------------------------------------------------------------- 'Read in the users e-mail address strReturnEmailAddress = Request.Form("email") 'Initialse strBody string with the body of the e-mail strBody = "Name: " & Request.Form("firstName") & " " & Request.Form("lastName") & vbCrLf & vbCrLf strBody = strBody & "Address: -" & vbCrLf If (Request.Form("street1")) > "" Then strBody = strBody & " " & Request.Form("street1") & vbCrLf End If If (Request.Form("street2")) > "" Then strBody = strBody & " " & Request.Form("street2") & vbCrLf End If If (Request.Form("town")) > "" Then strBody = strBody & " " & Request.Form("town") & vbCrLf End If If (Request.Form("county")) > "" Then strBody = strBody & " " & Request.Form("county") & vbCrLf End If If (Request.Form("country")) > "--- Choose One ---" Then strBody = strBody & " " & Request.Form("country") & vbCrLf End IF If (Request.Form("postCode")) > "" Then strBody = strBody & " " & Request.Form("postCode") & vbCrLf End If strBody = strBody & vbCrLf & "Telephone: " & Request.Form("tel") & vbCrLf & vbCrLf strBody = strBody & "E-mail: " & strReturnEmailAddress & vbCrLf & vbCrLf strBody = strBody & "Enquiry: - " & vbCrLf & Request.Form("enquiry") & vbCrLf 'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then 'Set the return e-mail address to your own strReturnEmailAddress = strMyEmailAddress End If 'Create the e-mail server object Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Send the e-mail 'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent) objCDOMail.From = Request.Form("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">" 'Who the e-mail is sent to objCDOMail.To = strMyEmailAddress 'Who the carbon copies are sent to objCDOMail.Cc = strCCEmailAddress 'The subject of the e-mail objCDOMail.Subject = "Enquiry sent from enquiry form on website" 'The main body of the e-amil objCDOMail.Body = strBody 'The format the e-mail is sent in objCDOMail.MailFormat = CdoMailFormatText 'If you want it to be in MIME(HTML) format use CdoMailFormatMIME 'Importance of the e-mail (0=Low, 1=Normal, 2=High) objCDOMail.Importance = 1 'Send the e-mail objCDOMail.Send 'Close the server object Set objCDOMail = Nothing %> <html> <head> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <title>Contact Us</title> <!-- The Surf-Net e-mail script and form is written by Bruce Corkhill ©2001 If you want your own e-mail script and form then goto http://www.surf-net.co.uk --> <!-- Close the HTML document head --> </head> <!-- Start the HTML body --> <body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#990099" alink="#FF0000" background="images/background.gif"> <!-- Table on a width of 95% to the browser window and containing the title --> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> <br> <h1 align="center">Contact Us</h1> </td> </tr> </table> <!-- Introduction body of text that is justified which looks indented by hailing a table width of 85% --> <table width="85%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> <!-- Justify the text --> <div align="justify"> <!-- Introduction Text --> Thank-you <% = Request.Form("firstName") %> <% = Request.Form("lastName") %> for filling in the enquiry form. <br> I shall be receiving your enquiry shortly and will reply as soon as possible. </div> </td> </tr> </table> <!-- Close the body --> </body> <!-- Close the HTML script --> </html> de vermelho são as variáveis e de azul são os emails que deverão receber as mensagens. quero entender?

O código asp ficou assim: <% 'criando o Objeto Set ObjMail = CreateObject("CDONTS.NewMail") 'Verificando se existe anexo e incluindo no email if len(request.form("anexo") > 0 then Call ObjMail.AttachFile(request.form("anexo")) end if 'Passando as informações para envio ObjMail.to = request.form("para") ObjMail.from = request.form("de") ObjMail.subject = request.form("assunto") ObjMail.body = request.form("mensagem") 'Enviando Email ObjMail.send response.write("Email enviado com sucesso") 'Zerando Valores Set eObjMail = nothing %> Mas deu este erro o que esta acontecendo? Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EE) ')' esperado /CPSonline/enviar.asp, line 6, column 33 if len(request.form("anexo") > 0 then --------------------------------^

eu selecionei todo o codigo colei em um arquivo de texto e salvei como email.asp depois mudei a variavel que refere ao email que receberá a mensagem salvei de novo. Abri o ie e rodei o arquivo email.asp com o codigo que você passou funciona e mostra uma mensagem que diz que o email foi enviado mas quando vou conferir se chegou a mensgem não tem nada la. que isso ajuda, porfavor

ai cara se tiver um código que funciona realmente, pois hoje já testei um tanto que não funciona nada, não chega email nenhum, manda ai, a detalhe tem que utilizar o objeto CDONTS pois é o que está instalado no meu servidor IIS 5.0

fufando? ao invés de colocar os arquivos na pasta padrão que eu uso para rodar o site, eu tenho que colocar na pasta mail root, mas na hora que eu tento rodar o arquivo ele não esta na pasta padrão para publicação

teste o código rodando ele no meu servidor de iis, e apareceu uma mensagem dizendo: Sua mensagem foi enviada! Obrigado por entrar em contato. mas não encontrei no código uma linha que informasse para qual email esta mensagem será enviada, alguém pode me ajudar? não entendi

Quero saber como faço para testar os códigos que tenho para envio de email? Ah será que alguém tem algum código legal para me mostrar? ajuda,ajuda,ajuda

Tipo de erro: Código o que eu tentei acrescentar para colocar os dados em uma tabela esta de vermelho qual será o erro , ajuda

to tentando colocar os campos Nome: askdjfklasd Email:açlsdjf@asd.açl.as em tabela, mas ta dando erro no asp, na hora que roda o código. eu quero colocar em tabela pra ficar legal tipo: Nome Email askdjfklasd açlsdjf@asd.açl.as askdjfklasd açlsdjf@asd.açl.as askdjfklasd açlsdjf@asd.açl.as será que da , por favor ajuda ajuda

Isso ai mesmo valeu a ajuda..... qualquer coisa eu posto mais falouuu.

quase isso cara, so que alem da pessoa enviar os dados como nome, endereco... ela pode enviar uma imagem em anexo para meu email por exemplo de tamanho de ate 1mb junto com todos os outros dados.

ai cara deu certo, depois vou postar outra coisa interessante que to afim de colocar, tipo ter uma foto cadastrada no bd e na hora que for pesquisar e a pagina resposta mostra os dados aparece tambem a imagem ao lado dos dados, vou tentar fazer aqui se não conseguir vou postar valeuuu.

criei um formulario com varios campos text e em um deste campos a pessoa vai poder anexar um arquivo para enviar para o meu email Exemplo Nome: Sexo: idade: telefone: foto: botao Anexar para anexar a foto e no campo foto aparece o caminho do arquivo. que será anexado. limpar enviar alguém faz alguma ideia?

valeu bareta a pagina respos ficou com uma boa formatacao, mais estou tendo um problema que a pagina de resposta esta retornando todos os registro do banco de dados, pesquisa não esta funcionando, o que digito no campo não faz diferenca basta somente clicar no botao submit que roda a pagina de pesquisa mostrando todos os registros do bd. ajuda porfavor brigadao valeuu

Pagina do formulário <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form name="form1" method="post" action="consulta.asp"> <input name="nome" type="text" id="nome"> <input type="submit" name="pesquisar" value="pesquisar"> </form> </body> </html> pagina asp que chamei de consulta.asp e utilizei como pagina resposta <html> <head> <title> Resposta </title> </head> <body bgcolor="FFFFFF"> <% 'conectamos ao banco url_conexao = Server.MapPath("banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 'recuperar a variavel id = request("nome") 'selecionamos toda a tabela do banco sql = "select * from tabela WHERE nome = nome" set rs = conexao.execute(sql) 'testamos se a tabela esta vazia, pra não dar erros if rs.eof then response.write "Nada no banco de dados" else 'vamos pro primeiro registro da tabela rs.movefirst 'iniciamos a repetição.. até chegar ao fim da tabela do while not rs.eof 'mostramos os dados da tabela do banco.. usando rs("campo").. onde RS é o objeto que executa o SQL que seleciona o banco response.write "Nome: " + rs("nome") response.write "Email: " + rs("email") 'vamos para o proximo registro rs.movenext loop end if %> </body> </html> funcionou mas a quando clico no botao submit faz a consulta mas retorna todos os valores inseridos nos registro do banco de dados. ah e como faço para separar cada registro em uma tabela para os dados ficarem organizados porque eles estão um bagunça tudo junto. obrigado

já descobri o erro eu tava colocando sql = "select * from tabela WHERE nome = "'&nome&"'" e a linha de cima não tava dando certo mas coloquei a linha de baixo sql = "select * from tabela WHERE nome=nome" e funcionoouuuu uuuuuhhhhhhhhhh desculpe a bobeira, deu certo vei valeuuuu obrigado pelas dicas já já estou de volta.

cade o pessoal? e o seguinte sacei o que eu tava fazendo: usei a mesma pagina para consulta e para resposta so que não tinha colocado o codigo de html so asp. (burrrroooooo)rsrsrsrsrrs corrigi isto mas ta dando do seguinte erro Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'nome ='. /consulta.asp, line 17 gostria de saber o que é? falouuu brigado ah so pra lembrar coloquei os tres arquivos, no diretorio de publicacao pesquisa.htm consulta.asp banco.mdb

acho que estou explicando mal, vamos de novo: Primeiro, para rodar os arquivos, salvo eles no seguinte diretorio: C:\Inetpub\wwwroot, depois abro o iexplorer e digito na barra de endereço: //localhost/nome do arquivo.asp. Então, crei um bd no Access, contendo uma tabela de nome tabela, com os seguintes registros: nome e email. O exemplo que vc (dark0) utilizou para explicar como faço a consulta, usei ele como meu arquivo de consulta o que chamei de consulta.asp, não alterei nada nele, exceto a linha que recupera o valor da variavel do campo do formulario e alterei a linha de comando do sql conforme sugerido onde acrescentou o comando where a consulta e utilizei este arquivo de consulta.asp com página de resposta. por ultimo criei uma nova página pesquisa.htm com o formulario colocando dentro do form os componentes text e submit, no ACTION do form escolhi a página consulta.asp e mais nada. Agora, por será que depois que digito o que pesquisar e clico no botao submit, aparece a tela perguntando se e gostaria de fazer o download do arquivo consulta.asp. Obrigado pela paciência de todos.

fiz o seguinte: utilizei o arquivo sugerido por você para ler. modifiquei a linha que corresponde ao sql conforme dito. criei uma pagina contendo o formulario com o campo text e o botao submit e dei um nome para o campo text de "nome" e salvei esta pagina como .htm com respeito a página de resposta utilizei o arquivo no qual modifiquei o sql mas antes da instrução sql utilizei a linha para recuperar a variavel crei um bd de nome banco.mdb com uma tabela de nome tabela e dois campos de nome "nome" e "email". Só que quando digito o nome a buscar e clico em submit aparece uma tela e pergunta se quero fazer um download do arquivo que corresponde a pagina que chamei no ACTION do formulario. tenho que alterar alguma propriedade do submit o que fiz de errado help,help,help

dark0 consegui entender a sua explicação e li o exemplo passo a passo que você sugeriu mas como faço para linkar este consulta a página anterior que e um htm que tem um campo para buscar os dados. e depois sera que tenho de fazer um outro link para listar tudo em outra página htm. valeuuu!

Gostaria de saber se alguém do forum aceita montar um sistema, pois estou fazendo um curso de asp mas eu aprender o que preciso vou perder muito tempo por isso a ajuda de alguém e importante. E o seguinte e aparentemente simples: gostaria de montar um sistema que busque dados de um BD Access, os dados estão em uma tabela com os campos nome, descrição e foto. e retorna os dados que a pessoa pesquisou em uma página html montando uma tabela para separar os dados direito, seria ideal que a pesquisa fosse pelo nome por favor alguém estou precisando urgente. Vou explicar melhor ASP - le - BD - retorna - HTML montando uma tabela.

fiz um site todo em Fire com botoes, mas na hora de exportar o site todo fatiado, perde o efeito que coloquei nos botoes e o menu fica todo sem graça, porque esta sem o efeito. alguém pode me ajudar?