jucacabala

pelo amor de deus qual o erro nesse codigo? <!--#include file="conexao.inc" --> <% if Request.form("nome")="" then response.redirect "index.asp" end if if session("id")="" then response.redirect "restrito.asp" end if %> <% DIM conexaodb, rs, str Dim id, nome, sobrenome, email, nascimento, igreja, endereco, numero, complemento, cep, bairro, cidade, estado, ddd, telefone, celular, senha senha = Trim(Request.form("senha")) nome = Trim(Request.form("nome")) sobrenome = Trim(Request.form("sobrenome")) email = Trim(Request.form("email")) nascimento = Trim(Request.form("nascimento")) igreja = Trim(Request.form("igreja")) endereco = Trim(Request.form("endereco")) numero = Trim(Request.form("numero")) complemento = Trim(Request.form("complemento")) bairro = Trim(Request.form("bairro")) cep = Trim(Request.form("cep")) cidade = Trim(Request.form("cidade")) estado = Trim(Request.form("estado")) ddd = Trim(Request.form("ddd")) telefone = Trim(Request.form("telefone")) celular = Trim(Request.form("celular")) id = Trim(Request.form("id")) str = "UPDATE cadastro SET " str = str & "senha='" & senha & "'," str = str & "nome='" & nome & "'," str = str & "sobrenome='" & sobrenome & "'," str = str & "email='" & email & "'," str = str & "nascimento=#" & nascimento & "#," str = str & "igreja='" & igreja & "'," str = str & "endereco='" & endereco & "'," str = str & "numero=" & numero & "," str = str & "complemento='" & complemento & "'," str = str & "bairro='" & bairro & "'," str = str & "cep='" & cep & "'," str = str & "cidade='" & cidade & "'," str = str & "estado='" & estado & "'," str = str & "ddd='" & ddd & "'," str = str & "telefone='" & telefone & "'," str = str & "celular='" & celular & "'," str = str & "WHERE id=" &id call abreconexao Set rs = conexaodb.Execute(str) %> esta dando o erro

http://www.quartocriativo.com.br/2005port/ gente ainda esta em desenvolvimento não terminei, mas a ideia em geral sera esta mesma o link design grafico e internet já esta quase ok gostaria de algumas opinioes abraços julyana ps: quem quiser ver o antigo é so entrar direto na raiz sem o /2005port

então como o camp é numerico eu sei que não posso usar o comprimento igual a zero. na minha estrutura de tabela o campo já esta com o valor requerido definido como "não". e mesmo assim esta dando erro. sera que eu teria que fazer um tratamento no meu codigo para este campo, tipo um if?

ola tenho um campo numerico no meu banco de dados access mas não queria que ele fosse de preenchimento obrigatorio. quando é texto eu sei que é so colocar comprimento de 0 = sim que funciona mas quando o campo é numerico, como faço?

estou usando o AspSmartUpload vou verificar se existe a possibilidade de renomer pelo componente se não houver vou correr atras do FSO mesmo

mas esta funcao renomeia apenas a extensao do arquivo não é?

bom vamos lá, deixa eu tentar explicar minha duvida tenho um form com um campo tipo FILE para envio de fotos para meu servidor. ate ai tudo beleza, o componente que uso funciona normalmente. mas minha duvida é, tenho como na hora do upload renomear esta foto que esta sendo enviada? isso porque se um usuario enviar uma foto imagem.jpg e outro usuario enviar outra foto com este mesmo nome, na pasta onde minhas imagens estao sendo salvas uma ira sobrescrever a outra. e isso não pode acontecer. o que queria era que a foto fosse salva na pasta com o mesmo id do usuario que esta fazendo o upload. tem como fazer isso? agradeço a ajuda beijinhos a todos

