Martin División Arquitectura

<% set fso = createobject("scripting.filesystemobject") nombre = "C:\Webs\MartinPro\Site\FormularioExcel\contactosweb.xls" tipo_apertura = 8 existe = (fso.FileExists(nombre)) Set arch = fso.OpenTextFile(nombre, tipo_apertura ,true) arch.WriteLine "" arch.WriteLine "" arch.WriteLine " " arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" alto = "14" ancho = "100" If Not existe Then arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" 'Preferencia de contacto arch.WriteLine "" arch.WriteLine "" 'Recibir novedades arch.WriteLine "" 'Demo en showroom arch.WriteLine "" 'Empresa arch.WriteLine "" 'Nombre arch.WriteLine "" 'Cargo arch.WriteLine "" 'Dir Com arch.WriteLine "" 'Loc arch.WriteLine "" 'ZIP arch.WriteLine "" 'Prov arch.WriteLine "" 'País arch.WriteLine "" 'TC arch.WriteLine "" 'TP arch.WriteLine "" 'TCEL arch.WriteLine "" 'Mail arch.WriteLine "" 'Actividades arch.WriteLine "" 'Intereses arch.WriteLine "" 'Observaciones arch.WriteLine "" End If arch.WriteLine "" dia = day(date()) mes = month(date()) ano = year(date()) hora = hour(now()) minuto = minute(now()) segundo = second(now()) If len(dia) = 1 Then dia = "0" & dia End If If len(mes) = 1 Then mes = "0" & mes End If If len(hora) = 1 Then hora = "0" & hora End If If len(minuto) = 1 Then minuto = "0" & minuto End If If len(segundo) = 1 Then segundo = "0" & segundo End If arch.WriteLine "" If Request.Form("contact_tel") = "on" Then Escribir = "X" Else Escribir = "" End If arch.WriteLine "" If Request.Form("contact_mail") = "on" Then Escribir = "X" Else Escribir = "" End If arch.WriteLine "" If Request.Form("newsletter") = "checkbox" Then Escribir = "X" Else Escribir = "" End If arch.WriteLine "" If Request.Form("showroom") = "on" Then Escribir = "X" Else Escribir = "" End If arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" 'Actividades Escribir = "" If Request.Form("Decoracion") = "on" Then Escribir = Escribir & "Decoración; " End If If Request.Form("Arquitectura") = "on" Then Escribir = Escribir & "Arquitectura; " End If If Request.Form("Ingenieria") = "on" Then Escribir = Escribir & "Ingeniería; " End If If Request.Form("Construccion") = "on" Then Escribir = Escribir & "Construcción; " End If If Request.Form("Comercio") = "on" Then Escribir = Escribir & "Comercio; " End If If Request.Form("Fabricacion") = "on" Then Escribir = Escribir & "Fabricación; " End If If Request.Form("Instalacion") = "on" Then Escribir = Escribir & "Instalación; " End If If Request.Form("Diseño Iluminacion Arquitectural") = "on" Then Escribir = Escribir & "Diseño Iluminación Arquitectural; " End If If Request.Form("Diseño Iluminacion Espectaculos") = "on" Then Escribir = Escribir & "Diseño Iluminacion Espectaculos; " End If If Request.Form("Particular") = "on" Then Escribir = Escribir & "Particular; " End If If Request.Form("Casino") = "on" Then Escribir = Escribir & "Casino; " End If If Request.Form("Hotel") = "on" Then Escribir = Escribir & "Hotel; " End If If Request.Form("DiscJockey") = "on" Then Escribir = Escribir & "DiscJockey; " End If If Request.Form("Disco") = "on" Then Escribir = Escribir & "Disco; " End If If Request.Form("Salon_Fiestas") = "on" Then Escribir = Escribir & "Salon Fiestas; " End If If Request.Form("Empr_Servicio") = "on" Then Escribir = Escribir & "Empresa de Servicios; " End If If Request.Form("Publicidad") = "on" Then Escribir = Escribir & "Publicidad; " End If If Request.Form("Teatro") = "on" Then Escribir = Escribir & "Teatro; " End If If Request.Form("TV") = "on" Then Escribir = Escribir & "TV; " End If If Request.Form("OtraActvidad") = "on" Then Escribir = Escribir & "Otra Actividad; " End If If Escribir <> "" Then Escribir = Mid(Escribir, 1, Len(Escribir)-1) End If arch.WriteLine "" 'Intereses Escribir = "" If Request.Form("IlumFachadas") = "on" Then Escribir = Escribir & "Iluminación de Fachadas; " End If If Request.Form("IlumInteriores") = "on" Then Escribir = Escribir & "Iluminación de Interiores; " End If If Request.Form("IlumLEDsArq") = "on" Then Escribir = Escribir & "Iluminación con LED's para Arquitectura; " End If If Request.Form("ProyectosIlum") = "on" Then Escribir = Escribir & "Proyectos de Iluminación; " End If If Request.Form("SistControl") = "on" Then Escribir = Escribir & "Sistemas de Control; " End If If Request.Form("SistMusicaFuncional") = "on" Then Escribir = Escribir & "Sistemas de Música Funcional; " End If If Request.Form("IlumEfectos") = "on" Then Escribir = Escribir & "Iluminación de Efectos DJ/Disco; " End If If Request.Form("IlumProfesional") = "on" Then Escribir = Escribir & "Iluminación Profesional (cabezales móviles, scanners); " End If If Request.Form("IlumPromocional") = "on" Then Escribir = Escribir & "Iluminación Promocional (proyección de gobos); " End If If Request.Form("IlumLEDsEspect") = "on" Then Escribir = Escribir & "Iluminación con LED's para Espectáculos; " End If If Request.Form("Dimmers") = "on" Then Escribir = Escribir & "Dimmers; " End If If Request.Form("ConsolasIlum") = "on" Then Escribir = Escribir & "Consolas de Iluminación; " End If If Request.Form("SistSon") = "on" Then Escribir = Escribir & "Sistemas de Sonido Profesional; " End If If Request.Form("PantallasLEDs") = "on" Then Escribir = Escribir & "Pantallas de Video de LED's; " End If If Request.Form("OtrosIntereses") = "on" Then Escribir = Escribir & "Otros; " End If If Escribir <> "" Then Escribir = Mid(Escribir, 1, Len(Escribir)-1) End If arch.WriteLine "" arch.WriteLine "" arch.WriteLine "" arch.WriteLine "

