Home<%=Ruta%>

<% SELECT CASE Accion CASE "MostrarForm" IF Request.Querystring("asunto") <> "" THEN strConsulta = "Deseo adquirir el producto: " & Request.Querystring("asunto") strEncabezado = strConsulta ELSE strEncabezado = "Consultas, Contactos, Sugerencias o Mensajes" strConsulta = "" END IF%>

*Nombre:	">
*Apellido:	">
*Email	">
*Confirma Email	">
Teléfono:
Empresa:
*Como nos conoció:	Elija una opción Publicidad Link desde otro sitio Banner Boca a Boca
Ciudad:
Provincia/Estado:
País:	Elija su País AfganistánAlbaniaAlemaniaAndorraAngolaAnguillaAntártidaAntiguay BarbudaAntillas holandesasArabia SaudíArgelia ArgentinaArmeniaArubaAustraliaAustriaAzerbaiyánBahamasBahreinBangladeshBarbadosBélgicaBeliceBeninBermudasBhutánBielorrusiaBirmaniaBoliviaBosniay HerzegovinaBotswanaBrasilBruneiBulgariaBurkina FasoBurundiCabo VerdeCamboyaCamerúnCanadáChadChileChinaChipreColombiaComoresCongoCoreaCorea del NorteCosta del MarfílCosta RicaCroacia (Hrvatska)CubaDinamarcaDjibouriDominicaEcuadorEgiptoEl SalvadorEmiratos Árabes UnidosEritreaEslovaquiaEsloveniaEspañaEstados UnidosEstoniaEtiopíaEx-Rep. Yug. de MacedoniaFilipinasFinlandiaFranciaGabónGambiaGeorgiaGeor. del S. y las Is. Sand. del S.GhanaGibraltarGranadaGreciaGroenlandiaGuadalupeGuamGuatemalaGuayanaGuayana francesaGuineaGuinea EcuatorialGuinea-BissauHaitíHolandaHondurasHong Kong R. A. EHungríaIndiaIndonesiaIrakIránIrlandaIsla BouvetIsla de ChristmasIsla Heard e Islas McDonaldIslandiaIslas CaimánIslas CookIslas de Cocos o KeelingIslas FaroeIslas FiyiIslas Malvinas (Islas Falkland)Islas Marianas del norteIslas MarshallIslas menores de Estados UnidosIslas PalauIslas SalomónIslas TokelauIslas Turks y CaicosIslas Vírgenes (Reino Unido)IsraelItaliaJamaicaJapónJordaniaKazajistánKeniaKirguizistánKiribatiKuwaitLaosLesothoLetoniaLíbanoLiberiaLibiaLiechtensteinLituaniaLuxemburgoMacao R. A. EMadagascarMalasiaMalawiMaldivasMalíMaltaMarruecosMartinicaMauricioMauritaniaMayotteMéxicoMicronesiaMoldaviaMónacoMongoliaMontserratMozambiqueNamibiaNauruNepalNicaraguaNígerNigeriaNiueNorfolkNoruegaNueva CaledoniaNueva ZelandaOmánPanamáPapua Nueva GuineaPaquistánParaguayPerúPitcairnPolinesia francesaPoloniaPortugalPuerto RicoQatarReino UnidoRepública CentroafricanaRepública ChecaRepública de SudáfricaRep. Dem. del Congo(Zaire)República dominicanaReuniónRuandaRumaniaRusiaSamoaSamoa occidentalSan Kitts y NevisSan MarinoSan Pierre y MiquelonSan Vicente e Islas GranadinasSanta HelenaSanta LucíaSanto Tomé y PríncipeSenegalSeychellesSierra LeonaSingapurSiriaSomaliaSri LankaSuazilandiaSudánSueciaSuizaSurinamSvalbardTailandiaTaiwánTanzaniaTayikistánTerrit. brit. del océano ÍndicoTerritorios franceses del surTimor orientalTogoTongaTrinidad y TobagoTúnezTurkmenistánTurquíaTuvaluUcraniaUgandaUruguayUzbekistánVanuatuVaticano (Santa Sede)VenezuelaVietnamÍslas Vírgenes (EE.UU.)Wallis y FutunaYemenYugoslaviaZambiaZimbabwe
*Consulta:	<%=strConsulta%>