uma amiga minha me deu um toque e deu certo se não houver aniversariantes do mes ou o total deles não chegar a 05 ele complementa a lista com os aniversariantes do proximo mes. no meu banco estou salvando os aniversariantes na coluna "nascimento" e a data esta formatada para "00/00/0000" meu codigo ficou assim: <!--#include file="conexao.inc" --> <% DIM conexaodb, rs, str, mes, str1, rs1, id, nome id= Session("id") nome = Session("nome") mes = month(date()) dia = day(date()) str ="select top 5 * From cadastro where ( month(nascimento) = " & mes & "and day(nascimento) >= " & dia & " ) or ( month(nascimento) = " & mes+1 & " ) order by month(nascimento),day(nascimento)" str1 ="select * From mensagem order by id desc " call abreConexao set rs = conexaodb.Execute(str) set rs1 = conexaodb.Execute(str1) %> <html> <head> <title>...::: S&oacute; Vit&oacute;ria</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="estilos.css" rel="stylesheet" type="text/css"> </head> <body leftmargin="0" topmargin="5" marginwidth="0" marginheight="0"> <table width="760" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="3"> <!--#include file="menu.asp" --> </td> </tr> <tr> <td colspan="3">&nbsp;</td> </tr> <tr> <td width="5" rowspan="2"><img src="imagens/space.gif" width="5" height="5"></td> <td valign="top"><table width="610" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="179" valign="top"> <form name="form1" method="post" action="login.asp"> <table width="100%" height="126" border="0" cellpadding="0" cellspacing="0" class="box1"> <tr> <td valign="top"> <% if Session("logado")="sim" then %> <table width="179" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td colspan="2" align="center"><img src="imagens/img_login.gif" width="132" height="17"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="10"></td> </tr> <tr> <td width="10" rowspan="7" class="verdana11bold"><img src="imagens/space.gif" width="10" height="10"> <img src="imagens/space.gif" width="10" height="10"></td> <td class="verdana11bold">Ol&aacute; <% =nome %></td> </tr> <tr> <td class="verdana11bold"><img src="imagens/space.gif" width="10" height="10"></td> </tr> <tr> <td width="169" class="verdana11bold"><a href="#.asp?cod= <% = id %>" id="link05">:: alterar senha</a></td> </tr> <tr> <td><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td><a href="#.asp?cod= <% = id %>" id="link05">:: alterar dados</a></td> </tr> <tr> <td><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td><a href="redir.asp" id="link05">:: sair</a></td> </tr> </table> <% else %> <table width="179" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td colspan="2" align="center"><img src="imagens/img_login.gif" width="132" height="17"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="10"></td> </tr> <tr> <td align="right" class="verdana11bold">Login:</td> <td class="verdana8">&nbsp; <input name="login" type="text" class="box3" id="login"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="3"></td> </tr> <tr> <td align="right" class="verdana11bold">Senha:</td> <td class="verdana8">&nbsp; <input name="senha" type="password" class="box3" id="senha"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="8"></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp; <input name="enviar" type="image" id="enviar" src="imagens/bt_enviar.gif" width="98" height="20" border="0"></td> </tr> </table> <% End if %> </td> </tr> </table> </form></td> <td width="10">&nbsp;</td> <td width="150" valign="top"><a href="#"><img src="imagens/img_forum.gif" width="150" height="126" border="0"></a> </td> <td width="10">&nbsp;</td> <td width="251" valign="top"> <table width="100%" height="126" border="0" cellpadding="0" cellspacing="0" class="box2"> <tr> <td>&nbsp;</td> </tr> </table></td> <td width="10">&nbsp;</td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" bgcolor="#F5F5F5"><table width="179" border="0" cellpadding="0" cellspacing="0"> <tr> <td><img src="imagens/img_parabens.gif" width="179" height="64"></td> </tr> <tr> <td bgcolor="#F5F5F5"><img src="imagens/space.gif" width="22" height="10"></td> </tr> <% if rs.Eof then %> <tr> <td> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5"> <tr> <td height="200" align="center" class="arial9"><p>Nenhum aniversariante para este dia.</p></td> </tr> </table></td> </tr> <% else Do While Not rs.Eof %> <tr> <td height="100%" bgcolor="#F5F5F5" class="arial9"> &nbsp;&nbsp; <% = rs.Fields("nome") %> &nbsp;<%= left(rs("sobrenome"),5) %> <% if len(rs("sobrenome")) > 5 then %> ... <% end if %> - <b> <% = rs.Fields("dia") %> / <% = rs.Fields("mes") %> </b></td> </tr> <tr> <td bgcolor="#F5F5F5"><img src="imagens/space.gif" width="22" height="5"></td> </tr> <% rs.MoveNext LOOP end if rs.close Set rs = Nothing %> </table></td> <td width="10" rowspan="2">&nbsp; </td> <td rowspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="3"><img src="imagens/space.gif" width="22" height="10"></td> </tr> <tr> <td class="verdana11bold"><font color="#333333">Mensagem do Dia</font></td> <td width="20" rowspan="18">&nbsp;</td> <td class="verdana11bold"><font color="#000099">&Aacute;lbum de Fam&iacute;lia</font></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <% Do While Not rs1.Eof %> <tr> <td valign="top"><a href="#.asp?cod=<% = rs1.Fields("id") %>" id="link01"><%= left(rs1("titulo"),50) %> <% if len(rs1("titulo")) > 50 then %>... <% end if %></a></td> <td valign="middle"><a href="#" id="link01">&quot;Eu e a minha casa serviremos ao senhor&quot;.</a></td> </tr> <% rs1.MoveNext LOOP rs1.close Set rs1 = Nothing %> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td class="verdana11bold"><font color="#000099">Envie seu Evento</font></td> <td class="verdana11bold"><font color="#333333">Classificados</font></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr> <td valign="top"><a href="#" id="link01">Clique aqui e divulgue o evento da sua igreja em nossa agenda mensal</a>.</td> <td valign="top"><a href="#" id="link01">&quot;Portanto, enquanto temos oportunidade, fa&ccedil;amos o bem a todos, especialmente aos da fam&iacute;lia da f&eacute;&quot; G&aacute;latas 6:10</a></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td class="verdana11bold"><font color="#333333">Mural de Recados</font></td> <td class="verdana11bold"><font color="#000099">News Eventos</font></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr> <td valign="top"><a href="#" id="link01">Clique aqui para enviar seu recado a todos os jovens metodistas, suas cr&iacute;ticas e sugest&otilde;es.</a></td> <td class="arial9a"> <form name="form2" method="post" action=""> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2" class="arial9a">Receba nossos eventos em seu email:</td> </tr> <tr> <td><input name="textfield3" type="text" class="box3" size="28"></td> <td><input name="imageField2" type="image" src="imagens/bt_ok.gif" width="46" height="20" border="0"></td> </tr> </table> </form></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table></td> <td width="10" rowspan="2"><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td width="179" align="right" valign="bottom" bgcolor="#F5F5F5"> <a href="#"><img src="imagens/ico_mais.gif" width="51" height="10" border="0"></a> </td> </tr> </table></td> <td width="145" valign="top"><table width="145" border="0" cellpadding="0" cellspacing="0"> <tr> <td><img src="imagens/img_agenda01.gif" width="145" height="40"></td> </tr> <tr> <td class="box4"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> </tr> </table></td> </tr> <tr> <td><img src="imagens/img_agenda02.gif" width="145" height="11"></td> </tr> </table></td> </tr> <tr> <td colspan="2" valign="top"><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr align="right"> <td colspan="3"> <!--#include file="rodape.asp" --> <a href="http://www.tempoeartedesign.com.br/" target="_blank" id="link04">desenvolvido e produzido por Tempo &amp; Arte Design</a></td> </tr> </table> </body> </html> funcionou certinho!

