Contacter

Si tu souhaites recevoir plus d’informations, tu peux nous contacter par téléphone au +34 637 937 492, email: info@barcelonastrippers.com ou en remplissant le formulaire suivant:

<% 'Host. Ejemplo: "smtp.jmwebs.net" Host="smtp.barcelonastrippers.com" 'Usuario correo. Ejemplo: "vcs382c" UsuarioCorreo = "cdg561c" 'Password correo. Ejemplo: "Roser2007" PasswordCorreo = "Miquel2007" 'Dirección correo de envío. Ejemplo: "administrador@masromeu.net" DireccionCorreo = "administrador@barcelonastrippers.com" 'Nombre del servidor que envia el correo. Ejemplo: "Actialia Comunicación" NombreDireccionCorreo = "Administrador Barcelona Strippers" 'Destinatario del correo.Ejemplo: "info@eventalia.net" DestinatarioCorreo = "info@barcelonastrippers.com" 'Asunto del correo Asunto = "Formulario de contacto" 'Mensaje de correo enviado correctamente CorreoOK = "El formulario de contacto se ha enviado correctamente. Gracias" 'Mensaje de correo fallido CorreoKO = "Se ha producido un error al enviar el correo. Error: " %> <% if request.form("Enviado")="si" and request.form("EMail")<>"" then Set Mail = Server.CreateObject("Persits.MailSender") Mail.charset = "ISO-8859-1" Mail.Host = Host Mail.Username = UsuarioCorreo Mail.Password = PasswordCorreo Mail.From = DireccionCorreo Mail.FromName = mail.encodeheader(NombreDireccionCorreo) ' Optional Mail.AddAddress DestinatarioCorreo Mail.AddReplyto request.form("EMail") Mail.Subject = mail.encodeheader(Asunto) Mail.Body = "" Mail.Body = Mail.Body & "Nombre: " & request.form("Nom") & "
" Mail.Body = Mail.Body & "Empresa: " & request.form("Empresa") & "

" Mail.Body = Mail.Body & "Teléfono: " & request.form("Telefon") & "
" Mail.Body = Mail.Body & "Correo electónico: " & request.form("EMail") & "
" Mail.Body = Mail.Body & "Dirección: " & request.form("Adreca") & "
" Mail.Body = Mail.Body & "Población: " & request.form("Poblacio") & "
" Mail.Body = Mail.Body & "Comentarios: " & request.form("Comentari") Mail.Body = Mail.Body & "" Mail.IsHTML = True On Error Resume Next Mail.Send If Err <> 0 Then Response.Write CorreoKO & Err.Description validar = false else Response.Write CorreoOK End If Set Mail=Nothing end if %>