%@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
%>
|