%
Session.CodePage = "65001"
accion = Request.Querystring("accion")
nombre = Request.Form("nombre")
email = Request.Form("email")
texto = Request.Form("texto")
if accion = "contacto" and Len(email)>5 and email<>"" then
Dim datos
datos="Nombre: " & nombre & "
" & "E-mail: " & email & "
" & "Texto: " & texto
Set envio = Server.CreateObject ("CDO.Message")
envio.From = email
'envio.From = "contacto@play-doc.com"
envio.To = "info@play-doc.com"
'envio.To = "jorge@onmediaestudio.net"
envio.Subject = "Contacto Web"
envio.HTMLBody = datos
envio.Send
Set envio = Nothing
email = ""
end if
%>