thicomp

Valeu cara... "Brigadãooo"!!! Abraços

Então cara, é o seguinte.... Tenho um formulário, e para esse formulário existem dois botões, um para enviar as informações e disponibilizar um novo formulário, e o outro botão, envia as informações e conclui a ação. As informações enviadas serão as mesmas, so que quando eu selecionar o botão "concluir", ele deve enviar uma variável, que indique que o formulário terminou, entendeu?? Não sei se fui claro... Valeu pela ajuda Abraços

Ola pessoal, bom dia! To com uma dúvida "besta" e não to conseguindo achar uma solução. Tenho um formulário, com dois botões. Os dois enviam os mesmos campos, só que o botão 2 teria que enviar uma variável a mais pra outra página. Só que quando eu fecho o form, para o botão 1, o botão 2 automaticamente é desabilitado. Alguém tem alguma sugestão de como posso arrumar isso??? Abraços

Bom Dia! Oi cara, veja se você consegue me ajudar... Abraços

Ae cara, valeu... Show de bola... Cara, só mais uma coisa... Preciso fazer com que, através de um link, uma div seja exibida ou ocultada. Só que o problema é que nessas div's, são executados comandos asp, acesso a banco, etc... Fiz alguns testes aqui, mas qd eu executo essas funções javascript sem os comandos asp, ela roda normal, mas qd coloco no meio do código, juntamente com asp, ele não roda... você saberia me dizer se é pra ter algum problema com isso?? Mais uma vez, obrigado!!! Abraços Thiago

É exatamente isso mesmo que eu preciso, mas não to conseguindo executa-lo. O exemplo que você me passou também não disponibiliza o campo, após seleção do item. Abraços

Oi pessoal, td bem? Tenho um formulário, onde contém um campo "Select/Option", só que eu preciso que qd o usuário fizer a escolha de uma opção, um outro campo (campo text) disponibilize para preenchimento. Se eu selecionar outra opção, outro campo, diferente do anterior, seja disponibilizado. Como se fosse uma div, que oculte ou apareca quando necessária. Alguém teria alguma sugestão? Abraços

Oi Pessoal, Bom Dia!!! Estou com um problema , será que alguém poderia me ajudar? É o seguinte, tenho uma página que carrega algumas informações para uma segunda página, e essas informações servem de filtro para a mesma. Por exemplo, na página 1 seleciono um ano qualquer, esse ano (yyyy) é enviado para a página 2 e o filtro, através da cláusula "WHERE" deve ser baseado nesse item. Mas o problema é que no meu banco, as informações foram inseridas no formato ano/mês (yyyy/mm). Será que teria alguma maneira de eu verificar somente o ano no meu banco, esquecendo o mês para montar esse filtro? Espero ter sido claro. Abraços Thiago

Pessoal, estou usando esse código e está me retornando esse erro: <% Const strSMTP = "smtp.localhost.com.br" Const strComponenteEmail = "ASPEMAIL" Function EnviaEmail(p_strNomeFROM, p_strEmailFROM, p_strNomeTO, p_strEmailTO, p_strEmailCC, p_strEmailBCC, p_strTipoEmail, p_strAssuntoEmail, p_strMensagem) 'On Error Resume Next If strComponenteEmail = "ASPEMAIL" Then Dim objASPEMail Set objASPEMail = Server.CreateObject ("Persits.MailSender") objASPEMail.FromName = p_strNomeFROM objASPEMail.From = p_strEmailFROM objASPEMail.Host = ServidorSMTP objASPEMail.AddAddress p_strEmailTO, p_strNomeTO If Not p_strEmailCC = "" Then objASPEMail.AddCc p_strEmailCC, "" End If If Not p_strEmailBCC = "" Then objASPEMail.AddBcc p_strEmailBCC, "" End If objASPEMail.Subject = p_strAssuntoEmail objASPEMail.Body = p_strMensagem 'Verificando o tipo de mensagem (default é TEXTO) If p_strTipoEmail = "HTML" Then objASPEMail.IsHTML = True End If 'Verifica se a mensagem foi enviada com sucesso e retorna a funcao [color="#FF0000"]If objASPEMail.Send Then[/color] EnviaEmail = "OK" Else EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo." End If 'Destruindo Objetos Set objASPEMail = Nothing If Err.Number <> 0 Then EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description End If Exit Function End If 'Fim da Utilização do ASPEMAIL End Function Dim strResultado strResultado = EnviaEmail("NOME REMETENTE", "email@remetente.com.br", "NOME DESTINARARIO", "email@destinatario.com.br", "", "", "HTML", "Teste de Email", "<b>Alo <i>VOCÊ</i></b> isso é um teste de envio de email com <u>HTML</u>.") Response.Write strComponenteEmail & "<br>" & strResultado %> Erro Persits.MailSender.4 error '800a000a' Host not specified. /Viagens/mail15.asp, line 29

