<% dim nom,dir,comen,flag if request("Enviar")<>"" then nom=request.form("txtnom") dir=request.form("txtdir") comen=request.form("txtcomen") 'response.write("Arrocera Chispa C.A.") 'nom="Oscar" 'dir="garciamod@hotmail.com" 'comen="Bueno" 'response.write(nom) 'response.write(dir) 'response.write(comen) 'session("nom")=nom 'session("dir")=dir 'session("comen")=comen 'flag=false if nom <>"" and dir <>"" and comen <>"" then sCuerpo = "Nombre y Apellido: " & nom &VbCrlf sCuerpo = sCuerpo & "Dirección de Correo: " & dir &VbCrLf sCuerpo = sCuerpo & "Comentarios: " & comen &VbCrLf sCuerpo = sCuerpo & "**********************************************" &VbCrLf strHost = "mail.arrocerachispa.com" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "contacto@arrocerachispa.com" ' From address Mail.Username= "contacto@arrocerachispa.com" Mail.Password= "italy5" Mail.FromName = "Arrocera Chispa C.A." ' optional Mail.AddAddress "contacto@arrocerachispa.com" ' message subject > Asunto del mensaje Mail.Subject = "Comentarios" 'Request("Subject") ' message body > Cuerpo del mensaje Mail.Body = sCuerpo'"Arrocera Chispa C.A." Request("Body") strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True Set Mailer = Server.CreateObject("Persits.MailSender") budy="Gracias "&nom1&" por habernos contactado, con gusto tomaremos en cuenta tu opinión " &VbCrlf ' budy= budy & " " &VbCrlf ' budy= budy & " " &VbCrlf Mailer.Host = strHost Mailer.From = "contacto@arrocerachispa.com" ' From address Mailer.Username= "contacto@arrocerachispa.com" Mailer.Password= "italy5" Mailer.FromName = "Arrocera Chispa C.A." ' optional Mailer.AddAddress dir Mailer.Subject = "Comentarios" 'Request("Subject") Mailer.Body = budy '"Arrocera Chispa C.A." 'Request("Body") Mailer.Send ' send message End If End If End If nom="" dir="" comen="" %> Arrocera Chispa C.A.

                         

 Familia de  productos

   Arroz Gran Marques     

   Arroz Don Julian            

    Arroz El Andinito              

   Otros productos             

 Cocina

    Recetas                             

 Información

    Comentarios                     

    Noticias                            

 Recursos

    ¿Quienes somos?

    Contacte con nosotros

   Cuentas de usuario

 

Envíanos tus comentarios


<%if bSuccess then%> Mensaje ENVIADO con éxito.

<%end if%> <%if Err<>0 then%>

Mensaje NO ENVIADO intente de nuevo.

<%end if%>

Nombres y Apellidos:

Dirección de Correo: 

Tu explorador no soporta este tipo de formato

   Empresas filiales

   Agroquímicos Chispa C.A

   Servilaser C.A.

    Servilaser Nivelación C.A.

   Acuacultura Marianela C.A

  Usuario:

  Clave:

 

<<  Inicia tu sesión  >>