Marcos-rj

Já, está assim o formato abreviado 23/10/2006. já to de saco cheio. se mudo uma linha tenho que enviar p/ o servidor p/ testar, é foda! Essa porcaria so retorna assim: 10/23/aaaa

Eu não sei você que tem que dizer, pelo que entendi o "Vcodigo" deveria ter um codigo para selecionar um registro específico no banco de dados. você deve especificar o código, não sei como você esta fazendo! Como está o formulário?

Este erro não seria porque a variavel "Vcodigo" usada consulta está sem nenhum valor?

Fertel !! Conseguiu resolver este problema??? Estou com este mesmo problema aqui no pc do trabalho. em casa e no servidor roda normal. Já rodei na net e não achei nenhuma resposta para este problema! To fazendo um trabalho usando um calendário e este erro está me atrapalhando D+.

É bom tomar cuidado com atualizações, já vi pessoas terem problemas depois de atualizar e eu também já. depois de atualizar tive um monte de problemas, tive que reinstalar o Delphi7.

Para listar todos não filtre select * from adm assim retornará todos os cadastros da tabela.

bom, comigo foi em ASP

Qual erro está dando? Posta como você esta fazendo.

Na verdade ninguém está olhando aquilo lá. enviei um atigo p/ sessão asp e desapareceu, já tem varios meses. fiquei maior tempão fazendo e sumiram com o artigo. so me adicionaram pontos. se clico la em enviar colocando somente um titulo mesmo sem nada me adiciona pontos. alguém tem que verificar isto.

não sei, mas o sistema funciona!!!!

Para todos que procuram um sistema p/ busca de cep deem uma conferida neste site. http://www.republicavirtual.com.br T+ :D

você está postando no lugar errado!!! Qual o componente de e-mail você vai usar? cdont's, aspemail, jmail...

1º você esta postando no lugar errado! para rodar páginas ASP off-line você precisar ter instalado na máquina o IIS ou o PWS se for windos ME e ou 98.

posta o endereço de onde está pasta com a imagem e onde está o arquivo asp que faz a exclusão.

Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.incomercio.com.br" Mail.Port = 25 Mail.Username = "EMAIL" 'E-MAIL P/ AUTENTICAÇÃO Mail.Password = "SENHA" 'SENHA P/ AUTENTICAÇÃO Mail.From = "tiago.sarri@incomercio.com.br" Mail.FromName = "Tiago Sarri" Mail.AddAddress "tiagossj4@terra.com.br" Mail.Subject = "Teste de email" Mail.Body = "Teste de envio de emails." Mail.IsHtml = True Mail.Send Set Mail = Nothing

http://www.imasters.com.br/artigo/3244/asp...administrativo/ http://www.imasters.com.br/artigo/3205/asp..._-_comentarios/ http://www.imasters.com.br/artigo/3170/asp...ma_de_enquetes/

tenta assim: For each dados in request("chkId") sql_id = sql_id & "tbJogos.IdJogo = " & dados & " OR " next

tenta fazer com For each para ver se funciona.

pode ser por que tem um codigo p/ excluir o anexo depois de enviado. desabilita a exclusão e tenta enviar s/ anexo p/ ver se vaai.

Priscila, é uma idéia não sei se vai funcionar: 'Chamamos o componente e enviamos o email Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "www.cype.com.br" myMail.To = "teste@cype.com.br" myMail.Subject = "DÚVIDAS DO SIM - VIA SITE" myMail.BodyFormat = 0 myMail.MailFormat = 0 If varanexo<>"" Then else myMail.Attachfile "varanexo End If myMail.Body = HTML myMail.Send

Foi mal errei. coloquei um ti a+ id = Request("chkId") array_id = split(id,",") For i=0 Lbound(array_id) to Ubound(array_id) dados = Trim(array_id(i)) sql_id = sql_id & "tbJogos.IdJogo = " & dados & " OR " Next

Tenta assim: id = Request("chkId") array_id = split(id,",") For i=0 to Lbound(array_id) to Ubound(array_id) dados = Trim(array_id(i)) sql_id = sql_id & "tbJogos.IdJogo = " & dados & " OR " Next

Até que enfim fizeram isso. Já estava + que na hora!

Para você ver a mensagem de erro desabilita a opção mostrar mensagens de erros amigaveis do internet explorer. tenta assim: <% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("db/arvore.mdb") %> <% Set Conexao = CreateObject("ADODB.CONNECTION") ConexaoAberta = FALSE Sub AbreConexao() if not ConexaoAberta then Conexao.Open DSNtemp ConexaoAberta = True end if end sub Sub FechaConexao() if ConexaoAberta then Conexao.close ConexaoAberta = False end if end sub %> <%abreconexao usuario = request.form("email") SQL = "Select email, senha from Admin where email='" & usuario & "'" set rs = conexao.execute(sql) if not rs.eof then Set Mail = CreateObject("CDONTS.NewMail") Mail.From = "email@seudominio.com.br" Mail.To = rs("email") Mail.Subject = "Recuperação de Senha" Mail.Body = "Sua Senha é " & rs("senha") Mail.Send else response.write "Usuario não encontrado!!" response.end end if %>

Mas qual o erro que dá?