caicai
-
Total de itens
92 -
Registro em
-
Última visita
Tudo que caicai postou
-
Malcel no código q postei na msg anterior já faz isso: senha = sen("senha") para inserir ela no corpo da msg enviada no e-mail é só chama a variavel senha. Ex: <% body = "<font color=""#ff0000"">"& senha %> colocando essa linha antes do Mail.Body a senha já aparecerá no corpo da msg.. T+
-
Olá Marcel cara fiz um exemplo q busca o e-mail digitado pelo usuário no banco e se existir ele irá mandar um e-mail para o mesmo. Abaixo vai o exemplo. --------------------------------------------------------------- <% email = Request.Form("email") If email = "" Then mensagem = "Erro campo vazio" end if Set conn = Server.CreateObject("ADODB.Connection") strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../banco.mdb") Set sen = Server.CreateObject("ADODB.Recordset") strsen = "Select * From usuario where email = '"& email &"'" sen.open strsen, conn If not sen.EOF then nome = sen("nome") senha = sen("senha") usuario = sen("usuario") email = sen("email") Set Mail = Server.CreateObject("Persits.MailSender") 'Servidor de Envio de Mensagens Mail.Host = "smtp.seusite.com.br" 'Quem envia a mensagem Mail.From = "contatos@seusite.com.br" Mail.FromName = "Site.com.br"' 'Quem irá receber a mensagem Mail.AddAddress sen("email"), sen("nome") 'Assunto da Mensagem Mail.Subject = "Recuperação de Senha" 'Corpo da Mensagem Mail.IsHTML = True Mail.Body = "<html><body topmargin='0' leftmargin='0'>" & body & "</body></html>" 'Verifica se ouve erro On Error Resume Next ' catch errors 'Enviando a Mensagem Mail.Send 'Pega o erro mostra sua descrisão If Err <> 0 Then erro = 1 mensagem = Err.Description else mensagem = "E-mail enviado com Sucesso." End If Else sen.close Set sen = Nothing mensagem = "E-Mail não Cadastrado" End If Response.Write mensagem %> --------------------------------------------------------------- Obs: Este código é só o de envio da mensagem e verificação do email. T+
-
Cezar, você pode fazer assim: Transformar os dois global.asa em um só ou sejá colocar o conteudo de um no outro.???? Ps: Nunca Testei isso mas acho q funciona. outra maneira é você renomear o arquivo para .asp e chamar ele via código? Ex: <!--#include file="global.asp" --> T+
-
wgalafassijr, é só você colocar na tag form: Meu Código --------------------------------------- <form name="newsl" method="post"onsubmit="return valid()"> --------------------------------------- Seu Código --------------------------------------- <form action="enquete_exe.asp" name="enque" method="POST" onsubmit="return valid()"> --------------------------------------- entendeu? no caso dos argumentos é só você trocar os q estão no exemplo para os necessario do seu sistema.... ex: Meu código. ------------------------------ url=document.newsl.url.value + '?nome=' + document.newsl.nome.value + '&email=' + document.newsl.email.value + '&action=' + document.newsl.action.value ------------------------------- Seu código ------------------------------- url=document.newsl.url.value + '?opcao=' + document.enque.R1.value ------------------------------- Espero q ajudeo cara se você não entender fala ae. T+ Obs: Leoni muito Obrigado. e Parabens pela atitude. T+
-
Fala cara beleza Olha ele não processa o voto pois não está recebendo as informações do mesmo, para q ele possa processar é só você informar os dados do voto tb. ex: function valid() { var url; url=document.newsl.url.value + '?nome=' + document.newsl.nome.value + '&email=' + document.newsl.email.value + '&action=' + document.newsl.action.value; Abre(url,395,113);} return false } a funçao Abre: function Abre(url, width, height) { window.open(url,"_blank","resizable=no,toolbar=no,status=no,menubar=no,scrollbars=no,width=" + width + ",height=" + height) } Espero q entenda T+
-
Olha Cezar. cara é só você colocar o global.asa na raiz de servidor. ex: Se o seu server é "http://localhost/cezar/" é só você colocar o global na pasta onde o server busca o cezar. http://localhost/cezar/ --> c:/inetpub/wwwroot/cezar/ o global.asa tem q estar na pasta cezar tb. pois é a raiz do seu diretorio. Espero q entenda. T+
-
Olá beleza, o que é PHP? PHP (Hipertext PreProcessor) é uma linguagem de programação server-side scripts para criar sites dinâmicos. Sites dinâmicos são aqueles que retornam para o cliente uma página criada em tempo real. cara se você quer aprender PHP meu conselho é você dar uma lida nesta apostila q acho uma das melhores na área. http://www.peder.hpg.com.br/php_manual_pt_BR.zip ela me salva muito nas horas de maiores dificuldades T+
-
Fala Yuri olha cara tem esse aq. http://www.cai-cai.kit.net/dolar.zip Espero q lhe ajude. T+
-
Olá cezar Olha você pode fazer assim: Se o usuário for entra em sua pagina atravez de um link você faz assim: If Request.ServerVariables("http_referer") = "nome do site" Then conteudo da pagina else não mosta a pagina end if
-
Fala ae cara beleza, Olha tem o snitz e o web wiz versão 6.2 pois na minha opnião são os melhores feito em asp. não me lembro mas acho q aq no sb tem os dois para down cara. Ps: O Snitz tem sua versão em portugues já o web wiz numca vi mas creio eu q tb tem. T+
-
Ae Sergio, Você pode fazer isso utilizando session ou cookies para poder liberar ou não a exibição do conteudo tipo. If Request.Cookies("libera") <> "" Then mostra o conteudo else não mostra o conteudo. com session seria a mesma coisa só trocando o Response.Cookies por Session. Espero q lhe ajude. T+
-
ae cara instala o php para windows, é só faze o down do arquivo no site do php www.php.net utilizo o php 4.1.1 no iis e numca apresento erros, tb no win xp.
-
ae Fernando, é só copiar o código abaixo. banner.asp ----------------------------------------------------------------------------------------- <% hora = time() If hora >= "18" And hora < "24" Then strbanner = "banner1.swf" End if If hora >= "0" And hora < "12" Then strbanner = "banner2.swf" End if If hora >= "12" And hora < "18" Then strbanner = "banner3.swf" End if %> <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" WIDTH="640" HEIGHT="350" id="breve" ALIGN=""> <PARAM NAME=movie VALUE="<%=strbanner%>"> <PARAM NAME=menu VALUE=false> <PARAM NAME=quality VALUE=high> <PARAM NAME=scale VALUE=noscale> <PARAM NAME=bgcolor VALUE=#000000> <EMBED src="<%=strbanner%>" menu=false quality=high scale=noscale bgcolor=#000000 WIDTH="640" HEIGHT="350" NAME="breve" ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED> </OBJECT> é só você colocar assim e mudar os nomes dos arquivos. tipo: banner2.swf para teste.swf ae Francisco como assim um catalogo? buscando numa tabela?? T+
-
Fernando, Para q funcione é preciso colocar todo o código do flash assim: <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" WIDTH="640" HEIGHT="350" id="breve" ALIGN=""> <PARAM NAME=movie VALUE="breve.swf"> <PARAM NAME=menu VALUE=false> <PARAM NAME=quality VALUE=high> <PARAM NAME=scale VALUE=noscale> <PARAM NAME=bgcolor VALUE=#000000> <EMBED src="breve.swf" menu=false quality=high scale=noscale bgcolor=#000000 WIDTH="640" HEIGHT="350" NAME="breve" ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED> </OBJECT> Desse modo q você fez tb da certo mas em vez de colocar Response.Write strbanner você faria. ------------------------------------------------------------------------------------------------ <% hora = time() If hora >= "18" And hora < "24" Then strbanner = "<img src=""banner1.gif"">" End if If hora >= "0" And hora < "12" Then strbanner = "<img src=""banner2.gif"">" End if If hora >= "12" And hora < "18" Then strbanner = "<img src=""banner3.gif"">" End if %> <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" WIDTH="640" HEIGHT="350" id="breve" ALIGN=""> <PARAM NAME=movie VALUE="<%=strbanner%>"> <PARAM NAME=menu VALUE=false> <PARAM NAME=quality VALUE=high> <PARAM NAME=scale VALUE=noscale> <PARAM NAME=bgcolor VALUE=#000000> <EMBED src="<%=strbanner%>" menu=false quality=high scale=noscale bgcolor=#000000 WIDTH="640" HEIGHT="350" NAME="breve" ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED> </OBJECT> Espero q entenda. T+
-
Chamando Outro Executável Em Delphi
uma questão respondeu caicai em Outras Linguagens de Programação
Fala Fábio beleza olha a linha abaixo é pra chama a calculador, mas para chamar outro exe é só mudar a parte em vermelho. winexec('c:\windows\calc.exe',sw_shownormal); espero q lhe ajude. Fui T+ -
Fala thiago bl? Olha utilizo o ASPEMAIL e nunca tive problemas com ele, suporta e-mail no formato Html, e-mail com anexo e muitas outras coisas. para fazer o down dele é só entra no endereço abaixo. www.aspemail.com se precisar de exemplos, no proprio aspemail tem alguns, mas q quizer posso lhe enviar uns. Fui t+