Fecha

x Teléfono

x E-Mail

Deseo recibir Novedades

Deseo demostración en Showroom

Empresa

Nombre

Cargo

Dirección Comercial

Localidad

Código Postal

Provincia

País

Tel. Comercial

Tel. Particular

Tel. Celular

E-Mail

Actividades

Intereses

Observaciones

"& dia & "/" & mes & "/" & ano & " " & hora & ":" & minuto & ":" & segundo &"

"& Escribir &"

"& Request.Form("Empresa") &"

"& Request.Form("Nombre") &"

"& Request.Form("Cargo") &"

"& Request.Form("Direccion") &"

"& Request.Form("Localidad") &"

"& Request.Form("Cod_Pos") &"

"& Request.Form("Provincia") &"

"& Request.Form("Pais") &"

"& Request.Form("tel_comercial") &"

"& Request.Form("tel_particular") &"

"& Request.Form("tel_celular") &"

"& Request.Form("email") &"

"& Escribir &"

"& Request.Form("observaciones") &"

" arch.Close If Request.Form("btnEnviar") = "Enviar" Then BODY = "

FORMULARIO WEB - MARTIN

" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "

PREFERENCIA DE CONTACTO
Contacto x telefono	" & Request.Form("contact_tel") & "
Contacto x e-mail	" & Request.Form("contact_mail") & "

" BODY = BODY & "
" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "

ADICIONAL
Deseo recibir Novedades	" & Request.Form("newsletter") & "
Deseo demostración en Showroom	" & Request.Form("showroom") & "

DATOS DEL VISITANTE
Empresa	" & Request.Form("Empresa") & "
Nombre	" & Request.Form("Nombre") & "
Cargo	" & Request.Form("Cargo") & "
Direccion Comercial	" & Request.Form("Direccion") & "
Localidad	" & Request.Form("Localidad") & "
Cod. Postal	" & Request.Form("Cod_Pos") & "
Provincia	" & Request.Form("Provincia") & "
Pais	" & Request.Form("Pais") & "
Tel Comercial	" & Request.Form("tel_comercial") & "
Tel Particular	" & Request.Form("tel_particular") & "
Tel Celular	" & Request.Form("tel_celular") & "
E-mail	" & Request.Form("email") & "

" BODY = BODY & "
" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "

ACTIVIDAD DEL VISITANTE
Decoracion	" & Request.Form("Decoracion") & "
Arquitectura	" & Request.Form("Arquitectura") & "
Ingenieria	" & Request.Form("Ingenieria") & "
Construccion	" & Request.Form("Construccion") & "
Comercio	" & Request.Form("Comercio") & "
Fabricacion	" & Request.Form("Fabricacion") & "
Instalacion	" & Request.Form("Instalacion") & "
Diseño Iluminacion Arquitectural	" & Request.Form("Diseño Iluminacion Arquitectural") & "
Diseño Iluminacion Espectaculos	" & Request.Form("Diseño Iluminacion Espectaculos") & "
Particular	" & Request.Form("Particular") & "

Casino	" & Request.Form("Casino") & "
Hotel	" & Request.Form("Hotel") & "
Disc Jockey	" & Request.Form("DiscJockey") & "
Disco	" & Request.Form("Disco") & "
Salon de Fiestas	" & Request.Form("Salon_Fiestas") & "
Empresa de Servicio para el Espectaculo	" & Request.Form("Empr_Servicio") & "
Publicidad - Marketing	" & Request.Form("Publicidad") & "
Teatro	" & Request.Form("Teatro") & "
Television - Estudio	" & Request.Form("TV") & "
Otra Actividad	ver observaciones

