mFec = date() mHou = time() mAsunto = "Acobir" mNombre = request.form("fName") mApellido = request.form("lName") mEmail = request.form("email") mDireccion = request.form("address") mCiudad = request.form("city") mPais = request.form("country") mEstado = request.form("state") mCP = request.form("zip") mReferido = request.form("referedby") mComments = request.form("comments") '//Sent email Dim JMail 'Código para enviar email usando JMail set JMail = Server.CreateOBject( "JMail.Message" ) Sender = mEmail Subject = mAsunto ' This is my client... JMail.From = Sender JMail.FromName = mfName JMail.Subject = Subject ' Get the recipients mailbox from a form. 'JMail.AddRecipient "elsa@tokenstudio.com" JMail.AddRecipient "info@acobir.com" 'JMail.AddRecipientCC "info@tokenstudio.com" 'JMail.cc = mCC JMail.Body = "Nombre : " & mNombre & vbcrlf & vbcrlf JMail.Body = "Apellido : " & mApellido & vbcrlf & vbcrlf JMail.Body = JMail.Body & "E-mail:" & mEmail & vbcrlf & vbcrlf JMail.Body = JMail.Body & "Compañía:" & mCompany & vbcrlf & vbcrlf JMail.Body = JMail.Body & "Mensaje:" & mComments & vbcrlf & vbcrlf JMail.Body = JMail.Body & "Fecha / Hora: " & mFec & " " & mHou & vbcrlf & vbcrlf JMail.Send( "168.144.57.172" ) 'Must be mail.acobir.com after the DNS change Set JMail = Nothing %>
 
    
   
 
Oficinas
Ave. Morgan. Casa 301 A. Balboa, Ancón  

 Teléfonos:
(507)-228-7847
(507)-228-7840
Fax:
(507) 228-7807

Apartado 87-3580,
Zona 7, Panamá  

E-mail:
info@acobir.com







Su mensaje ha sido enviado exitosamente.
Gracias por escribirnos.
     
Dirección: Ave. Morgan. Casa 301 A. Balboa, Ancón  |  Teléfonos: (507)-228-7847   | 7840 Fax: (507) 228-7807
Apartado 87-3580, Zona 7, Panamá  |  Correo Electrónico:info@acobir.com