<% Conectar Dim TITLE_HEAD, Saludo_Contacto TITLE_HEAD = "Contacto" Saludo_Contacto = "Gracias por contactarse
Pronto le responderemos
" Response.Buffer = True '---------------------------------------------------------------------------------------------------------- Const EmailAEnviar = "contacto@cortesvines.com.ar" '---------------------------------------------------------------------------------------------------------- Dim MsgError MsgError = Request.QueryString("msgerror") %>
     
   
 

 

Contacto  

Domicilio: Vélez Sársfield 667 - Centro - La Rioja Capital - Argentina - CP: 5300

E-mail: contacto@cortesvines.com.ar

 

<% If Len(Request.QueryString("acc")) = 0 Then If Len(MsgError) > 1 Then %>

Los datos ingresados no son correctos, por favor intente nuevamente.
Gracias!

<% End If %>

Para contactarse escríbanos desde su casilla predeterminada a contacto@cortesvines.com.ar, o simplemente envie el siguiente formulario.

Mensaje:

<% Else Dim oMail Dim sNombre, sEmail, sAsunto, sMensaje, bCorrecto sNombre = Trim(Request.Form("nombre")) sEmail = Trim(Request.Form("email")) 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(sMensaje) < 1 Then bCorrecto = False End If If Not bCorrecto Then Response.Redirect("contacto.asp?msgerror=error") Else Asunto = " Contacto Pagina www.cortesvines.com.ar " Mensaje = "Servicio de Email generado por la pagina www.sinergiapca.com" & vbCrLf Mensaje = Mensaje & " Nombre del remitente: " & sNombre & vbCrLf Mensaje = Mensaje & "------------------------------------------------------------------------" & vbCrLf & vbCrLf Mensaje = Mensaje & sMensaje Mensaje = Mensaje & vbCrLf & vbCrLf & "------------------------------------------------------------------------" & vbCrLf Mensaje = Mensaje & "Ante la deteccion de cualquier anomalia en el sistema no dude en contactarse a contacto@sinergiapca.com" ' Se crean los objetos necesarios para el envío del correo Set oMail = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' Se configuran los parametros necesarios para el envío iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.comunicacionlarioja.com.ar" iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Se completan los datos del usuario y la contraseña necesarios para el envio iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "contacto@sinergiapca.com" 'usuario smtp iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Sinergia3" 'password para STMP iConf.Fields.Update ' Se asignan las propiedades de configuración al objeto Set oMail.Configuration = iConf ' Destinatario del correo oMail.To = EmailAEnviar ' Remitente del correo oMail.From = sEmail ' Subject o asunto oMail.Subject = Asunto ' Cuerpo del mensaje oMail.TextBody = Mensaje On Error Resume Next oMail.Send If Err <> 0 Then Response.Write "Ha ocurrido un error: " & Err.Description Else Response.Write "


Mensaje enviado con éxito
" End If Set oMail = Nothing Set iConf = Nothing Set Flds = Nothing End If %>

<%=Saludo_Contacto%>

<% End If %>
 

Atención al Publico

Lunes a Viernes de: 07:00 a 13:00hs y de 17:00 a 21:00hs

 
 
 
 
     

 

<% Desconectar %>