<% '////////////////////////////////////////////////////////////////////////////// '// comentarios.asp '// Objetivo : Enviar mensajes de comentario por e-mail '// Historia : 19/07/2001 - Pablo Quintana Bernal '////////////////////////////////////////////////////////////////////////////// Dim strTo, strSubject, strBody Dim objCDOMail strFrom = Request.Form("CorreoElectronicoUsuario") strTo = "Cimal " 'strCc = "Alvaro Gonzalez " strSubject = "Comentarios del CIMAL" strName = Request.Form("NombreUsuario") strApellido = Request.Form("Apellido") strOcupa = Request.Form("Ocupacion") strSexo = Request.Form("Sexo") strCorreo = Request.Form("CorreoElectronicoUsuario") strDir = Request.Form("DireccionUsuario") strPais = Request.Form("Pais") strCiudad = Request.Form("Ciudad") strContacto = Request.Form("ContactoSolicitado") strBody = "Autor: "&strName&vbCrLf strBody = strBody &"Apellido: "&strApellido&vbCrLf strBody = strBody &"Ocupaciσn: "&strOcupa&vbCrLf strBody = strBody &"Sexo: "&strSexo&vbCrLf strBody = strBody &"E-mail: "&strFrom&vbCrLf strBody = strBody &"Direcciσn: "&strDir&vbCrLf strBody = strBody &"Paνs: "&strPais&vbCrLf strBody = strBody &"Ciudad: "&strCiudad&vbCrLf strBody = strBody & vbCrLf strBody = strBody &"Comentarios : "&vbCrLf strBody = strBody &Request.Form("Comentarios")&vbCrLf strBody = strBody &vbCrLf if strContacto="Si" then strBody = strBody &"Por favor, comunνquense conmigo tan pronto como sea posible en referencia a esta materia."&vbCrLf end if %> CIMAL/2004 <%If strFrom = "" Then%>

 

 

 

 

Nombre:
Apellido
Ocupación:

Sexo:

E-mail:

Direcciσn:
País:

Ciudad:

Comentario:

Por favor, comunνquense conmigo tan pronto como sea posible en referencia a esta materia.

 
<% Else Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strFrom objCDOMail.To = strTo 'objCDOMail.Cc = strCc objCDOMail.Subject = strSubject objCDOMail.Body = strBody 'objCDOMail.Bcc = "user@domain.com;user@domain.com" 'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) 'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt" 'objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML 'objCDOMail.MailFormat = 0 ' CdoMailFormatMime objCDOMail.Send Set objCDOMail = Nothing Response.Write "




" Response.Write "
Gracias por su comentario, le responderemos a la brevedad posible

" Response.Write "
[Volver]
" End If %>