<% IF Request.Form("accion") = "" THEN Accion = "MostrarForm" ELSE Accion = Request.Form("Accion") END IF Pagina = "Contáctenos" Ruta = " > " & Pagina %> <%=TXT_NOMBREEMPRESA%> - <%=TXT_DESCRIPCIONEMPRESA%> - <%=Pagina%>

<% SELECT CASE Accion CASE "MostrarForm" SELECT CASE Request.Querystring("of") CASE "bari" strDirigidoA = "Suc. Bariloche" CASE "bsas" strDirigidoA = "Suc. Buenos Aires" CASE "groca" strDirigidoA = "Suc. General Roca" CASE "cipo" strDirigidoA = "Suc. Cipolletti" CASE "neu" strDirigidoA = "Suc. Neuquén" CASE "pmadr" strDirigidoA = "Suc. Puerto Madryn" CASE "esq" strDirigidoA = "Suc. Esquel" CASE "trel" strDirigidoA = "Suc. Trelew" CASE "criva" strDirigidoA = "Suc. Comodoro Rivadavia" CASE "pdese" strDirigidoA = "Suc. Puerto Deseado" CASE "elcala" strDirigidoA = "Suc. El Calafate" CASE "rgall" strDirigidoA = "Suc. Río Gallegos" CASE "rgran" strDirigidoA = "Suc. Río Grande" CASE "ushu" strDirigidoA = "Suc. Ushuaia" CASE ELSE strDirigidoA = "Casa Central" END SELECT %>
Utilice este formulario para realizar un Contacto, una Consulta o una Sugerencia a Correo Sur S.R.L.


<%IF Session("IdUsuario") = "" THEN%> <%END IF%>
Dirigido a: <%=strDirigidoA%>
*Nombre: ">
*Apellido: ">
*Email ">
*Confirma Email ">
Teléfono:
Empresa:
Ciudad:
Provincia/Estado:
País:
*Consulta:
">

<%CASE "Guardar" AsuntoMail = "Consulta para la " & Request.Form("DirigidoA") DesdeMail = Request.Form("Email") DesdeMailNombre = Request.Form("Nombre") & " " & Request.Form("Apellido") 'ParaMail = TXT_MAILWEBMASTER ParaMail = TXT_MAILPRINCIPAL '---------------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 & "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%> <% DesdeMail = TXT_MAILWEBMASTER DesdeMailNombre = TXT_NMAILWEBMASTER ParaMail = Request.Form("Email") AsuntoMail = Request.Form("Nombre") & ", hemos recibido su consulta" '---------------CUERPO DEL MAIL CuerpoMail = "Estimad@ " & 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 & "" & TXT_NOMBREEMPRESA & "
" & TXT_DESCRIPCIONEMPRESA & ""&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.

 

<%=TXT_URLEMPRESA%>

<%END SELECT%>