<%@ Language=VBScript %> <% sub send_mail() 'fields dim strName dim strPhone dim strMail dim strAddress dim strStateCode dim strStateName dim strPostalCode 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")) strPostalCode = cstr(Request("txtPostalcode")) strCity = cstr(Request("txtCity")) strCountryCode = cstr(Request("cmbCountry")) strInfo = cstr(Request("txtInfo")) mail_from = "pedidos@minilibros.com" mail_to = "corpbigben@minilibros.com" 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 = "Anzoátegui" case "AP" strStateName = "Apure" case "AR" strStateName = "Aragua" case "BA" strStateName = "Barinas" case "BO" strStateName = "Bolívar" case "CA" strStateName = "Carabobo" case "CO" strStateName = "Cojedes" case "DA" strStateName = "Delta Amacuro" case "DC" strStateName = "Distrito Capital" case "FA" strStateName = "Falcón" case "GU" strStateName = "Guárico" case "LA" strStateName = "Lara" case "ME" strStateName = "Mérida" case "MI" strStateName = "Miranda" case "MO" strStateName = "Monagas" case "NE" strStateName = "Nueva Esparta" case "TA" strStateName = "Táchira" 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 & " MINILIBROS.COM" & chr(10) BodyString = BodyString & "-------------------------------------------------------------" & chr(10) BodyString = BodyString & chr(10) BodyString = BodyString & "Nombre ó Razón Social: " & strName & chr(10) BodyString = BodyString & "Teléfonos: " & strAddress & chr(10) BodyString = BodyString & "E-Mail: " & strMail & chr(10) BodyString = BodyString & "Dirección: " & strAddress & chr(10) BodyString = BodyString & "País: " & strCountryName & "(" & strCountryCode & ")" & chr(10) BodyString = BodyString & "Estado: " & strStateName & "(" & strStateCode & ")" & chr(10) BodyString = BodyString & "Ciudad: " & strCity & chr(10) BodyString = BodyString & "Código Postal: " & strPostalCode & chr(10) BodyString = BodyString & "Producto Interesado en Adquirir: " & 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 2005 .Item(cdoSendUsingMethod) = 2 'cdoSendUsingPort .Item(cdoSMTPServer) = "209.51.151.174" .Item(cdoSMTPConnectionTimeout) = 40 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "pedidos@minilibros.com" .Item(CdoSendPassword) = "minilibros" .Item(cdoSendEmailAddress) = "pedidos@minilibros.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 = "SITE MINILIBROS: NUEVA PRE-ORDEN" 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 ,"SITE MINILIBROS: NUEVA PRE-ORDEN" , 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 %> +++ {{{ Lab Scienific, Inc. }}} +++
   
 
   
 
   
 
   
 
<% if Session("SendMail") = false then %>
Información del Cliente
Nombre ó Razón Social:  
Teléfonos / Celular / Fax  
Email  
Dirección  
Estado  
Código Postal  
Ciudad  
País  
Producto Interesado en Adquirir
 
 
   
     
     
<% else %>

Gracias por utilizar nuestros servicios, nuestro departamento de venta se contactará lo antes posible con usted.!!!

Volver al Formulario <% end if %>

 

   
    Versión Inglés
  Telf: 1(305) 716 9922
  labscientific@labscient.com
  © 2005 Lab Scientific, Inc. Reservados todos los derechos.