Vagner Nunes

Agora não apareceu erro: Veio estes resultados: sql = select * from chamada email = vagnerngoulart provedor = @hotmail.com Sds, Vagner Nunes

Prezado Rafael, Está apresentando o seguinte erro agora: Script error detected at line 151. Source line: wend Description: Instrução esperada <% Set objConn = Server.CreateObject("ADODB.Connection") sql = "select * from chamada" objConn.Open "DBQ=" & Server.MapPath("bd/processo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set ObjRs = objConn.Execute(sql) 'inicio debug response.write "sql = " & sql & "<BR>" response.write "email = " & objRS("email") & "<BR>" response.write "provedor = " & objRS("provedor") & "<BR>" response.end %> <% While Not objRS.EOF%> <% Dim myMail, fields, f1, f2, f3, f4, f5, resposta, mensagem f1 = "NOME:" & Request.Form("nome") & vbcrlf f2 = "EMAIL: " & Request.Form("email") & vbcrlf f3 = "ASSUNTO: " & Request.Form("assunto") & vbcrlf f4 = "SETOR: " & Request.Form("setor") & vbcrlf f5 = "MENSAGEM: " & Request.Form("mensagem") & vbcrlf fields = f1 & f3 & f4 & f5 if request.form("cmdRemover") = "x" then Set myMail = CreateObject("CDONTS.NewMail") myMail.From = objRS("email") & objRS("provedor") myMail.To = objRS("email") & objRS("provedor") myMail.subject = "teste" myMail.MailFormat = 1 myMail.Body = fields myMail.Send Set myMail = Nothing 'Para o cliente Set myMail = CreateObject("CDONTS.NewMail") myMail.From = Request.Form("email") myMail.To = Request.Form("email") myMail.subject ="Contato" myMail.MailFormat = 1 resposta = "Não deixe de responder o e-mail." & vbcrlf resposta = resposta + fields & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "-----------------------------------------------------------------" & vbcrlf resposta = resposta + "Nome da Instituição" & vbcrlf resposta = resposta + "Endereço e número" & vbcrlf resposta = resposta + "Bairro" & vbcrlf resposta = resposta + "Municipio-ES" & vbcrlf resposta = resposta + "Telefone" & vbcrlf resposta = resposta + "Site " & vbcrlf resposta = resposta + "------------------------------------------------------------------" & vbcrlf myMail.Body = resposta myMail.Send Set myMail = Nothing %> <% objRS.MoveNext wend%> <% rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %>

Prezado Rafael, Apresentou o mesmo erro. Script error detected at line 97. Source line: <% While Not objRS.EOF Description: Instrução esperada O que devo fazer agora? Segue abaixo todo o código modificado..... <% Set objConn = Server.CreateObject("ADODB.Connection") sql = "select * from chamada" objConn.Open "DBQ=" & Server.MapPath("bd/processo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set ObjRs = objConn.Execute(sql) <% While Not objRS.EOF%> <% 'inicio debug response.write "sql = " & sql & "<BR>" response.write "email = " & objRS("email") & "<BR>" response.write "provedor = " & objRS("provedor") & "<BR>" response.end <% Dim myMail, fields, f1, f2, f3, f4, f5, resposta, mensagem f1 = "NOME:" & Request.Form("nome") & vbcrlf f2 = "EMAIL: " & Request.Form("email") & vbcrlf f3 = "ASSUNTO: " & Request.Form("assunto") & vbcrlf f4 = "SETOR: " & Request.Form("setor") & vbcrlf f5 = "MENSAGEM: " & Request.Form("mensagem") & vbcrlf fields = f1 & f3 & f4 & f5 if request.form("cmdRemover") = "x" then Set myMail = CreateObject("CDONTS.NewMail") myMail.From = objRS("email") myMail.To = objRS("email") & objRS("provedor") myMail.subject = "teste" myMail.MailFormat = 1 myMail.Body = fields myMail.Send Set myMail = Nothing 'Para o cliente Set myMail = CreateObject("CDONTS.NewMail") myMail.From = Request.Form("email") myMail.To = Request.Form("setor") myMail.subject ="Contato" myMail.MailFormat = 1 resposta = "Não deixe de responder o e-mail." & vbcrlf resposta = resposta + fields & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "-----------------------------------------------------------------" & vbcrlf resposta = resposta + "Nome da Instituição" & vbcrlf resposta = resposta + "Endereço e número" & vbcrlf resposta = resposta + "Bairro" & vbcrlf resposta = resposta + "Municipio-ES" & vbcrlf resposta = resposta + "Telefone" & vbcrlf resposta = resposta + "Site " & vbcrlf resposta = resposta + "------------------------------------------------------------------" & vbcrlf myMail.Body = resposta myMail.Send Set myMail = Nothing %> <% objRS.MoveNext wend%> <% rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %>

Prezados, Gostaria de saber se alguém tem algum material em portugues que oriente na utilização do Developer Toolbox do Dreamweaver CS3, uma apostila ajudaria muito também. Utilizo o Devolper Toolbox quando tenho algum formulário com banco de imagens e que tem que fazer Upload, porém a inserção no banco é tranquilo, utilizando a ferramenta para fazer atualização, ele sempre aparece erro e não consigo resolver. Alguém poderia me dar uma luz e dizer porque está acontecendo quando utilizo para atualização, porque para inserção essa ferramenta é excelent, mas para atualização não consigo Alguém pode me ajudar? Sds,

Prezado Rafael, Tentei fazer as modificações que me foi orientada a fazer, porém está aparecendo a mesma coisa. Script error detected at line 98. Source line: <% While Not objRS.EOF Description: Instrução esperada Em qual linha devo alterar e como? Sds,

Prezado, Agora a página está apresentando o erro abaixo: Script error detected at line 98. Source line: <%While Not objRS.EOF Description: Instrução esperada Segue código abaixo: <%@ Language=VBScript %> <% Set objConn = Server.CreateObject("ADODB.Connection") sql = "select * from chamada" objConn.Open "DBQ=" & Server.MapPath("bd/processo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set ObjRs = objConn.Execute(sql) <%While Not objRS.EOF %> <% Dim myMail, fields, f1, f2, f3, f4, f5, resposta, mensagem f1 = "NOME:" & Request.Form("nome") & vbcrlf f2 = "EMAIL: " & Request.Form("email") & vbcrlf f3 = "ASSUNTO: " & Request.Form("assunto") & vbcrlf f4 = "SETOR: " & Request.Form("setor") & vbcrlf f5 = "MENSAGEM: " & Request.Form("mensagem") & vbcrlf fields = f1 & f3 & f4 & f5 if request.form("cmdRemover") = "x" then Set myMail = CreateObject("CDONTS.NewMail") myMail.From = objRS("email") myMail.To = objRS("email") & objRS("provedor") myMail.subject = objRS("email") & objRS("provedor") myMail.MailFormat = 1 myMail.Body = fields myMail.Send Set myMail = Nothing 'Para o cliente Set myMail = CreateObject("CDONTS.NewMail") myMail.From = Request.Form("email") myMail.To = Request.Form("setor") myMail.subject ="Contato" myMail.MailFormat = 1 resposta = "Não deixe de responder o e-mail." & vbcrlf resposta = resposta + fields & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "-----------------------------------------------------------------" & vbcrlf resposta = resposta + "Nome da Instituição" & vbcrlf resposta = resposta + "Endereço e número" & vbcrlf resposta = resposta + "Bairro" & vbcrlf resposta = resposta + "Municipio-ES" & vbcrlf resposta = resposta + "Telefone" & vbcrlf resposta = resposta + "Site " & vbcrlf resposta = resposta + "------------------------------------------------------------------" & vbcrlf myMail.Body = resposta myMail.Send Set myMail = Nothing %> <% objRS.MoveNext wend%> rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %>

Prezado, A página está apresentando seguinte erro: Script error detected at line 146. Source line: wend Description: Instrução esperada Segue o código abaixo: <%@ Language=VBScript %> <% Set objConn = Server.CreateObject("ADODB.Connection") sql = "select * from chamada" objConn.Open "DBQ=" & Server.MapPath("bd/processo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"%> <%While Not objRS.EOF %> <% Dim myMail, fields, f1, f2, f3, f4, f5, resposta, mensagem f1 = "NOME:" & Request.Form("nome") & vbcrlf f2 = "EMAIL: " & Request.Form("email") & vbcrlf f3 = "ASSUNTO: " & Request.Form("assunto") & vbcrlf f4 = "SETOR: " & Request.Form("setor") & vbcrlf f5 = "MENSAGEM: " & Request.Form("mensagem") & vbcrlf fields = f1 & f3 & f4 & f5 if request.form("cmdRemover") = "x" then Set myMail = CreateObject("CDONTS.NewMail") myMail.From = objRS("email") myMail.To = objRS("email") & objRS("provedor") myMail.subject = objRS("email") myMail.MailFormat = 1 myMail.Body = fields myMail.Send Set myMail = Nothing 'Para o cliente Set myMail = CreateObject("CDONTS.NewMail") myMail.From = Request.Form("email") myMail.To = Request.Form("setor") myMail.subject ="Contato" myMail.MailFormat = 1 resposta = "Não deixe de responder o e-mail." & vbcrlf resposta = resposta + fields & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "-----------------------------------------------------------------" & vbcrlf resposta = resposta + "Nome da Instituição" & vbcrlf resposta = resposta + "Endereço e número" & vbcrlf resposta = resposta + "Bairro" & vbcrlf resposta = resposta + "Municipio-ES" & vbcrlf resposta = resposta + "Telefone" & vbcrlf resposta = resposta + "Site " & vbcrlf resposta = resposta + "------------------------------------------------------------------" & vbcrlf myMail.Body = resposta myMail.Send Set myMail = Nothing %> <% objRS.MoveNext wend%> rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %>

Prezado Rafael, Tive que fazer uma modificação nos campos e gostaria de saber se há possibilidade de fazer com essa auteração. Exemplo: Campos utilizados: email e provedor, no campo email é digitado fulanodasilva e no segundo capo o provedor dele @hotmail.com, jutando os dois campos ficaria assim: fulanodasilva@hotmail.com. Então resumindo seria dois campos junto para formar um e-mail, há possibilidade de envio nesta situação? Abaixo o código da página, está certo? <%@ Language=VBScript %> <% Set objConn = Server.CreateObject("ADODB.Connection") sql = "select * from chamada" objConn.Open "DBQ=" & Server.MapPath("bd/processo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"%> <%While Not objRS.EOF %> <% Dim myMail, fields, f1, f2, f3, f4, f5, resposta, mensagem f1 = "NOME:" & Request.Form("nome") & vbcrlf f2 = "EMAIL: " & Request.Form("email") & vbcrlf f3 = "ASSUNTO: " & Request.Form("assunto") & vbcrlf f4 = "SETOR: " & Request.Form("setor") & vbcrlf f5 = "MENSAGEM: " & Request.Form("mensagem") & vbcrlf fields = f1 & f3 & f4 & f5 if request.form("cmdRemover") = "x" then Set myMail = CreateObject("CDONTS.NewMail") myMail.From = objRS("email") myMail.To = objRS("email") myMail.subject = objRS("email") myMail.MailFormat = 1 myMail.Body = fields myMail.Send Set myMail = Nothing 'Para o cliente Set myMail = CreateObject("CDONTS.NewMail") myMail.From = Request.Form("email") myMail.To = Request.Form("setor") myMail.subject ="Contato" myMail.MailFormat = 1 resposta = "Não deixe de responder o e-mail." & vbcrlf resposta = resposta + fields & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "-----------------------------------------------------------------" & vbcrlf resposta = resposta + "Nome da Instituição" & vbcrlf resposta = resposta + "Endereço e número" & vbcrlf resposta = resposta + "Bairro" & vbcrlf resposta = resposta + "Municipio-ES" & vbcrlf resposta = resposta + "Telefone" & vbcrlf resposta = resposta + "Site " & vbcrlf resposta = resposta + "------------------------------------------------------------------" & vbcrlf myMail.Body = resposta myMail.Send Set myMail = Nothing %> <% objRS.MoveNext wend%> rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %> Obrigado pela ajuda. Sds,

Prezado, o banco ainda está vazio, pois estou desenvolvendo ainda, se trata de um cadastro de atendimento, que me foi solicitado. Haveria possibilidade de como poderia fazer este loop de consulta? Muito obrigado. Segue abaixo parte de um formulário que funciona em meu servidor: <% Dim myMail, fields, f1, f2, f3, f4, f5, resposta, mensagem f1 = "NOME:" & Request.Form("nome") & vbcrlf f2 = "EMAIL: " & Request.Form("email") & vbcrlf f3 = "ASSUNTO: " & Request.Form("assunto") & vbcrlf f4 = "SETOR: " & Request.Form("setor") & vbcrlf f5 = "MENSAGEM: " & Request.Form("mensagem") & vbcrlf fields = f1 & f3 & f4 & f5 if request.form("cmdRemover") = "x" then Set myMail = CreateObject("CDONTS.NewMail") myMail.From = Request.Form("email") myMail.To = "nonono@hotmail.com" myMail.subject ="Contato" myMail.MailFormat = 1 myMail.Body = fields myMail.Send Set myMail = Nothing 'Para o cliente Set myMail = CreateObject("CDONTS.NewMail") myMail.From = Request.Form("email") myMail.To = Request.Form("setor") myMail.subject ="Contato" myMail.MailFormat = 1 resposta = "Não deixe de responder o e-mail." & vbcrlf resposta = resposta + fields & vbcrlf resposta = resposta + "" & vbcrlf resposta = resposta + "" & vbcrlf myMail.Body = resposta myMail.Send Set myMail = Nothing %>

Prezados, Tenho um banco com o nome de atendimento e neste banco tem um campo de nome email, gostaria de saber se há possibilidades de criar um formulário de envio de e-mail em ASP onde o formulário pegue todos os registro do cadastro de e-mail e envie para todos os emails cadastrados no sistema? ex.: (estrutura da tabela) ID - Nome - endereco - Tel - curso - email 1 - nonono - Serra-ES - (27) 3333-3333 - Administracao - nonono@yahoo.com.br 2 - Fulano - Serra-ES - (27) 3333-3333 - Administracao - fulano@hotmail.com 3 - Beltrano - Serra-ES - (27) 3333-3333 - Letrastracao - beltrano@terra.com.br Queria que o formulário Pegue dados do campo email e envie e-mails para seus destinatários. Se alguém puder me ajudar, seria muito grato. Sds,

Agora funcionou, valeu Rafael. Muito obrigado pela ajuda. Ate mais. Sds,

Voltou a mostras que não existe aniversariante no dia, porém existe aniversariantes cadastrados neste dia. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% data = dateadd("m",1,date) data_q = split(data,"/") data_f = "1" & "/" & data_q(1) final = dateadd("d",-1,data_f) mesatual = datepart ("m", date) anoatual = datepart ("yyyy", date) datai = "01" &"/"& mesatual &"/"& anoatual dataf = final Set objConn = Server.CreateObject("ADODB.Connection") sql = " select * from aniversariantes where data between "&datai&" and "&dataf&"" objConn.Open "DBQ=" & Server.MapPath("bd/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'começando o debug 'response.write "datai = " & datai & "<BR>" 'response.write "dataf = " & dataf & "<BR>" 'response.write "sql = " & sql & "<BR>" 'response.end 'fim debug Set rs = objConn.Execute(sql) If rs.EOF Then ' Se não encontrou registros escreva Response.Write("Não há Aniversáriantes Para o Dia de Hoje.") Else 'Se encontrou registros escreva Response.Write("<b>" & rs.RecordCount & "</b> Usuarios Fazem Aniversario Hoje: <br>") Do While NOT rs.EOF ' Faça enquanto existir registros Response.Write(rs("nome") & "(<b>" & DateDiff("yyyy",rs("data"),Now) & "</b>)<br>") rs.MoveNext Loop End If rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %> <% ver.Close() Set ver = Nothing %>

Agora está aparecendo o seguinte: datai = 01/10/2008 dataf = 31/10/2008 sql = select * from aniversariantes where data between 01/10/2008 and 31/10/2008 Página abaixo: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% data = dateadd("m",1,date) data_q = split(data,"/") data_f = "1" & "/" & data_q(1) final = dateadd("d",-1,data_f) mesatual = datepart ("m", date) anoatual = datepart ("yyyy", date) datai = "01" &"/"& mesatual &"/"& anoatual dataf = final Set objConn = Server.CreateObject("ADODB.Connection") sql = " select * from aniversariantes where data between "&datai&" and "&dataf&"" objConn.Open "DBQ=" & Server.MapPath("bd/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'começando o debug response.write "datai = " & datai & "<BR>" response.write "dataf = " & dataf & "<BR>" response.write "sql = " & sql & "<BR>" response.end 'fim debug Set rs = objConn.Execute(sql) If rs.EOF Then ' Se não encontrou registros escreva Response.Write("Não há Aniversáriantes Para o Dia de Hoje.") Else 'Se encontrou registros escreva Response.Write("<b>" & rs.RecordCount & "</b> Usuarios Fazem Aniversario Hoje: <br>") Do While NOT rs.EOF ' Faça enquanto existir registros Response.Write(rs("nome") & "(<b>" & DateDiff("yyyy",rs("data"),Now) & "</b>)<br>") rs.MoveNext Loop End If rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %>

Prezado, Fiz as modificações orientadas, porém agora a tela mostra esse erro abaixo: datai = 01/10/2008 dataf = 31/10/2008/10/2008 sql = select * from aniversariantes where data between 01/10/2008 and 31/10/2008/10/2008 Segue abaixo código da página completa: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% data = dateadd("m",1,date) data_q = split(data,"/") data_f = "1" & "/" & data_q(1) final = dateadd("d",-1,data_f) mesatual = datepart ("m", date) anoatual = datepart ("yyyy", date) datai = "01" &"/"& mesatual &"/"& anoatual dataf = final &"/"& mesatual &"/"& anoatual Set objConn = Server.CreateObject("ADODB.Connection") sql = " select * from aniversariantes where data between "&datai&" and "&dataf&"" objConn.Open "DBQ=" & Server.MapPath("bd/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'começando o debug response.write "datai = " & datai & "<BR>" response.write "dataf = " & dataf & "<BR>" response.write "sql = " & sql & "<BR>" response.end 'fim debug Set rs = objConn.Execute(sql) If rs.EOF Then ' Se não encontrou registros escreva Response.Write("Não há Aniversáriantes Para o Dia de Hoje.") Else 'Se encontrou registros escreva Response.Write("<b>" & rs.RecordCount & "</b> Usuarios Fazem Aniversario Hoje: <br>") Do While NOT rs.EOF ' Faça enquanto existir registros Response.Write(rs("nome") & "(<b>" & DateDiff("yyyy",rs("data"),Now) & "</b>)<br>") rs.MoveNext Loop End If rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %>

Prezado, Fiz algumas modificações e agora aparece sempre "Não há Aniversáriantes Para o Dia de Hoje", mas fiz algumas entradas com as datas de hoje. Segue código modificado abaixo: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% data = dateadd("m",1,date) data_q = split(data,"/") data_f = "1" & "/" & data_q(1) final = dateadd("d",-1,data_f) mesatual = datepart ("m", date) anoatual = datepart ("yyyy", date) datai = "01" &"/"& mesatual &"/"& anoatual dataf = final &"/"& mesatual &"/"& anoatual Set objConn = Server.CreateObject("ADODB.Connection") sql = " select * from aniversariantes where data between "&datai&" and "&dataf&"" objConn.Open "DBQ=" & Server.MapPath("bd/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set rs = objConn.Execute(sql) If rs.EOF Then ' Se não encontrou registros escreva Response.Write("Não há Aniversáriantes Para o Dia de Hoje.") Else 'Se encontrou registros escreva Response.Write("<b>" & rs.RecordCount & "</b> Usuarios Fazem Aniversario Hoje: <br>") Do While NOT rs.EOF ' Faça enquanto existir registros Response.Write(rs("nome") & "(<b>" & DateDiff("yyyy",rs("data"),Now) & "</b>)<br>") rs.MoveNext Loop End If rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %>

Prezado Rafael, As linhas foi você quem me passou: data_f = "1" & "/" & data_q(1) & "/" & data_q(2)... Segue abaixo código que você me enviou se você rolar a barra desde lá do começa você irá ver. Eu só estou querendo mostrar o aniversariante do mês. 'para saber se o mes atual tem 28, 29, 30 ou 31 dias: <% data = dateadd("m",1,date) data_q = split(data,"/") data_f = "1" & "/" & data_q(1) & "/" & data_q(2) final = dateadd("d",-1,data_f) mesatual = datepart ("m", date) anoatual = datepart ("yyyy", date) datai = "01" &"/"& mesatual &"/"& anoatual dataf = final &"/"& mesatual &"/"& anoatual 'aqui você deve abrir a conexão com o banco... sql = " select * from sua_tabela where campo_data between #"&datai&"# and #"&dataf&"#" 'aqui você deve setar o rs...

Prezado Rafael, Fiz as modificações, porém agora está dando o seguinte erro: Script error detected at line 18. Source line: Set rs = objConn.Execute(sql) Description: [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na data na expressão de consulta 'data between #01/10/2008# and #31/10/2008/10/2008#'. Segue abaixo os códigos já com as devidas modificações: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% data = dateadd("m",1,date) data_q = split(data,"/") data_f = "1" & "/" & data_q(1) & "/" & data_q(2) final = dateadd("d",-1,data_f) mesatual = datepart ("m", date) anoatual = datepart ("yyyy", date) datai = "01" &"/"& mesatual &"/"& anoatual dataf = final &"/"& mesatual &"/"& anoatual Set objConn = Server.CreateObject("ADODB.Connection") sql = " select * from aniversariantes where data between #"&datai&"# and #"&dataf&"#" objConn.Open "DBQ=" & Server.MapPath("bd/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set rs = objConn.Execute(sql) If rs.EOF Then ' Se não encontrou registros escreva Response.Write("Não há Aniversáriantes Para o Dia de Hoje.") Else 'Se encontrou registros escreva Response.Write("<b>" & rs.RecordCount & "</b> Usuarios Fazem Aniversario Hoje: <br>") Do While NOT rs.EOF ' Faça enquanto existir registros Response.Write(rs("nome") & "(<b>" & DateDiff("yyyy",rs("data"),Now) & "</b>)<br>") rs.MoveNext Loop End If rs.Close Set rs = Nothing objConn.Close Set objConn = Nothing %>

Prezados, Tentei, mas sem sucesso, a página da o seguinte erro: Script error detected at line 32. Source line: rs.Open SQL, Conexao Description: Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. Abaixo está a página que estou tentando abrir. Obrigado pela ajuda dos senhores.... <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/Conectar.asp" --> <% data = dateadd("m",1,date) data_q = split(data,"/") data_f = "1" & "/" & data_q(1) & "/" & data_q(2) final = dateadd("d",-1,data_f) mesatual = datepart ("m", date) anoatual = datepart ("yyyy", date) datai = "01" &"/"& mesatual &"/"& anoatual dataf = final &"/"& mesatual &"/"& anoatual 'aqui você deve abrir a conexão com o banco... sql = " select * from aniversariantes where data between #"&datai&"# and #"&dataf&"#" 'aqui você deve setar o rs... Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, Conexao If rs.EOF Then ' Se não encontrou registros escreva Response.Write("Não há Aniversáriantes Para o Dia de Hoje.") Else 'Se encontrou registros escreva Response.Write("<b>" & rs.RecordCount & "</b> Usuarios Fazem Aniversario Hoje: <br>") Do While NOT rs.EOF ' Faça enquanto existir registros Response.Write(rs("nome") & "(<b>" & DateDiff("yyyy",rs("data"),Now) & "</b>)<br>") rs.MoveNext Loop End If rs.Close Set rs = Nothing Conexao.Close Set Conexao = Nothing %> </body> </html>

Rafael, tentei aqui atribuir esses códigos que você me enviou, mas sempre aparece este erro. Script error detected at line 232. Source line: Description: Instrução esperada

Valeu Rafael... Vou fazer uns testes aqui, sinalizarei após feito os teste. Muito obrigado pela ajuda.... Sds,

Prezado, o campo data no banco está no formato DATA/HORA.

Prezado, Boa tarde. Poderia me explicar melhor como faço. Estou utilizando este código abaixo, mas o que eu queria mesmo é que ele mostre por mês, porém no capo data. Set Aniversario = Server.CreateObject("ADODB.Recordset") Aniversario.ActiveConnection = MM_Conectar_STRING Aniversario.Source = "SELECT * FROM aniversariantes WHERE mes = 'Agosto'" Aniversario.CursorType = 0 Aniversario.CursorLocation = 2 Aniversario.LockType = 1 Aniversario.Open() Desde já agradeço

Prezados, Bom dia. Preciso de uma ajuda mais uma vez, em meu banco do Access tenho uma tabela chamada aniversariantes, e os campos nome, setor, dtnascimento, mes, foto. Gostaria de exibir uma página somente com os aniversariantes do mês. Como posso fazer isto? Obrigado, Sds,

Obrigado mesmo cara. Deu certo aqui.... Valeu.... Sds,

Prezado, Gostaria de deixar uma informação de uma página Ativo ou Inativo. Ex.: Cadastro uma notícia no banco, daí vou escolher a opção Ativo, este texto assim vai aparecer na página de notícias, quando eu clicar em Inativo está informação na estará mais na seção notícias, porém está no banco, mas quando quiser que a informação apareca novamente, dou um click em ativar e atualizo, daí a informação aparecerá novamente. Sds,