Seja bern-vindo

Nossa equipe est capacitada e disponvel para tirar todas as suas dvidas.

Como faço para configurar um formulário (fale conosco) em meu site utilizando ASP e CDOSYS ?



Este tutorial ensina e exemplifica a criação de um formulário de contato (fale conosco) em seu site, para a hospedagem windows, nos planos ASP, utilizando CDOSYS.

CDOSYS é a nova versão do CDONTS, uma biblioteca similar e equivalente, disponibilidade em nossos servidores de plataforma windows.

Substitua os campos em vermelho pelos dados do seu site!

Passo 1) Crie um arquivo formulario.htm e coloque dentro da pasta /httpdocs . O arquivo formulario.htm deverá ter o seguinte conteudo:

[CODE]<!-- INICIO DO ARQUIVO formulario.htm -->
<form method="POST" action="envia_formulario.asp">
<input type=hidden text name="assunto" value="Formulario">
<input type=hidden name="destinatario" value="email@seudominio.com">
Seu e-mail: <input type=text name="remetente"><br>
Comentário: <br><textarea name="texto"></textarea><br>
<input type=submit value="Enviar">
</form>
<!-- FIM DO ARQUIVO formulario.htm -->
[/CODE]

Passo 2) Crie o arquivo envia_formulario.asp e coloque dentro da pasta /httpdocs . O arquivo envia_formulario.asp deverá ter o conteudo:

[CODE]<!-- INICIO DO ARQUIVO envia_formulario.asp -->

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
Dim iMsg
Set iMsg = Server.CreateObject("CDO.Message")
Dim iBp
Dim Flds

Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "localhost"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = Request.Form( "destinatario")
.From = Request.Form("remetente")
.Subject = Request.Form("assunto")
.TextBody = Request.Form("texto")
.Send
End With

' Clean up variables.
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

Response.Write "Mensagem enviada com sucesso!"
%>
<!-- FIM DO ARQUIVO envia_formulario.asp -->
[/CODE]

Passo 3) Acesse seu http://www.seudominio.com/formulario.htm , e realize um teste de envio de mensagem.

Em caso de dúvidas, contacte nosso suporte técnico.