<% if trim(request("nomerem")) = "" then %> Museu de Arte
Entre em contato, responderemos em breve

 

Nome :
E-mail :
Nome dos Destinatários:
E-mail dos Destinatários:
Assunto :
Comentários :
  

By Ewbank

<% else Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = request("nomerem") Mailer.FromAddress= request("emailrem") Mailer.RemoteHost = "localhost" Mailer.AddRecipient request("nomedest"), request("emaildest") Mailer.ContentType = "text/html" ' formatação html Mailer.Subject = request("assunto") Mailer.BodyText = request("mensagem") 'Mailer.AddAttachment "e:\home\xyz\web\locaweb\selo.gif" If Mailer.SendMail Then %>

AspMail

Mensagem enviada com sucesso.

 

By Ewbank

<% Else Response.Write "Erro " & Mailer.Response End If Set Mailer = Nothing end if %>