Aniversariantes
#31
Posted 23/11/2004, 18:59
flws...
-rwxr-xr-- 1 fmaynnard user 9666 nov 28 00:00 hell
> shutdown -h now
#32
Posted 23/11/2004, 19:04
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?
http://www.speedydata.com.br
#33
Posted 23/11/2004, 19:05
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?
http://www.speedydata.com.br
#34
Posted 23/11/2004, 19:16
sql = "SELECT * FROM cadastro WHERE cad_mes = ' " & month(date) & " ' "
flws...
Edição feita por: Tx.NET, 23/11/2004, 19:18.
-rwxr-xr-- 1 fmaynnard user 9666 nov 28 00:00 hell
> shutdown -h now
#35
Posted 23/11/2004, 20:06
<!--#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>
www.ramosinformatica.com
contato@ramosinformatica.com | @rinformatica
Hospedagem de site | Desenvolvimento de Sistemas | Informática em Geral
#36
Posted 23/11/2004, 21:45
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.
http://www.speedydata.com.br
#37
Posted 24/11/2004, 08:43
e ajudo quando sei, por que quando eu nao sabia nada muitos aqui me ajudaram da mesma forma.
valeu!!
www.ramosinformatica.com
contato@ramosinformatica.com | @rinformatica
Hospedagem de site | Desenvolvimento de Sistemas | Informática em Geral
#38
Posted 24/11/2004, 20:54
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
http://www.speedydata.com.br
#39
Posted 25/11/2004, 08:27
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!!
#40
Posted 25/11/2004, 09:11
Fiz conforme o modo como vc ensinou , mas não fumegou não.... onde será que errei?
http://www.speedydata.com.br
#41
Posted 25/11/2004, 09:17
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.
-rwxr-xr-- 1 fmaynnard user 9666 nov 28 00:00 hell
> shutdown -h now
#42
Posted 25/11/2004, 10:21
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/aniver/seleciona.asp, line 5
"
-^
http://www.speedydata.com.br
#43
Posted 25/11/2004, 10:28
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
#44
Posted 25/11/2004, 11:43
<!--#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.
www.ramosinformatica.com
contato@ramosinformatica.com | @rinformatica
Hospedagem de site | Desenvolvimento de Sistemas | Informática em Geral
#45
Posted 25/11/2004, 12:27
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....
http://www.speedydata.com.br
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)