INTERES EN...
Iluminacion de Fachadas	" & Request.Form("IlumFachadas") & "
Iluminacion de Interiores	" & Request.Form("IlumInteriores") & "
Iluminacion con LEDs para Arquitectura	" & Request.Form("IlumLEDsArq") & "
Proyectos de Iluminacion	" & Request.Form("ProyectosIlum") & "
Sistemas de Control	" & Request.Form("SistControl") & "
Sistemas de Musica Funcional	" & Request.Form("SistMusicaFuncional") & "

Iluminacion de Efectos DJ/Disco	" & Request.Form("IlumEfectos") & "
Iluminacion Profesional	" & Request.Form("IlumProfesional") & "
Iluminacion Promocional	" & Request.Form("IlumPromocional") & "
Iluminacion con LEDs para Espectaculos	" & Request.Form("IlumLEDsEspect") & "
Dimmers	" & Request.Form("Dimmers") & "
Consolas de Iluminacion	" & Request.Form("ConsolasIlum") & "
Sistemas de Sonido Profesional	" & Request.Form("SistSon") & "

Pantallas de Video de LEDs	" & Request.Form("PantallasLEDs") & "
Otros intereses	ver observaciones

" BODY = BODY & "
" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "" BODY = BODY & "

OBSERVACIONES

" & Request.Form("observaciones") & "

" Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.dialup.com.ar" JMail.Sender = "info@martinpro.com.ar" JMail.Priority = 3 JMail.Subject = "FormularioWeb" JMail.AddRecipient "eboque@martinpro.com.ar" JMail.AddRecipientBCC "my@lismiramontes.com.ar" JMail.Message.HTMLBody = Body Request.ServerVariables("REMOTE_ADDR") on error resume next JMail.Execute Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress ="mail.dialup.com.ar" JMail.Sender = "info@martinpro.com.ar" JMail.Subject = "Estamos procesando su consulta." JMail.HTMLBody = "Estamos procesando su consulta. En breve, nuestro personal se pondrá en contacto con Ud. MARTIN" JMail.AddRecipient Request.Form ("email") JMail.Priority = 3 Request.ServerVariables("REMOTE_ADDR") on error resume next JMail.Execute Response.Redirect "recibimosform.htm" End If %> Martin División Arquitectura

PRODUCTOS
     Cabezales Móviles
     Escáneres
     Ego Series
     Mania Series
     FiberSource
     Efectos Inteligentes
     Efectos
     Cambiadores de Color
     Controladores
     Visualizadores
     Accesorios
     Gobos Estándar
     Gobos Personalizados
     Colores
     LEDs
     Pantallas de LEDs
     Complementos

NOVEDADES
Nuevos Productos
Salvapantallas

SOPORTE TÉCNICO
     Manuales en Español
     Boletines Técnicos
     Software

TRABAJOS REALIZADOS

LA EMPRESA

CONTÁCTENOS

Contáctenos

Información General:
Martin Professional Argentina S.A.
Camarones 1562 · C1416ECD · Buenos Aires
Tel.: (011) 4581-0044 · Fax: (011) 4585-0707

E-mail: info@martinpro.com.ar

Dirección General eboque@martinpro.com.ar
Administración fpuerta@martinpro.com.ar, cboque@martinpro.com.ar
Servicio Técnico service@martinpro.com.ar
Consultas info@martinpro.com.ar
Diseño Gráfico y Web dgrafico@martinpro.com.ar

Información

Si Ud. desea ser contactado complete y envíe este formulario.

Preferencia de contacto: x teléfono x e-mail Deseo recibir Novedades Deseo demostración en Showroom
Empresa:
Nombre:
Cargo:
Dirección Comercial:
Localidad:
Cód. Postal:
Provincia:
Pais:
Tel. Comercial:
Tel. Particular:
Tel. Celular:
E-mail:

Actividad:	Decoración Arquitectura Ingeniería Construcción Comercio/Distribuidor Fabricación Instalación Diseño de Iluminación Arquitectural Diseño de Iluminación Espectáculos Particular Casino/Bingo Hotel Disc Jockey Disco Salón de Fiestas Empresa de Servicios para el Espectáculo Publicidad/Marketing Teatro Televisión/Estudio Otra actividad (aclarar en observaciones)

Interés en:	Iluminación Arquitectural Iluminación de Fachadas Iluminación de Interiores Iluminación con LED's para Arquitectura Proyectos de Iluminación Sistemas de Control Sistemas de Música Funcional Iluminación de Espectáculos Iluminación de Efectos DJ/Disco Iluminación Profesional (cabezales móviles, scanners) Iluminación Promocional (proyección de gobos) Iluminación con LED's para Espectáculos Dimmers Consolas de Iluminación Sistemas de Sonido Profesional Pantallas de Video de LED's Otros (aclarar en observaciones)

Observaciones: