%@ LANGUAGE="VBSCRIPT" %>
<%
Session("txt_nombre") = Request.Form("txt_nombre")
Session("txt_telefono") = Request.Form("txt_telefono")
Session("txt_eMail") = Request.Form("txt_eMail")
Session("txt_direccion") = Request.Form("txt_direccion")
Session("txt_provincia") = Request.Form("txt_provincia")
Session("txt_pais") = Request.Form("txt_pais")
Session("txt_ebody") = Request.Form("txt_ebody")
If Request.Form("btn_CMD")="Aceptar" then
Set myMail = CreateObject("CDONTS.NewMail")
myMail.BodyFormat = 1
myMail.MailFormat = 0
myMail.From = trim(Session("txt_eMail"))
myMail.To = "webdesign@myasoc.com.ar"
myMail.Subject = "Contactos To_Garins"
Bo = "CONTACTOS" & chr(13) & chr(13)
Bo = Bo & "Nombre: " & Session("txt_nombre") & chr(13)
Bo = Bo & "Telefono: " & Session("txt_telefono") & chr(13)
Bo = Bo & "eMail: " & Session("txt_eMail") & chr(13)
Bo = Bo & "Direccion: " & Session("txt_direccion") & chr(13)
Bo = Bo & "Provincia: " & Session("txt_provincia") & chr(13)
Bo = Bo & "Pais: " & Session("txt_pais") & chr(13)
Bo = Bo & "Comentarios: " & Session("txt_ebody") & chr(13)
mymail.body = Bo
myMail.Send
Set myMail = Nothing
redir("final_contactos.asp")
end if%>
__TO Garins____