Agencia de representación de futbolistas



Are you Different ...?

BEST! ESPAÑA

Avda. del Brusco, s/n.
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

 

Form for Players

Yellow fields are required :

1.- General Information


Name (player)*


Lastname*


Age*


City
  

Country



EU Passport:


¿Do you have contract with another Agent?

, his name is...




3.- References

(please, indicating name and phone)



¿Do you have any video o web published in Internet ?

URL:
(Example: http://youtube.com/...etc)


2.- Sportive Information


Position*


Club*



Foot:





Sportive Path*


Technical Description*


More Information






4. Contact Information


Mobile Phone *
  

Your e-mail*





* Yellow fields are required


<% '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 jugador (desde Web)" PuertoSMTP = 25 Dim EmailReceptor(1) EmailReceptor(0) = "informacion@agencia-best.es" 'EmailReceptor(1) = "agarrido@agencia-best.es"' formatoEnvio = 1 MensajeFinal = FunDevuelveCorreoGenerado() envioCorrecto = FunEnvioCorreoASPMail(NombreEmpresa,EmailRemitente,EmailReceptor,Asunto,MensajeFinal,ServidorEnvio,formatoEnvio,PuertoSMTP) if envioCorrecto then Response.Redirect "form-player.asp?envio=correcto" else Response.Redirect "form-player.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 & ":::INFORMACION BÁSICA:::" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Nombre del Jugador: " & Replace(Request.Form("nombre"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Apellidos del Jugador: " & Replace(Request.Form("apellidos"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Edad: " & Replace(Request.Form("edad"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Móvil: " & Replace(Request.Form("movil"),"'","''")& 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 & "Localidad de Residencia: " & Replace(Request.Form("localidad"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "País:" & Replace(Request.Form("pais"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Pasaporte Comunitario: " & Replace(Request.Form("comunitario"),"'","''") CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & ":::INFORMACION DEPORTIVA:::" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Tiene Agente: " & Replace(Request.Form("tiene_agente"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Nombre del Agente (si tiene): " & Replace(Request.Form("nombre_agente"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Posiciones en el campo: " & Replace(Request.Form("posiciones"),"'","''")& Replace(Request.Form("moneda_transfer"),"'","''") CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Club Actual: " & Replace(Request.Form("Club_Actual"),"'","''") & Replace(Request.Form("moneda_jugador"),"'","''") CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Categoría del Club: " & Replace(Request.Form("categoria_club"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Pie Dominante: " & Replace(Request.Form("lateralidad"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Trayectoria Deportiva: " & Replace(Request.Form("trayectoria"),"'","''") & Replace(Request.Form("moneda_clubcompra"),"'","''") CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Características Técnicas: " & Replace(Request.Form("caracteristicas"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & ":::REFERENCIAS:::" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Direccion de video/s o página web: " & Replace(Request.Form("direccion_video"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Referencias de técnicos: " & Replace(Request.Form("referencias"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "Otros Comentarios: " & Replace(Request.Form("comentarios"),"'","''") & Chr(13) & Chr(10) CadenaHTML = CadenaHTML & "
" & Chr(13) & Chr(10) FunDevuelveCorreoGenerado = CadenaHTML End Function %>