%@ Language=VBScript %>
<%
sub send_mail()
'fields
dim strName
dim strPhone
dim strMail
dim strAddress
dim strStateCode
dim strStateName
dim strMensaje
dim strCity
dim strCountryCode
dim strCountryName
dim strInfo
dim BodyString
dim iConf
dim Flds
dim objMail
dim mail_from
dim mail_to
strName = cstr(Request("txtName"))
strPhone = cstr(Request("txtPhone"))
strMail = cstr(Request("txtMail"))
strAddress = cstr(Request("txtAddress"))
strStateCode = cstr(Request("cmbState"))
strMensaje = cstr(Request("txtMensaje"))
strCity = cstr(Request("txtCity"))
strCountryCode = cstr(Request("cmbCountry"))
strInfo = cstr(Request("txtInfo"))
mail_from = "infotecnica@electroconductores.com"
mail_to = "contactosweb@elecon.com.ve"
select case strCountryCode
case ""
strCountryName = "Otro"
case "CO"
strCountryName = "Colombia"
case "CB"
strCountryName = "Curacao"
case "DO"
strCountryName = "Dominican Republic"
case "EC"
strCountryName = "Ecuador"
case "SV"
strCountryName = "El Salvador"
case "GT"
strCountryName = "Guatemala"
case "GY"
strCountryName = "Guayana"
case "HN"
strCountryName = "Honduras"
case "MX"
strCountryName = "Mexico"
case "PY"
strCountryName = "Paraguay"
case "UY"
strCountryName = "Uruguay"
case "VE"
strCountryName = "Venezuela"
end select
select case strStateCode
case "AM"
strStateName = "Amazonas"
case "AN"
strStateName = "Anzoategui"
case "AP"
strStateName = "Apure"
case "AR"
strStateName = "Aragua"
case "BA"
strStateName = "Barinas"
case "BO"
strStateName = "Bolivar"
case "CA"
strStateName = "Carabobo"
case "CO"
strStateName = "Cojedes"
case "DA"
strStateName = "Delta Amacuro"
case "DC"
strStateName = "Distrito Capital"
case "FA"
strStateName = "Falcon"
case "GU"
strStateName = "Guarico"
case "LA"
strStateName = "Lara"
case "ME"
strStateName = "Merida"
case "MI"
strStateName = "Miranda"
case "MO"
strStateName = "Monagas"
case "NE"
strStateName = "Nueva Esparta"
case "TA"
strStateName = "Tachira"
case "TR"
strStateName = "Trujillo"
case "VA"
strStateName = "Vargas"
case "YA"
strStateName = "Yaracuy"
case "ZU"
strStateName = "Zulia"
case "OO"
strStateName = "Otro"
end select
BodyString = ""
BodyString = BodyString & "-------------------------------------------------------------" & chr(10)
BodyString = BodyString & " ELECON.COM" & chr(10)
BodyString = BodyString & "-------------------------------------------------------------" & chr(10)
BodyString = BodyString & chr(10)
BodyString = BodyString & "Nombre o Razon Social: " & strName & chr(10)
BodyString = BodyString & "Telefonos: " & strAddress & chr(10)
BodyString = BodyString & "E-Mail: " & strMail & chr(10)
BodyString = BodyString & "Direccion: " & strAddress & chr(10)
BodyString = BodyString & "Pais: " & strCountryName & "(" & strCountryCode & ")" & chr(10)
BodyString = BodyString & "Estado: " & strStateName & "(" & strStateCode & ")" & chr(10)
BodyString = BodyString & "Ciudad: " & strCity & chr(10)
BodyString = BodyString & "Mensaje: " & strMensaje & chr(10)
BodyString = BodyString & "Producto interesado en adquirir o obtener informacion: " & strInfo & chr(10)
BodyString = BodyString & chr(10)
BodyString = BodyString & "-------------------------------------------------------------"
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With iConf.Fields
'Hasta el 28 de Marzo 2008
.Item(cdoSendUsingMethod) = 2 'cdoSendUsingPort
.Item(cdoSMTPServer) = "200.6.157.13"
.Item(cdoSMTPConnectionTimeout) = 60
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "infotecnica@electroconductores.com"
.Item(CdoSendPassword) = "123456"
.Item(cdoSendEmailAddress) = "infotecnica@electroconductores.com"
.Item(cdoURLGetLatestVersion) = True
.Update
End With
set objMail = server.CreateObject("CDO.Message")
set objMail.Configuration = iConf
Session("SendMail") = false
objMail.From = mail_from
objMail.To = mail_to
objMail.Subject = "ELECON: Solicitud de Informacion"
objMail.TextBody = BodyString
on error resume next
objMail.Send
if Err.number <> 0 then
on error goto 0
Response.Write "Dentro..."
Set objMail = CreateObject("CDONTS.NewMail")
objMail.Send mail_from , mail_to ,"ELECON: Solicitud de Informacion" , cstr(BodyString)
end if
on error goto 0
end sub
if Request("btnSend") <> "" and Session("SendMail") = false then
call send_mail()
Session("SendMail") = true
else
Session("SendMail") = false
end if
%>
Bienvenidos a Elecon C.A
|
Contacto
|
|
|
|
<% if Session("SendMail") = false then %>
<% else %>
Gracias por utilizar nuestros servicios, nuestro departamento de información técnica se contactará lo antes posible con usted.!!! Volver al Formulario
<% end if %>
|
|
|
|