<%@ Language=VBScript %> <% Set DB = Server.CreateObject("ADODB.Connection") DB.Open Session("aCstrDNS") %> <% Call TitreDisplay ("recrut") %>

<% ' Enregistrement des paramètres aVstrAction = Request.QueryString("action") aVstrNom = Request.QueryString("aEFstrNom") aVstrPass = Request.QueryString("aEFstrPass") %> <% If aVstrAction = "look" Then aVsql = "SELECT JOUEUR_NO, JOUEUR_NICK, JOUEUR_PASS FROM JOUEUR WHERE JOUEUR_NICK like '" & aVstrNom & "' AND JOUEUR_PASS like '" & aVstrPass & "'" Set aRqLook = DB.Execute(aVsql, ,adCmdText) If Not aRqLook.EOF Then Response.Redirect "update.asp?NoJoueur=" & aRqLook(0) Else %> <% Else %> <% End If %> <% Else %> <% If Session("lng") Then %> <% Else %> <% End If %> <% End If %>

<% If Session("lng") Then %> The User you enter whas not found, please try again here or send a mail to me and give your name, your email adress and if new your old email adress I will send you back your password so you will be able to update your profil <% Else %> L'utilisateur que vous avez cherché n'a pas été trouvé vous pouvez réessayer ici ou envoyer un mail à moi et me donner votre nom et votre adresse email, ainsi que votre ancien si vous avez changer d'adresse. Je vous enverrais de retour votre password pour que vous puissier mettre à jour votre profil. <% End If %> <% End If %> <% ElseIf aVstrAction = "update" Then %> <% If Session("lng") Then %>
Please enter your information so we can found your current profil
NickName :
SVP donner vos différentes informations pour que nous puissons retrouver votre profil
Nom de joueur :
Password :
New User Registration
User Update	Recrutement nouveau utilisateur
Mise à jour utilisateur