<% Dim Accion : Accion = Request.QueryString("ac") Select Case Accion Case "enviarcorreo" Call EnviarCorreo() End Select %> Football Agents in Spain
Agencia de representación de futbolistas



"...our objective is to be
The Reference within the football representation and mediation market..."

BEST! ESPAÑA

Avda. Santander 23
39180 Noja
CANTABRIA
T. +34 942 628 838
Fx. +34 942 675 029

Edificio Veganova
Avda. de la Vega 1
Bloque III - Planta 1ª - Of. 11
(Arroyo de la Vega -La Moraleja)
28108 Alcobendas
MADRID

 

BEST! FRANCIA

90 Avenue Lanessan
69410 Champagne Au Mont D´Or
LYON (FRANCE)
T. / Fx. +33 478 355 437

 

BEST! ARGENTINA

Juana Manso 1181
Planta 6ª, Of. 604
1107 Puerto Madero
Ciudad Autonoma de Buenos Aires (Buenos Aires)
T. +549-11-5093-2719

 

BEST! MÉXICO

Avda. Palmas, 405
Torre Optima, Int 702
Lomas de Chapultepec
1100 México D.F.
T.  +0052 1 55 2945 4629

 

> General Contact Form

<%if Request.QueryString("envio") = "" then%>
Name* Lastname* Subject*
Email* Phone* Message*


Iaccept the terms of use
City Country
 

If you wish suggest us a player, please complete the following form

If you wish collaborate with us or send an application for job, please complete this form

<%else if Request.QueryString("envio") <> "error" then %>

Yor message was sent correctly !

Thank you for interesting in our company



< Go Back

<% else %>

Apologizes, it´ve been an error, please try again in a few minutes

< Try Again

<% end if end if%>
<% 'Funciones '************************************ Sub EnviarCorreo() NombreEmpresa = "BEST! International Football Agency" EmailRemitente = "informacion@agencia-best.es" 'ServidorEnvio = "smtp.virtual-land.net" ServidorEnvio = "mail.agencia-best.es" Asunto = "Formulario de contacto desde Web" PuertoSMTP = 25 Dim EmailReceptor(1) EmailReceptor(0) = "informacion@agencia-best.es" 'EmailReceptor(1) = ""' formatoEnvio = 1 MensajeFinal = FunDevuelveCorreoGenerado() envioCorrecto = FunEnvioCorreoASPMail(NombreEmpresa,EmailRemitente,EmailReceptor,Asunto,MensajeFinal,ServidorEnvio,formatoEnvio,PuertoSMTP) if envioCorrecto then Response.Redirect "form-general_eng.asp?envio=correcto" else Response.Redirect "form-general_eng.asp?envio=error" end if End Sub Function FunDevuelveCorreoGenerado() ' rutaImagenes = "http://www.virtual-land.net/hosting/cabo/" ' rutaCSS = "http://www.virtual-land.net/hosting/cabo/" CadenaHTML = "" ' 'Cabezera del Email. ' CadenaHTML = "" & Chr(10) ' CadenaHTML = CadenaHTML & "" ' CadenaHTML = CadenaHTML & "" ' CadenaHTML = CadenaHTML & "" & Chr(13) & Chr(10) 'Confeccionar una tabla html bonita para el email CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & ":::MENSAJE DESDE LA WEB:::" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Nombre del remitente: " & Replace(Request.Form("nombre"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Apellidos: " & Replace(Request.Form("apellidos"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Email: " & Replace(Request.Form("email"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Tfno de contacto: " & Replace(Request.Form("tfno"),"'","''")& Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Localidad: " & Replace(Request.Form("localidad"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Pais: " & Replace(Request.Form("pais"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Asunto:" & Replace(Request.Form("asunto"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Mensaje: " & Replace(Request.Form("mensaje"),"'","''") CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) FunDevuelveCorreoGenerado = CadenaHTML End Function %>