<%@ 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 %>
Información del Cliente
Nombre ó Razón Social:  
Teléfonos / Celular / Fax  
Email  
Dirección  
Estado  
Mensaje  
Ciudad  
País  
Producto interesado en adquirir o obtener la información
* favor indicar nombre del prodcto
 
 
   
     
     
<% 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 %>

 

 
  HOME LA EMPRESA PRODUCTOS INFORMACIÓN TÉCNICA CONTÁCTENOS REPRESENTANTES
2005 Electroconductores, C.A. Todos los derechos reservados.