mandar dados do formulario para um E-mail?

*****Persits*****

***email persits****
<HTML>
<BODY>
<%
strHost = "smtp.bol.com.br" 'servidor que envia o email do from
If Request("Send") <> "" Then 'se tem mensagem
Set Mail = Server.CreateObject("Persits.MailSender") 'criar uma variavel email no servidor
Mail.Host = strHost 'propriedade host do objeto , identifica o servidor de email
Mail.From = Request("From") 'email de quem está enviando
Mail.FromName = Request("FromName") 'nome do rementente
Mail.AddAddress Request("To") 'não tem o sinal de igual, endereço do email do destinatario
Mail.Subject = Request("Subject") 'assunto
Mail.Body = Request("Body") 'mensagem
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message -> enviar email
If Err <> 0 Then ' error occurred -> se ocorreu algum erro
strErr = Err.Description 'descricao do erro
else
bSuccess = True
End If
End If
%>
</BODY>
</HTML>

*****SmartMail*****

******asmart mail*****


<%
if session ("Usuario") = "" then
    Response.Redirect("Login.asp")
end if
%>
<%
Dim Assunto, Mensagem, Destino, Email, Erro, rst, SQL, Mensagem1, DataExtenso
DataExtenso = DataPortugues()
Assunto = trim(Request("Assunto"))
Mensagem = trim(Request("Mensagem"))
Destino = trim(Request("Destino"))
Mensagem = Mensagem
'& vbcrlf & vbcrlf & "CenterSul Informática Ltda - CSNews" & vbcrlf & "Para deixar de receber o CSNews: " & "http://www.centersul.inf.br/Excluir_Email.asp"
On error resume next
Set Email = Server.CreateObject("aspSmartMail.SmartMail")
'Mail Server
'***********
Email.Server = "mail.centersul.inf.br"
'From
'****
Email.SenderName = "CenterSul Informática Ltda - CSNews"
Email.SenderAddress = "centersul@centersul.inf.br"

'mensagem html
Email.ContentType = "text/html"

'enviar email para todos clientes csnews
if Destino = "Todos" then
   SQL = "Select * From Clientes_CSNews ORDER BY Clientes_CSNews.[Codigo do cliente]"
    Set rst = server.createobject("adodb.recordset")
    rst.open SQL, vgdb, 1, 1
    if rst.eof then
    Erro = 2 'nenhum cliente cadastrado
    Response.Redirect("Enviar_Email_Erro.asp?Erro="&Erro)
end if
while not rst.eof 'vamos enviar email para todos os clientes
      'To
      '**
     Email.Recipients.Add EncriptaPW50(rst("Email do cliente")), "Clientes CSNews"
      'Message
      '*******
     Email.Subject = Assunto

   'e-mail em html
     Mensagem1 = "<html>" & vbcrlf & "<style type='text/css'>" & vbcrlf & "" & vbcrlf & "</style>" & vbcrlf & "<head>" & vbcrlf
   Mensagem1 = Mensagem1 & "<title>CenterSul Infromática - CSNews</title>" & vbcrlf & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" & vbcrlf & "</head>" & vbcrlf
   Mensagem1 = Mensagem1 & "<body link='#225384' vlink='#225384' alink='#225384'>" & vbcrlf & "<table width='75%' height='379' border='0' align='center'>" & vbcrlf & " <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "    <td height='113' valign='top'><img src='http://www.centersul.inf.br/figuras/Csnews_banner.jpg' width='598' height='110'></td>" & vbcrlf & " </tr>" & vbcrlf & " <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "    <td height='79' valign='top'><table width='99%' border='0'>" & vbcrlf & "        <tr>" & vbcrlf & "          <td background='http://www.centersul.inf.br/figuras/CSnews_back.jpg'><font color='#225384'><strong>" & DataExtenso & "</strong></font></td>" & vbcrlf
   Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td height='22'> </td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "          <td height='22'><font class='TextoPromocao'>" & TiraEnter(Mensagem) & "</font></td>" & vbcrlf
   Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td height='22'> </td>" & vbcrlf & "        </tr>" & vbcrlf & "      </table></td>" & vbcrlf & " </tr>" & vbcrlf & " <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "    <td valign='top'><table width='99%' border='0' cellpadding='0' cellspacing='0' background='http://www.centersul.inf.br/figuras/CSnews_back.jpg'>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'><strong>CenterSul Informática Ltda - Tecnologia a seu alcance</strong></font></td>" & vbcrlf
   Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'>Av. Arthuino Arsand, 110 - Sala 01 - Centro - Parobé - RS - CEP: 95630-000</font></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "          <td><font class='Texto'>E-mail:</font> <a href='mailto:centersul@centersul.inf.br' class='link1'>centersul@centersul.inf.br</a></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "          <td><font class='Texto'>Homepage:</font> <a href='http://www.centersul.inf.br' title='www.centersul.inf.br' class='link1'>www.centersul.inf.br</a></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
   Mensagem1 = Mensagem1 & "          <td><font class='Texto'>Telefones: 0 xx 51 543 1645 - 0 xx 51 543 3341</font></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td> </td>" & vbcrlf
   Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'>Para cancelar a assinatura do CSNews</font> <a href='http://www.centersul.inf.br/Excluir_email_chk.asp?Email=" & EncriptaPW50(rst("Email do cliente")) & "' title='Clique Aqui' class='link1'>Clique Aqui</a></td>" & vbcrlf
   Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "      </table></td>" & vbcrlf & " </tr>" & vbcrlf & "</table>" & vbcrlf & "</body>" & vbcrlf & "</html>"


     Email.Body = Mensagem1
      'Send the message
      '****************
     Email.SendMail
    rst.movenext
