48 replies to this topic

[Tx.NET]

coloca aspas simples na clausula WHERE...

flws...

[exercito]

sql = "select * from cadastro WHERE cad_mes = '" & month(novembro) & "'"
set rs = conexao.execute(sql)
if rs.eof then
response.write "Nenhum usuário faz aniversario este mes"
else
do while not rs.eof
response.write rs.fields("cad_dia") & " - " & rs.fields("cad_nom") & "<input name='destino' type='checkbox' id='destino' value='" & rs.fields("cad_ema") & "'><br>"
rs.movenext
loop
end if

__________
Onde coloco? como fica?

[exercito]

sql = "select * from cadastro WHERE cad_mes = '" & month(date) & "'"
set rs = conexao.execute(sql)
if rs.eof then
response.write "Nenhum usuário faz aniversario este mes"
else
do while not rs.eof
response.write rs.fields("cad_dia") & " - " & rs.fields("cad_nom") & "<input name='destino' type='checkbox' id='destino' value='" & rs.fields("cad_ema") & "'><br>"
rs.movenext
loop
end if


+++++++++++++++
Tava errado o anterior...onde coloco isso que vc falou nesse código?

[Tx.NET]

velho, se cad_mes for tipo texto, esta correto:

sql = "SELECT * FROM cadastro WHERE cad_mes = ' " & month(date) & " ' "

flws...

Edição feita por: Tx.NET, 23/11/2004, 19:18.

[Fernando_Ramos]

muda o arquivo seleciona.asp para:

<!--#include file="conexao.asp"-->
<form action="enviar.asp" method = "post">
<%

mmes = month(date)

Select Case mmes
case 1
mes = "Janeiro"
case 2
mes = "Fevereiro"
case 3
mes = "Março"
case 4
mes = "Abril"
case 5
mes = "Maio"
case 6
mes = "Junho"
case 7
mes = "Julho"
case 8
mes = "Agosto"
case 9
mes = "setembro"
case 10
mes = "Outubro"
case 11
mes = "Novembro"
case 12
mes = "Dezembro"
End Select






sql = "select * from aniversariantes WHERE mes = '" & mes & "'"
set rs = conexao.execute(sql)

if rs.eof then
response.write "Nenhum usuário faz aniversario este mes"
else
do while not rs.eof
response.write rs.fields("dia") & " - " & rs.fields("nome") & "<input name='destino' type='checkbox' id='destino' value='" & rs.fields("email") & "'><br>"
rs.movenext
loop
end if
%>
<br>
<input type = "submit" value = "Enviar e-mail para selecionados">
</form>

[exercito]

Show de bola Fernandão... tá resolvido , nota 10... agradeço muito!
Resolveu meu problema.
Acho que por ser tão útil um código desse, deveria ter vários exemplos disponíveis.
Mas de coração, agradeço por ter resolvido meu problema.

[Fernando_Ramos]

que nada cara..fico feliz que te ajudei.

e ajudo quando sei, por que quando eu nao sabia nada muitos aqui me ajudaram da mesma forma.

valeu!!

[exercito]

Bom, agora apreceu o seguinte problema... está sendo retornado todos os aniversariantes do mês, porem sem nenhuma ordem...
Pergunta 1
Para eu ordenar por nome em ordem alfabética como fica o código?
Pergunta 2
Caso queira ordenar por data de nascimento, como fica o código
Código:
__________________________________________________________

sql = "select * from cadastro WHERE cad_mes = '" & month(date) & "'"
set rs = conexao.execute(sql)
if rs.eof then
response.write "Nenhum usuário faz aniversario este mes"
else
do while not rs.eof
response.write rs.fields("cad_dia") & " - " & rs.fields("cad_nom") & "<br>"
rs.movenext
loop
end if

[DVPL]

Exercito,

so colocar um 'order by' no final da string sql, assim:

sql = "select * from cadastro WHERE cad_mes = '" & month(date) & "' order by CAMPO ORDENAMENTO, CAMPO ORDENAMENTO"

onde CAMPO é o nome do campo que vc quer q fique ordenado, e ORDENAMENTO é a ordem, crescente ou decrescente, para crescente vc deve colocar ASC e para decrescente DESC.

FLW!!

[exercito]

Não deu não chefe DVPL... tá dando erro interno, 500
Fiz conforme o modo como vc ensinou , mas não fumegou não.... onde será que errei?

[Tx.NET]

vá em Ferramentas/Tools no seu navegador, clique em Opções da Internet/Internet Options, na aba Avançado/Advanced, desabilite Mostrar Erros http amigáveis/Show Friendly http errors messages...

atualize a página e poste o erro..

PS: Use a busca antes de postar... tem bilhões de posts com este erro aki

flws...

Edição feita por: Tx.NET, 25/11/2004, 09:18.

[exercito]

Olha a mensagem....



Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/aniver/seleciona.asp, line 5

"
-^

[DVPL]

Ai exercito,


sql = "select * from cadastro WHERE cad_mes = '" & month(date) & "' order by cad_mes asc, nome desc"


no dreamwever as cores tao certas kra...
ve o cod da linha que ta com erro...

me parece que o erro q deu foi de string nao finalizada....
vc deve ter deixado de colocar aspas duplas em algum lugar ou colocou demais....

se continuar com erro posta o cod aki pra gente...


Flw

[Fernando_Ramos]

muda o teu arquivo seleciona.asp

<!--#include file="conexao.asp"-->
<form action="enviar.asp" method = "post">
<%

mmes = month(date)

Select Case mmes
case 1
mes = "Janeiro"
case 2
mes = "Fevereiro"
case 3
mes = "Março"
case 4
mes = "Abril"
case 5
mes = "Maio"
case 6
mes = "Junho"
case 7
mes = "Julho"
case 8
mes = "Agosto"
case 9
mes = "setembro"
case 10
mes = "Outubro"
case 11
mes = "Novembro"
case 12
mes = "Dezembro"
End Select






sql = "select * from aniversariantes WHERE mes = '" & mes & "' order by nome,dia"
set rs = conexao.execute(sql)

if rs.eof then
response.write "Nenhum usuário faz aniversario este mes"
else
do while not rs.eof
response.write rs.fields("dia") & " - " & rs.fields("nome") & "<input name='destino' type='checkbox' id='destino' value='" & rs.fields("email") & "'><br>"
rs.movenext
loop
end if
%>
<br>
<input type = "submit" value = "Enviar e-mail para selecionados">
</form>

assim ele ira selecionar por ordem alfabetica e por ordem crescente de dia.




vlw...

Edição feita por: Fernando_Ramos, 25/11/2004, 11:43.

[exercito]

Mengagem de erro:
Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/aniver/seleciona.asp, line 5
*************************************
O código é esse:
<!--#include file="conexao.asp"-->

<%
sql = "select * from cadastro WHERE cad_mes = '" & month(date) &"' order by cad_dia asc"
set rs = conexao.execute(sql)
if rs.eof then
response.write "Nenhum usuário faz aniversario este mes"
else
do while not rs.eof
response.write rs.fields("cad_dia") & " - " & rs.fields("cad_nom") & "<br>"
rs.movenext
loop
end if

%>
******************************
Tá dificil....