<% Response.buffer = true Response.expires = 0 gravado = false erro = Request.QueryString("erro") if Request.Form("gravar") = "gravar" then assuntow = Replace(Trim(request.Form("assunto")), "'", "''") nome = Replace(Trim(request.Form("nome")), "'", "''") fone = Replace(Trim(request.Form("fone")), "'", "''") cel = Replace(Trim(request.Form("cel")), "'", "''") email = Replace(Trim(request.Form("email")), "'", "''") comentario = Replace(Trim(request.Form("comentario")), "'", "''") resposta = Replace(Trim(request.Form("resposta")), "'", "''") data = dtsql dpto = Request.Form("dpto") codfonte = LerFonte("contato.htm") codfonte = Replace(codfonte, "1data",now) codfonte = Replace(codfonte, "1dpto",dpto) codfonte = Replace(codfonte, "1assunto",assuntow) codfonte = Replace(codfonte, "1nome",nome) codfonte = Replace(codfonte, "1fone",fone) codfonte = Replace(codfonte, "1cel",cel) codfonte = Replace(codfonte, "1email",email) codfonte = Replace(codfonte, "1comentario",comentario) codfonte = Replace(codfonte, "1resposta",resposta) enviar_emailhtm email, nome, paraemail, paranome, codfonte Function LerFonte(htm) Set fso = Server.CreateObject("Scripting.FileSystemObject") caminhodohtm = Server.MapPath(htm) Set leitura = fso.GetFile(caminhodohtm) corpoemail = leitura.OpenAsTextStream.ReadAll Set leitura = Nothing Set fso = nothing LerFonte = corpoemail end function function enviar_emailhtm(email, nome, paraemail, paranome, codfonte) p_strSmtp = "mail.patriciamarta.com.br" p_strEmailDe = "site@patriciamarta.com.br" p_strEmailDeSenha = "nlbB202%" p_strEmailPara = "cantorapatriciamarta@gmail.com" p_strAssuntoEmail = "Contato patriciamarta.com.br" p_strMensagem = codfonte Dim objCDOSYSMail Dim objCDOSYSCon Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = p_strSmtp objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = p_strEmailDe objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = p_strEmailDeSenha objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = p_strEmailDe objCDOSYSMail.To = p_strEmailPara 'objCDOSYSMail.ReplyTo = "Hostsys " objCDOSYSMail.Subject = p_strAssuntoEmail objCDOSYSMail.HTMLBody = p_strMensagem On Error Resume Next objCDOSYSMail.Send If Err <> 0 Then Response.Write "Erro no sistema: " & Err.Description End If Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing end function gravado = true end if %> :: Patricia Marta ::
   
Clique aqui e veja todos os programas...
CHAMADA PROGRAMA ENTRE AMIGOS
 
 
 
***Contato
 
<%if gravado = false then%>
 
Assunto:
Nome:
Telefone:
Celular:
Email:
Comentário:
 

<%elseif gravado = True then%>
Enviado com Sucesso!.
<%end if%>
 Patrícia Marta

Cantora e Compositora

Telefones: 11-2228-9439/ 11-7796-2402/ ID: 101*5775

E-mail: cantorapatriciamarta@gmail.com

Twitter: @patriciamarta

Facebook: facebook.com/patrícia.marta
 
***Redes Sociais
iuiuiui

2015 - Direitos Reservados Patricia Marta