<%@ Language = "VBScript" %> <% Response.Buffer = True '---------------------------------------------------------------------------------------------------------- Const EmailAEnviar = "info@lacasonalunch.com.ar" '---------------------------------------------------------------------------------------------------------- Dim MsgError MsgError = Request.QueryString("msgerror") %> La Vieja Casona
Coporate Profiles

La Vieja Casona le da la bienvenida a nuestro sitio institucional, en el cual encontrará la informacion necesaria para saber y comprobar que nuestros servicios son los mejores de la provincia de La Rioja.


<% If Len(Request.QueryString("acc")) = 0 Then %> Através de este formulario, usted puede hacernos llegar consultas y opiniones de nuestros productos y de nuestro sitio web. Muchas gracias por comunicarse con nosotros.

<% If Len(MsgError) > 1 Then %> <% Else %> <% End If %>

<%= MsgError %>
 











 
 
<% Else Dim oMail Dim sNombre, sEmail, sAsunto, sMensaje, bCorrecto sNombre = Trim(Request.Form("nombre")) sEmail = Trim(Request.Form("email")) sAsunto = Trim(Request.Form("asunto")) sMensaje = Request.Form("mensaje") bCorrecto = True If Len(sNombre) < 1 Then bCorrecto = False End If If Len(sEmail) < 1 Then bCorrecto = False Else If Not EsValidoEmail(sEmail) Then bCorrecto = False End If End If If Len(sAsunto) < 1 Then bCorrecto = False End If If Len(sMensaje) < 1 Then bCorrecto = False End If If Not bCorrecto Then MsgError = "Los datos ingresados no son correctos, por favor intente nuevamente.
Gracias!" Response.Redirect("contacto.asp?msgerror=" & Server.URLEncode(MsgError)) Else Asunto = "[La Casona Lunch] " & sAsunto Mensaje = "Email generado por la pagina web de contacto de www.lacasonalunch.com.ar" & vbCrLf Mensaje = Mensaje & " Nombre del remitente: " & sNombre & vbCrLf Mensaje = Mensaje & "------------------------------------------------------------------------" & vbCrLf & vbCrLf Mensaje = Mensaje & sMensaje Mensaje = Mensaje & vbCrLf & vbCrLf & "------------------------------------------------------------------------" & vbCrLf Mensaje = Mensaje & "Ante cualquier deteccion de anomalía en el sistema no dude en contactarse a info@luisvilte.com.ar" Set oMail = Server.CreateObject("CDONTS.NewMail") oMail.From = sEmail oMail.To = EmailAEnviar oMail.Subject = Asunto oMail.Body = Mensaje oMail.Send Set oMail = Nothing End If %>
 
Gracias por contactarse con nosotros.
Pronto le responderemos
 
<% End If %>
<% Function EsValidoEmail(Mail) Dim bValido bValido = True If Len(Mail) < 5 Then bValido = False Else If InStr(1, Mail, "@") = 0 Then bValido = False Else If InStr(1, Mail, ".") = 0 Then bValido = False Else If InStr(InStr(1, Mail, "@"), Mail, ".") < InStr(1, Mail, "@") Then bValido = False End If End If End If End If EsValidoEmail = bValido End Function %>