olha eu tenho um esquema de login e senha bem simples ve se te ajuda index.asp <% DIM id, nome id= Session("id") nome = Session("nome") %> <form name="form1" method="post" action="login.asp"> <table width="100%" height="126" border="0" cellpadding="0" cellspacing="0" class="box1"> <tr> <td valign="top"> <% if Session("logado")="sim" then %> <table width="179" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td colspan="2" align="center"><img src="imagens/img_login.gif" width="132" height="17"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="10"></td> </tr> <tr> <td width="10" rowspan="7" class="verdana11bold"><img src="imagens/space.gif" width="10" height="10"> <img src="imagens/space.gif" width="10" height="10"></td> <td class="verdana11bold">Ol&aacute; <% =nome %></td> </tr> <tr> <td class="verdana11bold"><img src="imagens/space.gif" width="10" height="10"></td> </tr> <tr> <td width="169" class="verdana11bold"><a href="#.asp?cod= <% = id %>" id="link05">:: alterar senha</a></td> </tr> <tr> <td><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td><a href="#.asp?cod= <% = id %>" id="link05">:: alterar dados</a></td> </tr> <tr> <td><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td><a href="redir.asp" id="link05">:: sair</a></td> </tr> </table> <% else %> <table width="179" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td colspan="2" align="center"><img src="imagens/img_login.gif" width="132" height="17"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="10"></td> </tr> <tr> <td align="right" class="verdana11bold">Login:</td> <td class="verdana8">&nbsp; <input name="login" type="text" class="box3" id="login"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="3"></td> </tr> <tr> <td align="right" class="verdana11bold">Senha:</td> <td class="verdana8">&nbsp; <input name="senha" type="password" class="box3" id="senha"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="8"></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp; <input name="enviar" type="image" id="enviar" src="imagens/bt_enviar.gif" width="98" height="20" border="0"></td> </tr> </table> <% End if %> </td> </tr> </table> </form> login.asp<!--#include file="conexao.inc" --> <% DIM conexaodb, rs, str, vlogin, vsenha vlogin = request.form("login") vsenha = request.form("senha") str = "select * from cadastro where email ='"&vlogin&"' and senha ='"&vsenha&"' " call abreConexao set rs = conexaodb.Execute(str) %> <html> <head> <title>...::: S&oacute; Vit&oacute;ria</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="estilos.css" rel="stylesheet" type="text/css"> </head> <body leftmargin="0" topmargin="5" marginwidth="0" marginheight="0"> <table width="760" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <!--#include file="menu.asp" --> </td> </tr> <tr> <td> <% if rs.EOF then %> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="arial_textosObs"> <tr> <td width="25" rowspan="12">&nbsp;</td> <td height="50" class="verdana11bold">&nbsp;</td> </tr> <tr> <td class="verdana11bold"><font color="#990000">Login ou senha inv&aacute;lidos.</font></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="10"></td> </tr> <tr> <td class="arial9a"><div align="justify">Certifique-se que seus dados de acesso foram digitados corretamente.</div></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td class="arial9a">Para maiores informa&ccedil;&otilde;es entre em contato com nossa <a href="javascript:abre();" id="link01">Equipe de Suporte atrav&eacute;s de nossa pagina de contato </a>.</td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <form name="form1" method="post" action="login.asp"> <tr> <td width="330" class="verdana11bold">Login: <input name="login" type="text" class="box3" id="login" size="20"> &nbsp; Senha: <input name="senha" type="password" class="box3" id="senha" size="20"> </td> <td width="10">&nbsp;</td> <td><input name="imageField" type="image" src="imagens/bt_ok.gif" border="0"></td> </tr> </form> </table></td> </tr> </table> <% else Session("id") = rs("id") Session("nome") = rs("nome") Session("logado")="sim" Response.Redirect("index.asp") end if %> </td> </tr> <tr> <td>&nbsp;</td> </tr> <tr align="right"> <td> <!--#include file="rodape.asp" --> <a href="http://www.tempoeartedesign.com.br/" target="_blank" id="link04">desenvolvido e produzido por Tempo &amp; Arte Design</a></td> </tr> </table> </body> </html> espero ter ajudado!

