%@ Language = "VBScript" %> <% Response.Buffer = True '---------------------------------------------------------------------------------------------------------- Const EmailAEnviar = "info@lacasonalunch.com.ar" '---------------------------------------------------------------------------------------------------------- Dim MsgError MsgError = Request.QueryString("msgerror") %>
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.
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 %>
|