<%@Language=VBScript %> <% 'On Error Resume Next %> <% Response.Buffer = True %> <% response.expires = 0 %> <% Dim emailFlag, name, company, telephone, email, message, NewMailObj emailFlag=request.form("emailFlag") name=request.form("name") company=request.form("company") telephone=request.form("telephone") email=request.form("email") message=request.form("message") if emailFlag = 1 then 'create the mail object and send the details Const cdoSendUsingPickup = 1 Const cdoSendUsingPort = 2 Const cdoAnonymous = 0 Const cdoBasic = 1 Const cdoNTLM = 2 const quote="""" Set NewMailObj=CreateObject("CDO.Message") NewMailObj.Subject="Contacto Solaris" NewMailObj.From="no-reply@solariselevators.com" NewMailObj.To="info@solariselevators.com" NewMailObj.HTMLBody = "
Nombre: " & name & _ "

Email: " & email & _ "

Telefono: " & telephone & _ "

Mensaje: " & message & _ "
" NewMailObj.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 NewMailObj.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.solariselevators.com" NewMailObj.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic NewMailObj.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@solariselevators.com" NewMailObj.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "0nt4c.To!" NewMailObj.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 NewMailObj.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False NewMailObj.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 NewMailObj.Configuration.Fields.Update NewMailObj.Send set NewMailObj=nothing end if %> Solaris Elevators - CONTACTO
Solaris Elevators
Soluciones Inteligentes en Sistemas de Elevación
INICIO
QUIENES SOMOS
SERVICIOS
PRODUCTOS
GALERIA
CONTACTO
CONTACTO

Agradecemos su visita a nuestro sitio y quedamos a sus ordenes para cualquier pregunta o comentario en:

O por favor llene el siguiente Formulario y en breve nos comunicaremos con Usted. 

<%if emailFlag=1 then%> <%else%> <%end if%>
Gracias por contactarnos.
En breve nos comunicaremos con Usted.
Formulario de contacto
Nombre *
 
Teléfono *
 
E-mail *
 
Mensaje *
 
* Campos obligatorios


 
INICIOQUIENES SOMOSSERVICIOSPRODUCTOSGALERIACONTACTO