JCMPJ você acertou na mosca!!!!!!!!!!!!!!!!!!!!!!!! eita que cabeça que pensa é outra coisa né? fiquei tão feliz que sai gritando pela casa "deu certo!, deu certo!" ai que hoje vou ate dormir melhor! valeu mesmo! beijinhos

essa coisa de valor é complicado demais! eu sempre me perco em contas e mais contas na hora de passar um orçamento para algum cliente. quando o site é simples, basicamente htm e css + imagens eu costumo cobrar 100,00 por pagina. se for em flash uns 150,00 se o projeto for grande eu costumo negociar este valor, ai o preço por pagina vai diminuir. em geral meus sites ficam por volta de 500 a 2500 mas tambem não sei se este preço é justo. Acho que esta tabela me ajudaria e muito! quanto a questao das cidades, eu não concordo em baixar o valor dependendo da cidade. Afinal os sites serão expostos na mesma midia, a internet!

olha já tentei tanta coisa que nem me lembro mais se isto eu já fiz ou não mas GuTo é contigo mesmo que queria falar cara sabe aquele troço de aniversariantes que você fez e postou me ajuda nisso? já rodei o mundo e não ta dando jeito olha o meu tópico http://scriptbrasil.com.br/forum/index.php?showtopic=57618 se você puder eu agradeço beijinhos

eita nois que acho que é isso mesmo depois que desliguei minha maquina que percebi isso se a variavel esta fora do loop é claro que ela vai pegar somente o primeiro valor e duplicar para o restante! eita cabeça gorda essa minha!!!!!!!!!!!!! bom JCMPJ vou testar isso mais tarde e se der certo posto aqui, ok? valeu pela ajuda beijinhos

tambem não deu certo pesquisei e vo que o Guto fez um esquema desse no site dele mas não entendi como ele fez o link para o script dele é http://scriptbrasil.com.br/forum/index.php...&hl=aniversario

