Postagens
Male
Terminei de me cadastrar no forum acho muito legal o site e já,já vou pedir vossa ajuda não sei se o lugar certo de colocar o post é aqui. caso não seja por favor desculpem.
è assim eu tenho uma pagina web, hospedada x lugar certo, ae fiquei com o problema que eles não aceitam CGI de formulario para plataforma Windows, então ele me passaram um codigo para formulario CDOSYS, ( ASP)
so que eu não sei nada deste cogigo,
meu formulario so tem dois campos
1)Nome e Sobrenome
2) Email
3) Botão enviar
______________________
Este codigo que eles me passaram é de um formulario com outros campos que eu não preciso so que não sei o que tenho que apagar e o que tenho que deixar .
O nome do arquivo é = CDOSYS.ASP
Então eu coloquei na pagina onde esta o formulario o seguinte metodo
<form method="post" action="cdosys.asp">
____________________________________
So que não estou conseguindo configurar o ASP para que fique so com esses dois campos (nome e email)
Vou colocar o codigo do formulario aqui para ver se alguem pode me ajudar
__________________________________________________
<%session.LCID = 1046%>
<html>
<head>
<title>CDOsys</title>
</head>
<body>
<p align="center"><font face="Arial" size="5">Formulario de E-mail</font></p>
<font face="Arial">
<%
Dim msg, remetente, destinatario, nome, cidade, estado, email, assunto, mensagem, data
remetente = "conta_remetente@seudominio.com.br"
destinatario = "conta_destinatario@dominio.com.br"
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") ="mail.seudominio.com.br"
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") ="conta_remetente@seudominio.com.br"
msg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="senha_do_email"
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
%>
</font><center><font face="Arial" size="3">Seu e-mail foi enviado com sucesso<br>
</font></center>
<p align="center"><font face="Arial"><a href="formulario.asp">Retorne ao Formulario</a></font></p>
</body>
</html>_____________________________________
Muito obrigado
Daniel