">

Rivadavia 85 - 4to Piso Of. 10 y 11
Tel: 0351 526.1127/1108
Córdoba, República Argentina

<%CASE "Guardar" IF Request.Querystring("asunto") <> "" THEN AsuntoMail = Request.Querystring("asunto") ELSE AsuntoMail = "Consulta desde Delfoscba.com.ar" END IF DesdeMail = Request.Form("Email") DesdeMailNombre = Request.Form("Nombre") & " " & Request.Form("Apellido") ParaMail = "delfos@delfoscba.com.ar" '---------------CUERPO DEL MAIL PARA EON CuerpoMail = "" & AsuntoMail & "
--------------------------------------------
"&vbcrlf CuerpoMail = CuerpoMail & "Nombre: " & Request.Form("Nombre") & "
"&vbcrlf CuerpoMail = CuerpoMail & "Apellido: " & Request.Form("Apellido") & "
"&vbcrlf CuerpoMail = CuerpoMail & "Email: " & Request.Form("Email") & "
"&vbcrlf CuerpoMail = CuerpoMail & "Teléfono: " & Request.Form("Telefono") & "
"&vbcrlf CuerpoMail = CuerpoMail & "Empresa: " & Request.Form("Empresa") & "
"&vbcrlf CuerpoMail = CuerpoMail & "Como nos conoció: " & Request.Form("ComoNosConocio") & "
"&vbcrlf CuerpoMail = CuerpoMail & "Ciudad: " & Request.Form("Ciudad") & "
"&vbcrlf CuerpoMail = CuerpoMail & "Provincia: " & Request.Form("Provincia") & "
"&vbcrlf CuerpoMail = CuerpoMail & "País: " & Request.Form("Pais") & "
"&vbcrlf CuerpoMail = CuerpoMail & "Fecha de Envío: " & DATE & "
"&vbcrlf CuerpoMail = CuerpoMail & "IP: " & Request.Form("ip") & "
"&vbcrlf CuerpoMail = CuerpoMail & "Consulta: " & Request.Form("consulta") & "
"&vbcrlf%> <% ' **************** INSERTA MAIL EN BASE DE DATOS ***************** Dim xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") url = "http://www.mknetz.com.ar/mailing/insertamail.asp?" valores = "mail=" & DesdeMail & CHR(38) & "origen=" & Request.ServerVariables("Server_Name") & CHR(38) & "ip=" & Request.ServerVariables("Remote_Addr") url = url + valores 'Response.Write url xml.Open "GET", url, false xml.setRequestHeader "Content-Type", "text/xml; charset=iso-8859-1" xml.Send Set xml = Nothing ' ***************************************************************** %> <% DesdeMail = "delfos@delfoscba.com.ar" DesdeMailNombre = "Equipo de Delfoscba.com.ar" ParaMail = Request.Form("Email") AsuntoMail = Request.Form("Nombre") & ", hemos recibido su consulta" '---------------CUERPO DEL MAIL PARA Delfos CuerpoMail = "Estimado " & Request.Form("Nombre") & ",
"&vbcrlf CuerpoMail = CuerpoMail & "Hemos recibido su mensaje y en menos de 24 horas le daremos una respuesta." & "
"&vbcrlf CuerpoMail = CuerpoMail & "Todos y cada uno de estos mensajes son respondidos.

" &vbcrlf CuerpoMail = CuerpoMail & "Quedamos a su disposición para lo que necesite" & "

"&vbcrlf CuerpoMail = CuerpoMail & "Atte., Webmaster
" &vbcrlf CuerpoMail = CuerpoMail & "Delfos - Opinión Pública e Investigación de Mercado"&vbcrlf %>

 

 

Muchas Gracias <%=Request.Form("Nombre")%>!
Un email ha sido enviado a <%=Request.Form("Email")%>, si no le llega o si verifica un error en el tipeo, envíe otro mensaje y adjunte un teléfono de contacto.
Le agradecemos su interés en consultarnos, dentro de las próximas 24 hs. responderemos a su consulta, contacto o sugerencia.

 

www.delfoscba.com.ar

<%END SELECT%>