Alojamiento web Windows
Utilizar formularios en Windows 2003
For motivos de seguridad el componente CDONTs ha sido sustituído por CDOSYS
Configuración de la página HTML que contiene el formulario
La página HTML deberá incluir en la etiqueta form el parametro action con el nombre de script ASP que se encargará de procesar el formulario cuando el usuario haga click en el botón Enviar.
<form method="post" action="/cdosys_consulta.asp">
La anterior instrucción supone que subio el archivo
cdosys_consulta.asp al directorio home (wwwroot. Si ubica el archivo
dentro de un subdirectorio debe involucrarlo en la ruta.
El script ASP usando el objeto CDOSYS
Este es el script que tiene que copiar y guardarlo en su sitio web con el nombre "cdosys_consulta.asp" (sin comillas) Este nombre de archivo es el que debe figurar en el form de su pagina. Al final de la página puede ver el link para bajar este archivo a su PC.
<%
' Primero definimos algunas variables
Dim MyBody,sFrom, x , NewLine , urlmicrosoft
NewLine = chr(13) & chr(10)
MyBody = ""
' en las siguientes tres lineas reemplace lo que esta en mayúsculas y color marrón por su informacion particular
' adicionalmente no olvide cambiar el URL en la penultima linea de este script.
smtpserver = "mail.SU_DOMINIO.COM"
youremail = "SU_EMAIL@SU_DOMINIO.COM"
yourpassword = "SU_PASSWORD"
for x = 1 to (Request.Form.Count())
if not Request.Form(x) = "" then
MyBody = MyBody & NewLine & Request.Form.Key(x) & " = " & Trim(Request.Form(x))
end if
next
' configuracion del From
if Request.Form("email") = "" then
sFrom = "Anonimo"
else
sFrom = Request.Form("email")
end if
'Ahora colocamos la informacion adicional
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
'Configuracion del servidor SMTP.
urlmicrosoft = "http://schemas.microsoft.com/cdo/configuration/"
iMsg.Configuration.Fields.Item (urlmicrosoft & "sendusing") = 2
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpserver") = smtpserver
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpserverport") = 25
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpusessl") = False
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpconnectiontimeout") = 60
'basic (clear-text) authentication
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpauthenticate") = 1
iMsg.Configuration.Fields.Item (urlmicrosoft & "sendusername") = youremail
iMsg.Configuration.Fields.Item (urlmicrosoft & "sendpassword") = yourpassword
iMsg.Configuration.Fields.Update
'End remote SMTP server configuration section==
iMsg.To = youremail
iMsg.Subject = "Datos del Formulario"
iMsg.From = email
iMsg.Sender = youremail
iMsg.TextBody = MyBody 'iMsg.HTMLBody = MyBody si se tratara de contenido HTML
iMsg.Send
Set iMsg = Nothing
%>
<script>
document.location.replace("http://www.SU_DOMINIO.COM")
</script>
ficheros adjuntos: cdosys_consulta.asp
Última actualización: 2006-12-01 16:18
Autor: Administrador
