Ir para conteúdo
Fórum Script Brasil

Anderson Clayton

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    5

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Anderson Clayton postou

  1. Anderson Clayton
    Amigos, não domino ASP e preciso de ajuda para uma amiga q teve que migrar o site para o Terra. O site é feito em flash, inclusive no link de contato, onde há um form que aciona o arquivo contactar.asp. Este recebe os campos do form e envia um e-mail para ela. Não bastou alterar o smtp nem as demais informações da conta... Então algo no código deve ser adaptado para funcionar no Terra? Abaixo envio o código original (sem o smtp do Terra que testei e removi a senha, claro) e em seguida o exemplo que o Terra disponibiliza para os clientes. contactar.asp <% nome = request.form("nome") email = request.form("email") telefone = request.form("telefone") como = request.form("como") mensagem = request.form("mensagem") ip= request.ServerVariables("REMOTE_ADDR") user= request.ServerVariables("GATEWAY_INTERFACE") http= request.ServerVariables("LOCAL_ADDR") conection= request.ServerVariables("HTTP_CONNECTION") host= request.ServerVariables("HTTP_HOST") msgHTML = "<HTML><BODY><hr><font face=verdana size=2 color=#333333><b>Nome: </b>" & nome & " <br/><b>Email: </b>" & email & " <br/><b>Telefone: </b>" & telefone & "<br/><b>Como: </b>" & como & " <br/><b>Mensagem:: </b>" & mensagem & " <br/><b>IP: </b>" & ip & " <br/><b>User: </b>" & user & " <br/><b>Http: </b>" & http & "<br/><b>Conection: </b>" & conection & " <br/><b>Host: </b>" & host & "</font> </BODY></HTML>" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.luzdosol.net" cdoConfig.Fields.Item(sch & "sendusername") = "atendimento=luzdosol.net" cdoConfig.Fields.Item(sch & "sendpassword") = "(senha)" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "atendimento@luzdosol.net" cdoMessage.To = "contato@luzdosol.net" cdoMessage.Subject = "Formulario de Contato Sítio Luz do Sol" cdoMessage.ReplyTo = email cdoMessage.HTMLBody = msgHTML if msgHTML <> "" then cdoMessage.AutoGenerateTextBody = false cdoMessage.TextBody = msgHTML end if On Error Resume Next cdoMessage.Send If Err <> 0 Then Response.Write "popup.mensaje=Erro, envíe-o mais tarde. " & Err.Description Else Response.Write "popup.mensaje=Mensagem enviada corretamente." End If Set cdoMessage = Nothing Set cdoConfig = Nothing msgHTML = "<HTML><BODY><hr><font face=verdana size=2 color=#333333><p>Mensagem automática: Seu email foi recebido com sucesso e será respondido em breve.</p><p>Att. Sítio Luz do Sol</p></font></BODY></HTML>" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.luzdosol.net" cdoConfig.Fields.Item(sch & "sendusername") = "atendimento=luzdosol.net" cdoConfig.Fields.Item(sch & "sendpassword") = "(senha)" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "atendimento@luzdosol.net" cdoMessage.To = email cdoMessage.Subject = "Agradecemos sua visita" cdoMessage.ReplyTo = "contato@luzdosol.net" cdoMessage.HTMLBody = msgHTML if msgHTML <> "" then cdoMessage.AutoGenerateTextBody = false cdoMessage.TextBody = msgHTML end if On Error Resume Next cdoMessage.Send If Err <> 0 Then Response.Write "erro..." & Err.Description Else Response.Write " " End If Set cdoMessage = Nothing Set cdoConfig = Nothing %> Eis o código que o Terra enviou de exemplo: Prezado Cliente, Segue abaixo um exemplo de AspMail: Implementando o ASPMAIL em seu site: <% ' Cria o componente aspmail Set Mailer = Server.CreateObject("SMTPsvg.Mailer") ' Nome do Remetente Mailer.FromName = "Empresa S/A" ' E-mail do Rementente Mailer.FromAddress= "email@domínio.com" ' Servidor de envio de e-mail Mailer.RemoteHost = "mail-fwd" ' Nome / Endereço de quem recebera o E-mail Mailer.AddRecipient "Cliente", "email@domínio.com.br" ' Assunto do E-mail Mailer.Subject = "ASPMAIL !!!" ' Campo da mensagem Mailer.BodyText = "Testando o ASPMAIL" if Mailer.SendMail then Response.Write "E-mail enviado" else Response.Write "Erro no envio do e-mail. Erro: " & Mailer.Response end if %> Agradeço qualquer ajuda, sugestão, idéia... Abraços, Anderson Clayton
  2. Anderson Clayton
    ESerra, questão resolvida, brigadão pela ajuda!!! :) Um amigo meu enviou este link e essa função faz exatamente o que eu precisava: http://snipplr.com/view/2734/get-full-url/ Abraços! Anderson
  3. Anderson Clayton
    ESerra, é assim que está atualmente. O problema é q quando clica no "OK" ele retorna apenas para detal.php e não para a pagina que deveria, por ex: detail.php?id=10 []ss, Anderson
  4. Anderson Clayton
    Pessoal, preciso de uma ajuda com este script para implementar em um site de um cliente que utiliza o PHP Classifieds... Trata-se de um site com conteúdo adulto, então a idéia é apresentar um aviso antes de abrir qualquer página do site e após clicar em "ENTRAR" ou "Tenho mais de 18 anos", o aviso não apareceria mais. Achei este script que usa session_ e até q funciona bem para URLs estáticas, como index.php ou contato.php por ex. Mas para páginas dinâmicas com parâmetros na URL ele não funciona. Por exemplo, "detail.php?id=20" retorna "detail.php" apenas. Vejam o código: http://www.webdesignforums.net/php_67/age_...ript_30188.html Como não consegui fazer funcionar assim para páginas com parâmetros, pensei em mudar o script para abrir uma tela com ajax (ou exibir uma DIV ou uma modal box) na mesma janela AO INVÉS DE redirecionar para uma página e depois voltar. Exemplo de tela que exibe o aviso: http://www.dynamicdrive.com/dynamicindex8/.../dhtmlmodal.htm O problema é ela aparecer APENAS UMA VEZ POR SESSÃO do navegador. Por favor, aceito sugestões, dicas, hacks... Abraços, Anderson
  5. Anderson Clayton

    PHPClassifieds

    uma questão respondeu Anderson Clayton em PHP

    Olá, Everson. Tudo bom? De onde você baixou seu phpclassifieds? Baixe do site oficial a última versão e faça o upload para o seu servidor novamente... Este foi o melhor sistema gratuito de classificados que eu encontrei. Já fiz mais de uma instalação e roda normalmente, igual ao Demo do site. É bem fácil até de fazer mudanças nele. No forum oficial tem bastante ajuda tb. Precisando de uma força, é só falar. []s, Anderson Imóveis e Imóveis
×
×
  • Criar Novo...