bom fiz oque o JCMPJ indicou não deu erro mas tambem não deu muito certo acontece que ele pega o primeiro valor do primeiro registro e repete para todos os outros. meu codigo ficou assim: <% Dim Conn, RS, codigo, cod2, cod3 Set Conn = CreateObject("ADODB.Connection") With Conn .Provider = "Microsoft.Jet.OLEDB.4.0" codigo = Request.QueryString("cod") .ConnectionString = "Data Source= D:\Julyana\atlas\finalbd\fechamento_mes\"& (codigo) &";Extended Properties=Excel 8.0;" .Open End With Set RS = Conn.Execute("SELECT * FROM [consolidado$] ") cod2 = FormatNumber(rs.fields("ich"), 2) cod3 = FormatNumber(rs.fields("mtbc"), 2) %> <html> <head> <title>Portal de Resultados do AA</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="estilo.css" rel="stylesheet" type="text/css"> <script LANGUAGE="JavaScript" SRC="overlib.js"></SCRIPT> </head> <body leftmargin="5" topmargin="0" marginwidth="0" marginheight="0"> <DIV ID="overDiv" STYLE="position:absolute; visibility:hide; z-index: 1;"></DIV> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="10" align="right"> <!--#include file="topo.asp" --></td> </tr> <tr> <td height="30">&nbsp;</td> </tr> <tr> <td class="arial10"><strong><font color="#003366">Planilha referente:</font> <font color="#990000"> <% = codigo %> </font></strong></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="5" colspan="13"><img src="imagens/transparente.gif" width="11" height="5"></td> </tr> <tr valign="middle" class="arial10" bgcolor="#003366"> <td width="15%"><font color="#FFFFFF">&nbsp;Local</font></td> <td width="7%" align="center"><font color="#FFFFFF">N&uacute;mero<br> Unidades</font></td> <td width="7%" align="center"><font color="#FFFFFF">Chamada<br> Normal</font></td> <td width="7%" align="center"><font color="#FFFFFF">Chamada<br> Emerg&ecirc;ncia</font></td> <td width="7%" align="center"><font color="#FFFFFF">Total<br> Chamadas</font></td> <td width="7%" align="center"><font color="#FFFFFF">ICH</font></td> <td width="7%" align="center"><font color="#FFFFFF">Obj.<br> ICH</font></td> <td width="7%" align="center"><font color="#FFFFFF">MTBC</font></td> <td width="7%" align="center"><font color="#FFFFFF">Obj.<br> MTBC</font></td> <td width="7%" align="center"><font color="#FFFFFF">Cr&iacute;ticas</font></td> <td width="7%" align="center"><font color="#FFFFFF">Obj.<br> Cr&iacute;ticas</font></td> <td width="7%" align="center"><font color="#FFFFFF">Tempo de<br> Atend.</font></td> <td width="7%" align="center"><font color="#FFFFFF">Obj. Tempo<br> de Atend.</font></td> </tr> <tr> <td colspan="13"><img src="imagens/transparente.gif" width="11" height="8"></td> </tr> <% Do While RS.EOF = False If bgColor = "#EAF5FF" Then bgColor = "#F3F3F3" Else bgColor = "#EAF5FF" End If %> <tr class="arial9txt" bgcolor="<%=bgColor%>"> <td>&nbsp;<a onMouseOver="dlc('Nome do Local','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("local") %></a></td> <td align="center"><a onMouseOver="dlc('Número de Unidades','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("unidades") %></a></td> <td align="center"><a onMouseOver="dlc('Chamada Normal','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("chm_normal") %></a></td> <td align="center"><a onMouseOver="dlc('Chamada Emergência','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("chm_emerg") %></a></td> <td align="center"><a onMouseOver="dlc('Total Chamadas','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("total_chm") %></a></td> <td align="center"><a onMouseOver="dlc('ICH','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = cod2 %></a></td> <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo ICH','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_ich") %></a></font></b></td> <td align="center"><a onMouseOver="dlc('MTBC','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = cod3 %></a></td> <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo MTBC','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_mtbc") %></a></font></b></td> <td align="center"><a onMouseOver="dlc('Críticas','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("criticas") %></a></td> <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo Críticas','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_criticas") %></a></font></b></td> <td align="center"><a onMouseOver="dlc('Tempo de Atendimento','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("tempo_atend") %></a></td> <td align="center"><b><font color="#990000"><a onMouseOver="dlc('Objetivo Tempo de Atendimento','Descrição'); return true;" onMouseOut="nd(); return true;" style="cursor:help"><% = rs.fields("obj_tempo_atend") %></a></font></b></td> </tr> <tr> <td colspan="13"><img src="imagens/transparente.gif" width="11" height="3"></td> </tr> <% RS.MoveNext Loop RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %> <tr> <td colspan="13"><img src="imagens/transparente.gif" width="11" height="8"></td> </tr> </table></td> </tr> <tr> <td height="30">&nbsp;</td> </tr> <tr> <td align="center"><a href="javascript:history.go(-1)"><img src="imagens/ico_volta.gif" width="67" height="30" border="0"></a></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td> <!--#include file="rodape.asp" --> </td> </tr> </table> </body> </html> eu criei as variaveis e coloquei a formatação. sera que alguém sabe o que pode ta acontecendo? desde já agradeço a ajudinha de vocês beijinhos

mas issso fara com que seja mostrado apenas os proximos 8 aniversariantes? o Month(data_nascimento) = "& Month(Date) &" esta dizendo para ele comparar apenas o mes da data gravada no banco com o mes atual?