Olá pessoal, bom dia! Estou tentando fazer o envio de email do meu servidor... Estou utilizando envio sem componentes, utilizando código para CDONTS as mensagens vão pra pasta Queue e depois pra Badmail... Agora verificando no meu IIS, em Programs>>Administrative Tools>>Internet Information Services, em Default Web Site, vi que tem um ícone do AspEmail... Alguém saberia me dizer se é por isso que não está rodando meu código com CDONTS?? Alguém teria o código do AspEmail pra me passar?? Desde já, agradeço pela atenção

E você tem alguma sugestão pra me dar? Onde eu configuro meu IIS para isso? Obrigado

Oi Pessoal, estou com esse código para envio de email, mas não estou conseguindo fazer com que a mensagem seja enviada. Ela fica na pasta queue e depois vai pra pasta badmail. Alguém tem alguma ideia do que possa estar acontecendo? <%@LANGUAGE="VBSCRIPT"%> <% IF request("submit")="Enviar" Then nome=Request("txt_nome") email=Request("txt_email") emailpara=Request("txt_emailpara") assunto=Request("txt_assunto") mensagem=Request("txt_mensagem") texto="<html><body>" texto=texto&"<br><br>"&mensagem mensagem=texto&"</body></html>" Set msg = Server.CreateObject("CDONTS.NewMail") msg.From = Request("txt_email") msg.To="email@dominio.com.br" msg.Subject=assunto msg.Body=mensagem msg.BodyFormat=0 msg.MailFormat=0 msg.Send Set msg = Nothing %> <HTML> <HEAD><TITLE>entre em contato</TITLE></HEAD> <BODY> <DIV align="center"> <P>&nbsp;</P> <P>&nbsp;</P> <P>&nbsp;</P> <P><FONT color="#FF0000" size="4" face="Georgia, Times New Roman, Times, serif">Mensagem enviada com sucesso! </FONT></P> <P>&nbsp;</P> <P><FONT color="#FF0000" size="4" face="Georgia, Times New Roman, Times, serif"></FONT></P> </DIV> </BODY> </HTML> <% Else %> <HTML> <BODY> <FORM action="<%=Request.ServerVariables("SCRIPT_NAME")&"?envia=1&area=4"%>" method="post"> <TABLE width="76%" border="1" cellspacing="0" cellpadding="0"> <TR> <TD width="12%"><DIV align="right"><STRONG>Seu Nome:</STRONG></DIV></TD> <TD width="88%"><INPUT name="txt_nome" type="text" id="txt_nome" value="" size="40"></TD> </TR> <TR> <TD><DIV align="right"><STRONG>Seu e-mail:</STRONG></DIV></TD> <TD><INPUT name="txt_email" type="text" id="txt_email" value="" size="40"></TD> </TR> <TR> <TD><DIV align="right"><STRONG>Assunto:</STRONG></DIV></TD> <TD><INPUT name="txt_assunto" type="text" id="txt_assunto" value=" " size="60"></TD> </TR> <TR> <TD><DIV align="right"><STRONG>Mensagem:</STRONG></DIV></TD> <TD><TEXTAREA name="txt_mensagem" cols="60" rows="5" id="txt_mensagem"></TEXTAREA></TD> </TR> </TABLE> <INPUT type="submit" name="Submit" value="Enviar"> </FORM> </BODY> </HTML> <% End IF %>

Não, nem deu certo!!

Não, então, foi o que eu disse... Quando eu mando imprimir, a página 1 sai com todas as bordas, enquanto que a página 2 , a borda de cima não aparece, já que foi impressa no final da página anterior...

