Peguei esse exemplo na net:
Aqui é o formulario fale.asp
<html>
<head>
<title>FALE CONOSCO</title>
</head>
<body>
<center><font face=Arial size=4>Formulário AspMail</font></h2></center>
<script Language="JavaScript">
function Validator(theForm)
{
if (theForm.t1Nnome.value == "")
{
alert("Digite um valor para o campo NOME:");
theForm.t1Nnome.focus();
return (false);
}
return (true);
}
</script>
<form method=POST name=Manda onsubmit="return Validator(this)" Action="FALEE.asp">
<table border=0 width=100% cellspacing=0 cellpadding=0>
<tr>
<td width="28%"><p align=right style="margin-right: 5"><font color=#000000 face=Verdana size=2>NOME:</font></td>
<center>
<td width="72%"><input type=text name=t1Nnome size=52></td>
</tr>
<td width="28%"><p align=right style="margin-right: 5"><font color=#000000 face=Verdana size=2>EMAIL:</font></td>
<center>
<td width="72%"><input type=text name=t2Eemail size=52></td>
</tr>
<td width="28%"><p align=right style="margin-right: 5"><font color=#000000 face=Verdana size=2>ASSUNTO:</font></td>
<center>
<td width="72%"><input type=text name=t3Aassunto size=52></td>
</tr>
<tr>
<td width=28% valign=top><p align=right style="margin-right: 5"><font color=#000000 face=Verdana size=2>MENSAGEM:</font></td>
<center>
<td width=72><textarea rows=6 name=txtMensagem cols=41></textarea></td>
</tr>
<tr>
<td width=760 colspan=2>
<p align=center><input type=submit value=Enviar name=cmdEnvio></p>
</td>
</tr>
</center>
<center>
</table>
</form>
</body>
____________________________________________________
aqui é o arquivo de envio falee.asp
<%
html = ""
html = html & "<html>"
html = html & "<head>"
html = html & "<title>FALE CONOSCO</title>"
html = html & "</head>"
Response.Write html
Dim sMsgErr
'***** Executa as ações desta página *****
Sub ProcessaPagina()
'***** Declaração das Variáveis *****
Dim v1Nnome
Dim v2Eemail
Dim v3Aassunto
Dim vMmensagem
sEMail = "
seunome@provedor.com.br"
'***** Obtém valores preenchidos no Formulário *****
v1Nnome = Request.Form("t1Nnome")
v2Eemail = Request.Form("t2Eemail")
v3Aassunto = Request.Form("t3Aassunto")
vMmensagem = Request.Form("txtMENSAGEM")
'***** Monta corpo da mensagem a enviar por e-mail
sBodyText = sBodyText & "NOME: " & v1Nnome & vbCrLf 'corpo
sBodyText = sBodyText & "EMAIL: " & v2Eemail & vbCrLf 'corpo
sBodyText = sBodyText & "ASSUNTO: " & v3Aassunto & vbCrLf 'corpo
sBodyText = sBodyText & "MENSAGEM: " & vMmensagem & vbCrLf 'corpo
sBodyText = sBodyText & "----------------------------------------------" & vbCrLf 'corpo
'***** Envia E-Mail para o destinatário *****
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.ig.com.br" ' Especifique o nome do seu servidor SMTP.
Mail.From = "
seunome@provedor.com.br" ' Remetente da mensagem
Mail.FromName = "seu nomeO" ' Nome do remetente
Mail.AddAddress sEMail ' Destinatario da mensagem para
Mail.Subject = "FORMULÁRIO" 'assunto
Mail.Body = sBodyText 'corpo da mensagem montada acima
Mail.Send
If Err > 0 Then
sMsgErr = "Ocorreu o seguinte erro ao tentar enviar o e-mail: " & Err.Description
End If
On Error GoTo 0
End Sub
'***** Executa as ações desta página *****
ProcessaPagina
html = ""
If (sMsgErr <> "") Then
html = html & "<body>"
html = html & "<div>"
html = html & " <table width=100% border=0 cellspacing=0 cellpadding=0 height=21>"
html = html & " <tr>"
html = html & " <td height=23>"
html = html & " <p><br><br><font size=3 face=Verdana color=red>" & sMsgErr & "<br>"
Else
html = html & "</font>"
html = html & " </tr>"
html = html & " <tr>"
html = html & " <td height=101>"
html = html & " </tr>"
html = html & " <tr>"
html = html & " <td height=101>"
html = html & " <p align=center><font face=Verdana size=2 color=#008080>"
html = html & " Sua mensagem foi encaminhada com sucesso.<br>"
html = html & " Logo entraremos em contato. </font> <font face=Verdana size=2 color=#800000><br>"
html = html & " Agradecemos por seu interesse!<br>"
html = html & " <a href=" & chr(34) & "javascript:close()" & chr(34) & ">Fechar</a><br>"
html = html & " </font> </p>"
End If
html = html & " </tr>"
html = html & " </table>"
html = html & "</div>"
html = html & "</body>"
html = html & "</html>"
Response.Write html
strMsgObrigado = "Olá " & strNome & vbcrlf
strMsgObrigado = strMsgObrigado & "Obrigado por se cadastrar em nosso site" & vbcrlf
strMsgObrigado = strMsgObrigado & "Breve você receberá mais informações." & vbcrlf & vbcrlf
strMsgObrigado = strMsgObrigado & "Abraços," & vbcrlf
strMsgObrigado = strMsgObrigado & "Webmaster"
' Criando novamente outra conexão com o CDONTS para enviar o email ao usuário.
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "
seunome@provedor.com.br"
objMail.To = strEmail ' observe
objMail.Subject = "Obrigado!"
objMail.Body = strMsgObrigado
objMail.Send
%>