ainda não consegui bom vou postar o codigo que fiz mas este mostra apenas os aniversariantes do mes o que preciso é mostrar os proximos 5 aniversariantes, com a data (dia e mes) igual ou maior que a atual. como faço isso? link para teste: teste <!--#include file="conexao.inc" --> <% DIM conexaodb, rs, str, mes, str1, rs1, id, nome id= Session("id") nome = Session("nome") mes = month(date()) dia = day(date()) str ="select top 5 * From cadastro where mes = " & mes str = str & "and dia >= " & dia str = str & " order by dia desc " str1 ="select * From mensagem order by id desc " call abreConexao set rs = conexaodb.Execute(str) set rs1 = conexaodb.Execute(str1) %> <html> <head> <title>...::: S&oacute; Vit&oacute;ria</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="estilos.css" rel="stylesheet" type="text/css"> </head> <body leftmargin="0" topmargin="5" marginwidth="0" marginheight="0"> <table width="760" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="3"> <!--#include file="menu.asp" --> </td> </tr> <tr> <td colspan="3">&nbsp;</td> </tr> <tr> <td width="5" rowspan="2"><img src="imagens/space.gif" width="5" height="5"></td> <td valign="top"><table width="610" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="179" valign="top"> <form name="form1" method="post" action="login.asp"> <table width="100%" height="126" border="0" cellpadding="0" cellspacing="0" class="box1"> <tr> <td valign="top"> <% if Session("logado")="sim" then %> <table width="179" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td colspan="2" align="center"><img src="imagens/img_login.gif" width="132" height="17"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="10"></td> </tr> <tr> <td width="10" rowspan="7" class="verdana11bold"><img src="imagens/space.gif" width="10" height="10"> <img src="imagens/space.gif" width="10" height="10"></td> <td class="verdana11bold">Ol&aacute; <% =nome %></td> </tr> <tr> <td class="verdana11bold"><img src="imagens/space.gif" width="10" height="10"></td> </tr> <tr> <td width="169" class="verdana11bold"><a href="#.asp?cod= <% = id %>" id="link05">:: alterar senha</a></td> </tr> <tr> <td><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td><a href="#.asp?cod= <% = id %>" id="link05">:: alterar dados</a></td> </tr> <tr> <td><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td><a href="redir.asp" id="link05">:: sair</a></td> </tr> </table> <% else %> <table width="179" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td colspan="2" align="center"><img src="imagens/img_login.gif" width="132" height="17"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="10"></td> </tr> <tr> <td align="right" class="verdana11bold">Login:</td> <td class="verdana8">&nbsp; <input name="login" type="text" class="box3" id="login"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="3"></td> </tr> <tr> <td align="right" class="verdana11bold">Senha:</td> <td class="verdana8">&nbsp; <input name="senha" type="password" class="box3" id="senha"></td> </tr> <tr> <td colspan="2"><img src="imagens/space.gif" width="10" height="8"></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp; <input name="enviar" type="image" id="enviar" src="imagens/bt_enviar.gif" width="98" height="20" border="0"></td> </tr> </table> <% End if %> </td> </tr> </table> </form></td> <td width="10">&nbsp;</td> <td width="150" valign="top"><a href="#"><img src="imagens/img_forum.gif" width="150" height="126" border="0"></a> </td> <td width="10">&nbsp;</td> <td width="251" valign="top"> <table width="100%" height="126" border="0" cellpadding="0" cellspacing="0" class="box2"> <tr> <td>&nbsp;</td> </tr> </table></td> <td width="10">&nbsp;</td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top" bgcolor="#F5F5F5"><table width="179" border="0" cellpadding="0" cellspacing="0"> <tr> <td><img src="imagens/img_parabens.gif" width="179" height="64"></td> </tr> <tr> <td bgcolor="#F5F5F5"><img src="imagens/space.gif" width="22" height="10"></td> </tr> <% if rs.Eof then %> <tr> <td> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F5F5F5"> <tr> <td height="200" align="center" class="arial9"><p>Nenhum aniversariante para este dia.</p></td> </tr> </table></td> </tr> <% else Do While Not rs.Eof %> <tr> <td height="100%" bgcolor="#F5F5F5" class="arial9"> &nbsp;&nbsp; <% = rs.Fields("nome") %> &nbsp;<%= left(rs("sobrenome"),5) %> <% if len(rs("sobrenome")) > 5 then %> ... <% end if %> - <b> <% = rs.Fields("dia") %> / <% = rs.Fields("mes") %> </b></td> </tr> <tr> <td bgcolor="#F5F5F5"><img src="imagens/space.gif" width="22" height="5"></td> </tr> <% rs.MoveNext LOOP end if rs.close Set rs = Nothing %> </table></td> <td width="10" rowspan="2">&nbsp; </td> <td rowspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="3"><img src="imagens/space.gif" width="22" height="10"></td> </tr> <tr> <td class="verdana11bold"><font color="#333333">Mensagem do Dia</font></td> <td width="20" rowspan="18">&nbsp;</td> <td class="verdana11bold"><font color="#000099">&Aacute;lbum de Fam&iacute;lia</font></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <% Do While Not rs1.Eof %> <tr> <td valign="top"><a href="#.asp?cod=<% = rs1.Fields("id") %>" id="link01"><%= left(rs1("titulo"),50) %> <% if len(rs1("titulo")) > 50 then %>... <% end if %></a></td> <td valign="middle"><a href="#" id="link01">&quot;Eu e a minha casa serviremos ao senhor&quot;.</a></td> </tr> <% rs1.MoveNext LOOP rs1.close Set rs1 = Nothing %> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td class="verdana11bold"><font color="#000099">Envie seu Evento</font></td> <td class="verdana11bold"><font color="#333333">Classificados</font></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr> <td valign="top"><a href="#" id="link01">Clique aqui e divulgue o evento da sua igreja em nossa agenda mensal</a>.</td> <td valign="top"><a href="#" id="link01">&quot;Portanto, enquanto temos oportunidade, fa&ccedil;amos o bem a todos, especialmente aos da fam&iacute;lia da f&eacute;&quot; G&aacute;latas 6:10</a></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td class="verdana11bold"><font color="#333333">Mural de Recados</font></td> <td class="verdana11bold"><font color="#000099">News Eventos</font></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr> <td valign="top"><a href="#" id="link01">Clique aqui para enviar seu recado a todos os jovens metodistas, suas cr&iacute;ticas e sugest&otilde;es.</a></td> <td class="arial9a"> <form name="form2" method="post" action=""> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2" class="arial9a">Receba nossos eventos em seu email:</td> </tr> <tr> <td><input name="textfield3" type="text" class="box3" size="28"></td> <td><input name="imageField2" type="image" src="imagens/bt_ok.gif" width="46" height="20" border="0"></td> </tr> </table> </form></td> </tr> <tr> <td><img src="imagens/space.gif" width="22" height="5"></td> <td><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> <td align="center"><img src="imagens/img_separador.gif" width="194" height="1"></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table></td> <td width="10" rowspan="2"><img src="imagens/space.gif" width="10" height="5"></td> </tr> <tr> <td width="179" align="right" valign="bottom" bgcolor="#F5F5F5"> <a href="#"><img src="imagens/ico_mais.gif" width="51" height="10" border="0"></a> </td> </tr> </table></td> <td width="145" valign="top"><table width="145" border="0" cellpadding="0" cellspacing="0"> <tr> <td><img src="imagens/img_agenda01.gif" width="145" height="40"></td> </tr> <tr> <td class="box4"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> </tr> </table></td> </tr> <tr> <td><img src="imagens/img_agenda02.gif" width="145" height="11"></td> </tr> </table></td> </tr> <tr> <td colspan="2" valign="top"><img src="imagens/space.gif" width="22" height="5"></td> </tr> <tr align="right"> <td colspan="3"> <!--#include file="rodape.asp" --> <a href="http://www.tempoeartedesign.com.br/" target="_blank" id="link04">desenvolvido e produzido por Tempo &amp; Arte Design</a></td> </tr> </table> </body> </html>