Sim, eu gostaria que a tabela saísse completa em todas as páginas, com todas as bordas.

Até sai, mas em uma página sai só a de baixo, enquanto que na próxima, na parte de cima, fica sem linha, e assim vai...

Olá pessoal!! Será que alguém conseguiria me ajudar? Bom, tenho um código no qual monta uma tabela em html para que o usuário faça a impressão. O meu problema é o seguinte, preciso que qd vai fazer a impressão, quando tiver no final da página e início da outra, eu não tenha a linha final de uma página e a linha inicial da outra não fiquem abertas, ou melhor, sem as linhas de baixo e de cima... Alguém saberia como posso resolver isso?? Abçs Thi

Bom pessoal, na verdade eu acredito que seja o cdonts que esta instalado na minha máquina, já que quando rodo o código para visualizar os componentes instalados, é o cdonts que aparece. Mas vi também aqui, acho que tenho o aspemail instalado na máquina tb. Mas o problema é que quando eu rodo o código do aspemail, ele dá erro de código, ou seja, ele não reconhece o caracter "@" da variavel email. O cdonts faz o envio, mas fica so na pasta queue, e depois é jogado para a pasta badmail. Abçs

Então, eu acredito que está expirando o tempo das mensagens, por isso que elas estão indo pra essa pasta. Não sei como posso fazer para verificar a configuração no iss, já que o programa já estava instalado. você teria alguma sugestão?? Bom, vou postar o código com o qual estou fazendo os testes para envio. Desde já, agradeço pela ajuda <% Option Explicit Dim var_nome, var_mail, var_comentario, var_to, EnviarMail, MsgBody var_nome = Request.QueryString("txtnome") var_mail = Request.QueryString("txtemail") var_comentario = Request.QueryString("txtcomentario") var_to = "sintese1@cristalia.com.br" Set EnviarMail = Server.CreateObject("CDONTS.NewMail") EnviarMail.To = var_to EnviarMail.From = var_mail EnviarMail.Subject = "Meu Site - Contatos" MsgBody = "<html>" _ & "<head>" _ & "</head>" _ & "<body bgcolor=""#FFFFFF"">" _ & "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Voc&ecirc; recebeu uma mensagem de <b>" & var_nome & "</b>, email <b>" & var_mail & "</b> e fez o seguinte coment&aacute;rio:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario & "</b></font></p>" _ & "</body>" _ & "</html>" EnviarMail.Body = MsgBody EnviarMail.Importance = 1 EnviarMail.BodyFormat = 0 EnviarMail.MailFormat = 0 EnviarMail.Send Set EnviarMail = Nothing Response.redirect "resposta.html" %> Sabendo que os campos "request.querystring" são enviados a partir de outra página Abçs

Oi Pessoal, td bem? Estou com problemas com envio de email utilizando cdonts. Não sei o que pode ser, mas quando envio as mensagens, elas ficam um tempo armazenadas na pasta Queue e depois vão pra pasta BadMail... alguém tem alguma sugestão do que pode ser isso?? Thiago

Olá pessoal, td bem?? Bom, já trabalho com programação, mas não tenho muita experiência com Banco de Dados. O sistema em que eu trabalho, o banco de dados já está pronto, portanto não mexo muito nessa parte. - Teria como eu visualizar as tabelas criadas desse banco de dados? - Eu posso criar uma base de dados completamente diferente desta que já possui em minha máquina, ou seja, outro banco de dados? - Como deve ser feita a programação de um novo banco de dados? - Qual ambiente de programação devo utilizar? Se alguém puder me ajudar com essas e outras perguntas, por favor, ficaria muito agradecido

E aí cara, beleza?? Valeu de verdade pela ajuda que você está me dando... Me diz uma coisa, como eu posso fazer essa verificação do cdo?? Abçs

Mas eu preciso ter o componente instalado?? Fiz os testes aqui, mas as mensagens ficam armazenadas na pasta Queue...

Mas este código que você me disponibilizou é pra envio de email utilizando cdo e não cdonts, não é?

É .com só... foi apenas erro de digitação... Bom, na verdade peguei esse código na Internet e não sei se realmente fuinciona, mas acredito que sim... você tem alguma sugestão? Abçs