Fale Comigo

<%@ LCID=1046 %><% option explicit Session.Contents("Pag") = "mensagens.asp" %> Fale Comigo<% Dim De De = Request.Form("from") if De <> Empty then Dim Nome, Para, Assunto, Cidade, Mensagem, Copia, sch, cdoConfig, cdoMessage On Error Resume Next Nome = Request.Form("nome") Assunto = Request.Form("assunto") & " do site." if Assunto="Selecione do site." then Assunto="Contato do site." Cidade = Request.Form("cidade") Mensagem = Request.Form("body") Copia = Request.Form("copia") 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.roberto.dominiotemporario.com" cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "postmaster@roberto.dominiotemporario.com" cdoConfig.Fields.Item(sch & "sendpassword") = "contatos8" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = Nome & " <" & De & ">" cdoMessage.To = "Roberto P. Santos " cdoMessage.Subject = Assunto Mensagem = Mensagem & vbCrLf & vbCrLf & Nome & vbCrLf & De & vbCrLf & Cidade If copia = "ON" Then cdoMessage.Cc = Nome & " <" & De & ">" cdoMessage.TextBody = Mensagem cdoMessage.Send If Err <> 0 Then %>

A mensagem não foi enviada porque ocorreu um erro no processamento do formulário.
Descrição: <%= Err.Description %>.

<% else %>

A sua mensagem, foi enviada com sucesso!
Obrigado <%= Nome %>!
<% end if %> Atenciosamente,
Roberto Pereira dos Santos.

<% Set cdoMessage = Nothing Set cdoConfig = Nothing else %>

<% end if %>

Preencha os campos abaixo e clique no botão "Enviar":
Nome:
Endereço eletrônico: (obrigatório - se não tiver coloque o de um amigo).
Assunto:	Cidade / Estado / País:
Mensagem: (obrigatório).	Quero uma cópia.
Olinda-PE, quarta-feira, 30 de setembro de 2004.