% IF REQUEST.SERVERVARIABLES("HTTP_METHOD") = "POST" THEN session.lcid=1046 nome=request.form("nome") email=request.form("email") empresa=request.form("empresa") fone=request.form("fone") mensagem=request.form("mensagem") Recipient = "fabiano.leite@personalbanker.com.br" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Nome Mailer.FromAddress = email Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient Recipient, Recipient Mailer.ContentType = "text/plain" Mailer.CustomCharSet = "iso-8859-1" Mailer.Subject = "[PERSONAL BANKER WEB - Contato] " & empresa body = "Contato via Site" & chr(13) body = body & "---------------------------------------" & chr(13) body = body & "Nome.........: " & nome & chr(13) body = body & "Empresa......: " & empresa & chr(13) body = body & "E-mail.......: " & email & chr(13) body = body & "Fone.........: " & fone & chr(13) body = body & "Mensagem.....: " & chr(13)& Mensagem & chr(13) body = body & chr(13) & "Enviada em...: " & now() & chr(13) body = body & "---------------------------------------" & chr(13) body = body & "Powered by UNITRI DESIGN" & chr(13) body = body & "http://www.unitri.com.br" Mailer.BodyText = body if Mailer.SendMail then %> <% else %> <% end if Set Mailer = nothing session.lcid=1033 End IF %>
|
|
|||||||||||||||||||||