eita será que quando voce estiver com seu livro voce posta a consulta so para que eu possa ter ideia de +- como fica? eu não tenho a minima noção de como posso fazer isso. brigadinhu

ola povao olha so na minha index tenho uma area que mostra os 8 aniversariantes do atual mes e meu BD tem uma coluna nascimento formatada para dd/mm/aaaa como faço isso? a ideia era tambem não mostrar o ano do aniversario! tenho uma outra pagina que ira listar todos os aniversariantes do mes, independente da data como posso tambem fazer isso? agradeço a ajudinha abraços Julyana

isso não tentei mas agora nem tem como eu fazer aqui pra ver se vai dar certo quando chegar em casa eu tento e se der erro vou pedir socorro de novo, ta? e se voce puder me passar a outra função eu agradeço de montão brigadinhu!

mas como faço isso?

bareta tambem já tentei fazer assim e mesmo assim não funciona :.(

no excel a célula esta formatada como numero geral. com duas casas decimais e é resultado de uma divisão. o asp faz conexao com esta planilha e mostra os dados. meu codigo asp o valor da divisao aparece na pagina como 0,474849849 e queria que mostrasse 0,48 <% Dim Conn, RS, codigo Set Conn = CreateObject("ADODB.Connection") With Conn .Provider = "Microsoft.Jet.OLEDB.4.0" codigo = Request.QueryString("cod") .ConnectionString = "Data Source= D:\Julyana\atlas\finalbd\fechamento_mes\"& (codigo) &";Extended Properties=Excel 8.0;" .Open End With Set RS = Conn.Execute("SELECT * FROM [consolidado$] ") %> <html> <head> <title>Portal de Resultados do AA</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="estilo.css" rel="stylesheet" type="text/css"> </head> <body leftmargin="5" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="10" align="right"> <!--#include file="topo.asp" --></td> </tr> <tr> <td height="30">&nbsp;</td> </tr> <tr> <td class="arial10"><strong><font color="#003366">Planilha referente:</font> <font color="#990000"> <% = codigo %> </font></strong></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="5" colspan="13"><img src="imagens/transparente.gif" width="11" height="5"></td> </tr> <tr valign="middle" class="arial10" bgcolor="#003366"> <td width="15%"><font color="#FFFFFF">&nbsp;Local</font></td> <td width="7%" align="center"><font color="#FFFFFF">N&uacute;mero<br> Unidades</font></td> <td width="7%" align="center"><font color="#FFFFFF">Chamada<br> Normal</font></td> <td width="7%" align="center"><font color="#FFFFFF">Chamada<br> Emerg&ecirc;ncia</font></td> <td width="7%" align="center"><font color="#FFFFFF">Total<br> Chamadas</font></td> <td width="7%" align="center"><font color="#FFFFFF">ICH</font></td> <td width="7%" align="center"><font color="#FFFFFF">Obj.<br> ICH</font></td> <td width="7%" align="center"><font color="#FFFFFF">MTBC</font></td> <td width="7%" align="center"><font color="#FFFFFF">Obj.<br> MTBC</font></td> <td width="7%" align="center"><font color="#FFFFFF">Cr&iacute;ticas</font></td> <td width="7%" align="center"><font color="#FFFFFF">Obj.<br> Cr&iacute;ticas</font></td> <td width="7%" align="center"><font color="#FFFFFF">Tempo de<br> Atend.</font></td> <td width="7%" align="center"><font color="#FFFFFF">Obj. Tempo<br> de Atend.</font></td> </tr> <tr> <td colspan="13"><img src="imagens/transparente.gif" width="11" height="8"></td> </tr> <% Do While RS.EOF = False If bgColor = "#EAF5FF" Then bgColor = "#F3F3F3" Else bgColor = "#EAF5FF" End If %> <tr class="arial9txt" bgcolor="<%=bgColor%>"> <td>&nbsp; <% = rs.fields("local") %></td> <td align="center"><% = rs.fields("unidades") %></td> <td align="center"><% = rs.fields("chm_normal") %> </td> <td align="center"><% = rs.fields("chm_emerg") %> </td> <td align="center"><% = rs.fields("total_chm") %> </td> <td align="center"><% = rs.fields("ich") %> </td> <td align="center"><b><font color="#990000"> <% = rs.fields("obj_ich") %> </font></b> </td> <td align="center"><% = rs.fields("mtbc") %> </td> <td align="center"><b><font color="#990000"> <% = rs.fields("obj_mtbc") %> </font></b> </td> <td align="center"><% = rs.fields("criticas") %> </td> <td align="center"><b><font color="#990000"> <% = rs.fields("obj_criticas") %> </font></b> </td> <td align="center"><% = rs.fields("tempo_atend") %> </td> <td align="center"><b><font color="#990000"> <% = rs.fields("obj_tempo_atend") %> </font></b> </td> </tr> <tr> <td colspan="13"><img src="imagens/transparente.gif" width="11" height="3"></td> </tr> <% RS.MoveNext Loop RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %> <tr> <td colspan="13"><img src="imagens/transparente.gif" width="11" height="8"></td> </tr> </table></td> </tr> <tr> <td height="30">&nbsp;</td> </tr> <tr> <td align="center"><a href="javascript:history.go(-1)"><img src="imagens/ico_volta.gif" width="67" height="30" border="0"></a></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td> <!--#include file="rodape.asp" --> </td> </tr> </table> </body> </html>

fiz mas não funciona Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: 'FormatNumber' buaaaaaaaaaaaaaaaaaa

tenho um arquivo asp que faz conexao com uma planilha excel. nesta planilha tem uma coluna que o valor é resultado de uma divisão. o valor no excel fica assim 0,479295154185022 mas na minha pagina asp eu queria que este valor fosse exibido com duas casas decimais, assim 0,48 o campo arredondado será o como posso fazer?