Danieldosul

Prezados.
Alguem pode me ajudar eu tenho este codigo que me deu o hospedagem, é para um formulario com plataforma para windows, CDOSYS, so que este modelo tem muitos campos que eu não preciso so quero que fique com dois campos e claro com o botão ( enviar )

Nome:
Email:
_______________________________

Segue o codigo
______________

<%
Dim msg, remetente, destinatario, nome, cidade, estado, email, assunto, mensagem, data

remetente    = "contato@xxxxxxxxxx"
destinatario = "xxxxxxxxx@hotmail.com"
nome      = Request.Form("nome")
cidade    = Request.Form("cidade")
estado    = Request.Form("estado")
email     = Request.Form("email")
assunto   = "Setor: " & Request.Form("assunto")
mensagem  = Request.Form("mensagem")
data      = now()

Set msg = CreateObject("CDO.Message")

msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="127.0.0.1"
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 27
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Ativa/Desativa conexao SSL (True ou False)
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Ativa autenticacao em texto plano (clear-text)
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="contato@flornapele.com"
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="xxxxxxxxxxx"

msg.Configuration.Fields.Update

msg.To = destinatario
msg.Subject = assunto
msg.From = remetente

'msg.HTMLBody = "opcao para ter o corpo de texto em formato html"
msg.TextBody = "IP de Origem: " & Request.ServerVariables("REMOTE_ADDR")  & vbcrlf&_
     "Data: " & data & vbcrlf&_
     "----------------------------" & vbcrlf&_
     "Nome: " & nome & vbcrlf&_
     "Cidade: " & cidade & vbcrlf&_
     "Estado: " & estado & vbcrlf&_
     "E-mail: " & email & vbcrlf&_
     "Mensagem: " & vbcrlf&_
      mensagem & vbcrlf

msg.Send

Set msg = Nothing
%>

_____________________________________

Alguem pode me ajudar pq não conheco nada de este codigo...
eu tentei tirar estes codigos que eu não preciso
mais não funcionou ....
_____________________________________

cidade    = Request.Form("cidade")
estado    = Request.Form("estado")
mensagem  = Request.Form("mensagem")
data      = now()

_______________________________________

Muito obrigado

Danil

Muito Obrigado.
Teste o exemplo que vc mandou , de verdade muito obrigado mesmo só aconteceu um pequeno detalhe eu copie e cole o codigo que vc mandou
o form como lhe falei tem dois campos somente ( Nome e Email)
quando prenchi o form, chegou o email com os dados de email mais o nome não aparece so pareceu isto no corpo do email.
(Nome: <br />E-mail: nome lembro@yahoo.com.br), tinha sim digitado um nome pode me ajudar ?

Um abraço desde o sul amigão

Daniel