wend
   rst.close
   set rst = nothing
elseif Destino <> "Nenhum" then 'enviar email apenas para um cliente
    'To
    '**
   Email.Recipients.Add Destino, "Clientes CSNews"
    'Message
    '*******
   Email.Subject = Assunto

'e-mail em html
Mensagem1 = "<html>" & vbcrlf & "<style type='text/css'>" & vbcrlf & "" & vbcrlf & "</style>" & vbcrlf & "<head>" & vbcrlf
Mensagem1 = Mensagem1 & "<title>CenterSul Infromática - CSNews</title>" & vbcrlf & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" & vbcrlf & "</head>" & vbcrlf
Mensagem1 = Mensagem1 & "<body link='#225384' vlink='#225384' alink='#225384'>" & vbcrlf & "<table width='75%' height='379' border='0' align='center'>" & vbcrlf & " <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "    <td height='113' valign='top'><img src='http://www.centersul.inf.br/figuras/Csnews_banner.jpg' width='598' height='110'></td>" & vbcrlf & " </tr>" & vbcrlf & " <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "    <td height='79' valign='top'><table width='99%' border='0'>" & vbcrlf & "        <tr>" & vbcrlf & "          <td background='http://www.centersul.inf.br/figuras/CSnews_back.jpg'><font color='#225384'><strong>" & DataExtenso & "</strong></font></td>" & vbcrlf
Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td height='22'> </td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "          <td height='22'><font class='TextoPromocao'>" & TiraEnter(Mensagem) & "</font></td>" & vbcrlf
Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td height='22'> </td>" & vbcrlf & "        </tr>" & vbcrlf & "      </table></td>" & vbcrlf & " </tr>" & vbcrlf & " <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "    <td valign='top'><table width='99%' border='0' cellpadding='0' cellspacing='0' background='http://www.centersul.inf.br/figuras/CSnews_back.jpg'>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'><strong>CenterSul Informática Ltda - Tecnologia a seu alcance</strong></font></td>" & vbcrlf
Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'>Av. Arthuino Arsand, 110 - Sala 01 - Centro - Parobé - RS - CEP: 95630-000</font></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "          <td><font class='Texto'>E-mail:</font> <a href='mailto:centersul@centersul.inf.br' class='link1'>centersul@centersul.inf.br</a></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "          <td><font class='Texto'>Homepage:</font> <a href='http://www.centersul.inf.br' title='www.centersul.inf.br' class='link1'>www.centersul.inf.br</a></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf
Mensagem1 = Mensagem1 & "          <td><font class='Texto'>Telefones: 0 xx 51 543 1645 - 0 xx 51 543 3341</font></td>" & vbcrlf & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td> </td>" & vbcrlf
Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "        <tr>" & vbcrlf & "          <td><font class='Texto'>Para cancelar a assinatura do CSNews</font> <a href='http://www.centersul.inf.br/Excluir_email_chk.asp?Email=" & Destino & "' title='Clique Aqui' class='link1'>Clique Aqui</a></td>" & vbcrlf
Mensagem1 = Mensagem1 & "        </tr>" & vbcrlf & "      </table></td>" & vbcrlf & " </tr>" & vbcrlf & "</table>" & vbcrlf & "</body>" & vbcrlf & "</html>"

   Email.Body = Mensagem1
    'Send the message
    '****************
   Email.SendMail
else 'não informou o destino
Erro = 3
Response.Redirect("Enviar_Email_Erro.asp?Erro="&Erro)
end if
if Err <> 0 then
Erro = 1
Response.Redirect("Enviar_Email_Erro.asp?Erro="&Erro)
else
Response.Redirect("Default.asp")
end if
%>