<% Dim Modo Modo=Ucase(Request.Querystring ("Mod")) Select Case Modo Case "P1" Call Paso1() Case "P2" Call Paso2() Case Else Call Paso1() End Select Sub Paso1 %>
 
 
 
  Formulario de Inscripción  
 
  Datos Personales  

 
Nombre *
Apellidos *
NIF/NIE *
Teléfono/Móvil * /
Email *
Nivel de Inglés *
Asociación a la que pertenece
 
 
  Datos de Empresa  

 
Razón Social *
Dirección *
Teléfono/Fax * /
Web
Email
Sector Empresarial *
 
(*) debe rellenar todos los campos.
 
  Talleres del Open Door  

 
Selecciona los talleres en los que estás interesado/a en asistir:
 
Taller 1. Iniciación a la exportación.
Taller 2. Marketing e imagen del producto.
Taller 3. Métodos de negociación internacional y diferencias culturales.
Taller 4. Tipos de pagos y riesgos financieros.
Taller 5. Logística y condiciones aduaneras. 
 
 

   

     
  Protección de Datos y Confidencialidad  

  De conformidad con lo dispuesto en el artículo 5 de la Ley Orgánica 15/1999, de 13 de diciembre, de Protección de Datos de Carácter Personal (LOPD) se le informa que los datos de carácter personal facilitados a través del presente formulario serán incluidos en un fichero titularidad de BPW-Spain con la finalidad de gestionar su inscripción en el evento seleccionado. Las personas interesadas podrán ejercitar los derechos de acceso, rectificación, cancelación y oposición en los términos previstos en la precitada Ley, mediante email dirigido al responsable del fichero: info@bpw-spain.org

 
