Ejemplo para crear un formulario de envío de correos en ASP:
<%@LANGUAGE="VBSCRIPT" %>
<!– Ejemplo de Formulario de envio de correos utilizando ASP –>
<!– Este codigo debe ser colocado en un archivo de extension .asp –>
<!–METADATA TYPE="TypeLib" FILE="E:\WINDOWS\system32\cdosys.dll" –>
<!– Formulario para completar con los datos –>
<form action="test_mail.asp" method="POST">
E-mail destinatario: <input type="text" name="destinatario" width="50"></input><br/>
Titulo Consulta: <input type="text" name="TituloConsulta" width="50" ></input><br/>
Texto Consulta: <TEXTAREA NAME="Consulta" ROWS="10" COLS="50"> </TEXTAREA> <br/>
<input type="submit" value="Enviar e-mail" /><input type="hidden" name="enviar" value="1"/>
</form>
<!– Fin Formulario para completar con los datos –>
<%
‘ Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP
DestinatarioCorreo = Request("destinatario")
CuentaDesdeDondeSeEenvia = "CuentaDeCorreo" ‘debe ser una creada desde el panel de control nombre@dominio
TextoConsulta= Request("Consulta")
TituloConsulta= Request("TituloConsulta")
If Request("enviar") = 1 Then
If Not Request("usuario") = "" And Not Request("destinatario") = "" Then
‘ Se crean los objetos necesarios para el envío del correo
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
‘ Se configuran los parametros necesarios para el envío
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iConf.Fields.Update
‘ Se asignan las propiedades de configuración al objeto
Set oMail.Configuration = iConf
oMail.To = DestinatarioCorreo
oMail.From = CuentaDesdeDondeSeEenvia
oMail.Subject = TituloConsulta
oMail.TextBody = TextoConsulta
‘ Se envía el correo
oMail.Send
‘ Se destruyen los objetos
Set iConf = Nothing
Set Flds = Nothing
Else
‘ Respuesta en caso de que no se completen todos los datos
Response.Write("Complete todos los campos para ejecutar el ejemplo")
End If
End If
%>
El mejor servicio!!!!
Excelente servicio y muy buena atencion! Satisfecho 100%
Excelente servicio y muy buena atencion! Satisfecho 100%
Excelente y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
Excelente servicio y muy buena atencion! Satisfecho 100%
Estamos sumamente conformes con el servicio que nos brindan. Eficiencia profesional y excelente trato humano. No podemos pedir más. Seguiremos trabajando juntos (y esperemos que sea por mucho tiempo). Abrazo a la gente de Hosting Bahía. ECCO COMUNICACION CREATIVA / Radio Mitre Bahía Blanca
Excelente servicio y muy buena atencion! Satisfecho 100%
Excelente servicio siempre!
Tenía que hacer dos registros NIC. Gracias a la asistencia y predisposición de Martín, tanto en la oficina como la asistencia técnica telefónica, pude lograr mi objetivo. Excelente.
El mejor servicio!!!!
Chicos! excelente servicio! la verdad que muy conforme porque ademas siempre estan para resolverme todos los problemas :) muchas gracias! Desde ya super confiables, responsables y recomendables... Felicitaciones!!!
Excelente servicio y soporte tecnico, damos fe que por lejos es el mejor servicio de hosting con atencion personalizada que hay en Bahia Blanca, muchas gracias!
Tuve un problema con el espacio en disco apenas subi mi página web y mis consultas fueron respondidas inmediatamente. Muy buena atención!
Excelente atención, servicio y resultados. Muchas gracias!
Felicitaciones Hosting por su nueva pagina y gracias por sus servicios. Saludos
Impecable el servicio y la rapidez en solucionar nuestros problemas! Gracias por ayudarnos!!
Arte Marcial kimugan ( www.kimugan.com - www.gabrielgagliardini.com ) Estoy muy conforme con el servicio. Lo recomiendo ampliamente.
Buen servicio, muy buena atencion.
Tenemos alojado nuestro sitio web con Hosting Bahia y realmente el servicio técnico siempre fue muy bueno. Las consultas telefónicas siempre son atendidas con mucha amabilidad y eficacia y cumplen en tiempo y forma cuando se comprometen a enviar algun mail para brindar alguna ayuda por esa via. Recomendable!
Excelente atencion!! un servicio impecable! las consultas son respondidas al momento!!
Hace mas de dos años que somos clientes de Hosting Bahia y la verdad es que estamos muy conformes en todo sentido. Atencion, funcionalidad,etc. Muy recomendables !! Abrazo CHENQUEANUNCIOS.COM
Impecable el servicio y la rapidez en solucionar nuestros problemas! Gracias por ayudarnos!!
Excelente atención y gran servicio. Muy recomendable
La verdad es que el servicio está a la altura de lo que se puede esperar de un hosting en Buenos Aires. Manejo las comunicaciones del Helados Jet, Restaurante Pizza Jet, Pronto Jet en Monte Hermoso y Cabañas La Felicidad en Sierra de la Ventana y estamos muy satisfechos.
Hace años que usamos su servicios y como estamos muy coformes lo hemos recomendado a mucha gente. Gracias!
MUY BUENA ATENCION,MARTIN DEL SOPORTE SIEMPRE DISPUESTO,HACE MUCHOS AÑOS SOY CLIENTE,SALUDOS.TODO CARTEL
Excelente servicio y respuesta inmediata! Muy atentos!
Excelente y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
Gran servicio, rápida respuesta y buena atención sigan así!
Excelente el apoyo que me dieron con los tramites en nic.ar La calidad y calidez en la atención es de destacar!! Gracias Martín!!
