<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim strTo, strBody, strnombre, strcomentario
Dim objCDOMail
strSubject = "Ha recibido un email de " & Request.Form("Nombre") & " desde su sitio en Internet"
strNombre = Request.Form ("Nombre")
strDireccion = Request.Form ("Direccion")
strTelefono = Request.Form ("Telefono")
strEmail = Request.Form ("Email")
strComentarios = Request.Form ("Comentarios")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Nombre: "
strBody = strBody & strNombre
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Dirección: "
strBody = strBody & strDireccion
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Teléfono: "
strBody = strBody & strTelefono
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Email: "
strBody = strBody & strEmail
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Comentarios: "
strBody = strBody & strComentarios
strBody = strBody & vbCrLf & vbCrLf
If strnombre = "" Then
%>
<%
else
Set objCDOMail = Server.CreateObject("Dundas.Mailer")
objCDOMail.SMTPRelayServers.Add "mail.hidalgogrupoinmobiliario.com", 25, "localhost", "contacto@hidalgogrupoinmobiliario.com", "z0epv6ltha3xrnjc"
objCDOMail.FromAddress = "contacto@hidalgogrupoinmobiliario.com"
objCDOMail.Tos.Add "contacto@hidalgogrupoinmobiliario.com" 'contacto@hidalgogrupoinmobiliario.com
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.SendMail
Set objCDOMail = Nothing
'Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' objCDOMail.From = "info@hidalgogrupoinmobiliario.com"
' objCDOMail.To = "info@hidalgogrupoinmobiliario.com"
' objCDOMail.Subject = strSubject
' objCDOMail.Body = strBody
' objCDOMail.BodyFormat = 1
' objCDOMail.MailFormat = 0
' objCDOMail.Send
' Set objCDOMail = Nothing
Response.Write "
"
Response.Write "Gracias
Sus datos han sido enviados..."
Response.Write ""
Response.Write "
"
Response.Write "Regresar"
Response.Write "
"
End If
%>
Tambien puede escribirnos a: contacto@hidalgogrupoinmobiliario.com
Inicio
| ¿Quienes Somos? | Contáctenos
Derechos Reservados Hidalgo Grupo Inmobiliario |