<% End Sub Sub Paso2 NMB=request.form("nombre") NMB=replace(NMB, "á", "á") NMB=replace(NMB, "é", "é") NMB=replace(NMB, "í", "í") NMB=replace(NMB, "ó", "ó") NMB=replace(NMB, "ú", "ú") NMB=replace(NMB, "Á", "Á") NMB=replace(NMB, "É", "É") NMB=replace(NMB, "Í", "Í") NMB=replace(NMB, "Ó", "Ó") NMB=replace(NMB, "Ú", "Ú") NMB=replace(NMB, "Ñ", "Ñ") NMB=replace(NMB, "ñ", "ñ") NMB=replace(NMB, "º", "º") NMB=replace(NMB, "ª", "ª") APL=request.form("apellidos") APL=replace(APL, "á", "á") APL=replace(APL, "é", "é") APL=replace(APL, "í", "í") APL=replace(APL, "ó", "ó") APL=replace(APL, "ú", "ú") APL=replace(APL, "Á", "Á") APL=replace(APL, "É", "É") APL=replace(APL, "Í", "Í") APL=replace(APL, "Ó", "Ó") APL=replace(APL, "Ú", "Ú") APL=replace(APL, "Ñ", "Ñ") APL=replace(APL, "ñ", "ñ") APL=replace(APL, "º", "º") APL=replace(APL, "ª", "ª") NIF=request.form("nif") TF1=request.form("tf1") MVL=request.form("mvl") EML1=request.form("email1") INGL=request.form("ingles") ASOC=request.form("asociacion") EMP=request.form("empresa") EMP=replace(EMP, "á", "á") EMP=replace(EMP, "é", "é") EMP=replace(EMP, "í", "í") EMP=replace(EMP, "ó", "ó") EMP=replace(EMP, "ú", "ú") EMP=replace(EMP, "Á", "Á") EMP=replace(EMP, "É", "É") EMP=replace(EMP, "Í", "Í") EMP=replace(EMP, "Ó", "Ó") EMP=replace(EMP, "Ú", "Ú") EMP=replace(EMP, "Ñ", "Ñ") EMP=replace(EMP, "ñ", "ñ") EMP=replace(EMP, "º", "º") EMP=replace(EMP, "ª", "ª") drc=request.form("direccion") drc=replace(drc, "á", "á") drc=replace(drc, "é", "é") drc=replace(drc, "í", "í") drc=replace(drc, "ó", "ó") drc=replace(drc, "ú", "ú") drc=replace(drc, "Á", "Á") drc=replace(drc, "É", "É") drc=replace(drc, "Í", "Í") drc=replace(drc, "Ó", "Ó") drc=replace(drc, "Ú", "Ú") drc=replace(drc, "Ñ", "Ñ") drc=replace(drc, "ñ", "ñ") drc=replace(drc, "º", "º") drc=replace(drc, "ª", "ª") WEB=request.form("web") TF2=request.form("tf2") FAX=request.form("fax") EML2=request.form("email2") SCT=request.form("sector") Fecha = Date() &" - "& Time() TLL1=request.form("Taller1") if TLL1 = "" then T1 = "" else T1= "Taller 1. Iniciación a la exportación.
" end if TLL2=request.form("Taller2") if TLL2 = "" then T2 = "" else T2= "Taller 2. Marketing e imagen del producto.
" end if TLL3=request.form("Taller3") if TLL3 = "" then T3 = "" else T3= "Taller 3. Métodos de negociación internacional y diferencias culturales.
" end if TLL4=request.form("Taller4") if TLL4 = "" then T4 = "" else T4= "Taller 4. Tipos de pagos y riesgos financieros.
" end if TLL5=request.form("Taller5") if TLL5 = "" then T5 = "" else T5= "Taller 5. Logística y condiciones aduaneras.
" end if TLLS = T1 & T2 & T3 & T4 & T5 if NMB="" then %> <%else if APL="" then %> <%else if NIF="" then %> <%else if TF1="" and MVL="" then %> <%else if EML1="" then %> <%else if INGL="" then %> <%else if EMP="" then %> <%else if drc="" then %> <%else if TF2="" then %> <%else if SCT="" then %> <%else Set cn = Server.CreateObject("ADODB.Connection") cn.Open "DSN=bpw-spain.org.opendoor" Set rs = cn.execute ("SELECT * FROM inscritos") cad="Insert into inscritos (Nombre, Apellidos, NIF, Telefono, Movil, Email, Ingles, Asociacion, Empresa, DireccionE, TelefonoE, FaxE, WebE, EmailE, SectorE, Talleres, Fecha) values ('"+NMB+"', '"+APL+"', '"+NIF+"', '"+TF1+"', '"+MVL+"', '"+EML1+"', '"+INGL+"', '"+ASOC+"', '"+EMP+"', '"+drc+"', '"+TF2+"', '"+FAX+"', '"+WEB+"', '"+EML2+"', '"+SCT+"', '"+TLLS+"', '"+Fecha+"')" set rs=cn.execute(cad) strM1= "
 Datos del Personales 
 
Nombre"& NMB &"
Apellidos"& APL &"
NIF/NIE"& NIF &"
Teléfono / Móvil"& TF1 &" / "& MVL &"
Email"& EML1 &"
Nivel Inglés"& INGL &"
Asociación"& ASOC &"
 
 Datos de Empresa 
 
Razón Social"& EMP &"
Dirección"& drc &"
Teléfono / Fax"& TF2 &" / "& FAX &"
Web"& WEB &"
Email"& EML2 &"
Sector Empresarial"& SCT &"
 
 Talleres de Open Door 
 
Talleres en los que el usuario/a está interesado/a en asistir:
"& TLLS &"
 
   
" 'mail = EML mail1 = "proyectos@bpwspain.org" Set Pmail = Server.CreateObject("Persits.MailSender") Pmail.Host = "smtp.bpw-spain.org" Pmail.From = "opendoor@bpw-spain.org" Pmail.FromName = "Open Door" Pmail.AddCC mail1 Pmail.Subject = "Inscripcion a Open Door" Pmail.Body = "
 


" & strM1 & "" Pmail.IsHTML = True Pmail.Username = "opendoor@bpw-spain.org" Pmail.Password = "Opendoor0415" Pmail.Send %>
 
 
     
     
 
Tus datos han sido enviados correctamente.

En breve, nos pondremos en contacto contigo.
 
     
     
<% End if End if End if End if End if End if End if End if End if End if End Sub %>