amd

veleu agota ta fiuncionando o codigo ficou assim: <% abrir = "DBQ=c:\inetpub\dados\bd.mdb;Driver={Microsoft Access Driver (*.mdb)};" Set conexao = CreateObject("ADODB.Connection") conexao.open abrir set rs = conexao.execute("SELECT * FROM pgn ORDER By id ASC") if rs.eof then Response.Write("vazio") else Do While not rs.eof Response.Write(rs("texto")&"<br><br>") rs.movenext loop end if %>

Gente mudei o campo de texto para memorando no bd e agora não recupera os resultados, se coloco o bd como texto volta a funcionar o que tem que mudar no codigo? Desde já agradeço a ajuda. <% 'caminho do banco de dados abrir = "DBQ=c:\inetpub\dados\bd.mdb;Driver={Microsoft Access Driver (*.mdb)};" %> <% 'Abrir conexão Set conexao = CreateObject("ADODB.Connection") conexao.open abrir %> <% set rs = conexao.execute("SELECT DISTINCT * FROM pgn ORDER By id ASC") if rs.eof = TRUE then %> <% else Do While not rs.eof %> <% 'Declaração de itens id= rs("id") texto=rs("texto") %> <% =rs("texto")%> <% rs.movenext loop end if %>

Cara se seu host tem componente para envio de email esquece este host7 cria um novo arquivo com o codigo abaixo e salva com o nome de enviar.asp <% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.seusite.com.br" Mailer.FromName = request.form("nome") Mailer.FromAddress = request.form("email") Mailer.AddRecipient "Contato Site" , "seuemail@seusite.com.br" Mailer.Subject = "Atendimento on line" Mailer.BodyText = "Nome: " & request.form("nome") & vbcrlf Mailer.BodyText = "E-mail: " & request.form("email") & vbcrlf Mailer.BodyText = "Assunto: " & request.form("assunto") & vbcrlf Mailer.BodyText = "Mensagem: " & request.form("mensagem") & vbcrlf if Mailer.SendMail then Response.redirect "ok.htm" else Response.Write mailer.response end if %> depois cria uma pagina de confirmação de envio em html mesmo e salva com o nome ok.htm no arquivo email.asp que esta na pasta chat altera a linha do method post coloca assim <form name="formulario" method="post" action="enviar.asp">