<%@ Language=VBScript %> <% Set DB = Server.CreateObject("ADODB.Connection") DB.Open Session("aCstrDNS") %> <% Call TitreDisplay ("recrut") %> <% ' Enregistrement des paramètres aVintGame = Request.Form("aCKintNoGame") aVstrNom = Request.Form("aEFstrNom") aVsrEmail = Request.Form("aEFstrEmail") aVstrPass = Request.Form("aEFstrPass") aVintPays = Request.Form("aLBintNoPays") aVstrLangue = Request.Form("aEFstrLangue") If aVstrLangue = "" Then aVstrLangue = "EN" ' Vérification des erreurs aVstrErr = "" If Request.ServerVariables("REQUEST_METHOD")= "POST" Then If Session("lng") Then If aVintGame = "" Then aVstrErr = aVstrErr & "
  • Please select one to more games !!!" If Len(aVstrNom)> 30 or aVstrNom = "" Then aVstrErr = aVstrErr & "
  • Please enter a NickName not more than 30 caract." Else set aRqNom = DB.Execute("SELECT JOUEUR_NICK FROM JOUEUR WHERE JOUEUR_NICK LIKE '" & aVstrNom & "'" , ,adCmdText) If Not aRqNom.EOF Then aVstrErr = aVstrErr & "
  • Sorry your NickName have been already used by another player !!!" End If set aRqNom = Nothing End If If InStr(aVsrEmail,"@")= 0 Then aVstrErr = aVstrErr & "
  • EMail adress not valid !!!
    • " If Len(aVstrPass) < 6 Then aVstrErr = aVstrErr & "
  • Sorry your password can have less than 6 caract.
    • " If aVintPays = "" Then aVstrErr = aVstrErr & "
  • Please select a country
    • " Else If aVintGame = "" Then aVstrErr = aVstrErr & "
  • Veuillez selectionner un a plusieurs jeux
    • " If Len(aVstrNom)> 30 or aVstrNom = "" Then aVstrErr = aVstrErr & "
  • Veuillez donner votre nom de joueur max 30 caracteres
    • " Else set aRqNom = DB.Execute("SELECT JOUEUR_NICK FROM JOUEUR WHERE JOUEUR_NICK LIKE '" & aVstrNom & "'" , ,adCmdText) If Not aRqNom.EOF Then aVstrErr = aVstrErr & "
  • Désolé votre Nom de joueur est déjà utilisé, veuillez en choisir un autre
    • " End If set aRqNom = Nothing End If If InStr(aVsrEmail,"@")= 0 Then aVstrErr = aVstrErr & "
  • Adresse Email invalide
    • " If Len(aVstrPass) < 6 Then aVstrErr = aVstrErr & "
  • PassWord Invalide min 6 caracteres
    • " If aVintPays = "" Then aVstrErr = aVstrErr & "
  • Veuillez selectionner un pays
    • " End If End If ' Si il y a une erreur on affiche les erreurs puis le formulaires If aVstrErr <> "" OR Request.ServerVariables("REQUEST_METHOD") = "GET" Then %>
      <% = aVstrErr %>
    <% If Session("lng") Then %>
    NickName : *
    E-Mail : *
    Password : *
    From where do you come from : <% If Request.ServerVariables("REQUEST_METHOD") = "GET" or aVintPays = "" Then Call ListeBoxS("SELECT * FROM PAYS ORDER BY PAYS_NOM","aLBintNoPays",0)%> * <% Else Call ListeBoxS("SELECT * FROM PAYS ORDER BY PAYS_NOM","aLBintNoPays",aVintPays)%> * <% End If%>
    Langage (FR/EN/GER/...) :
    Please Select your games : *
    <% Else %>
    Nom de jeux: *
    E-Mail : *
    Password : *
    D'où venez-vous ? : <% If Request.ServerVariables("REQUEST_METHOD") = "GET" or aVintPays = "" Then Call ListeBoxS("SELECT * FROM PAYS ORDER BY PAYS_NOM","aLBintNoPays",0)%> * <% Else Call ListeBoxS("SELECT * FROM PAYS ORDER BY PAYS_NOM","aLBintNoPays",aVintPays)%> * <% End If%>
    Langage (FR/EN/GER/...) :
    Veuillez sélectionner vos jeux : *
    <% End If %> <% Set aRqSP = DB.Execute("SELECT JEUX_NO, JEUX_NOM FROM JEUX WHERE GRP_NO = 'SP' ORDER BY JEUX_NO", , adCmdText) Set aRqST = DB.Execute("SELECT JEUX_NO, JEUX_NOM FROM JEUX WHERE GRP_NO = 'ST' ORDER BY JEUX_NO", , adCmdText) Set aRqTS = DB.Execute("SELECT JEUX_NO, JEUX_NOM FROM JEUX WHERE GRP_NO = 'TS' ORDER BY JEUX_NO", , adCmdText) DO WHILE (Not aRqSP.eof) OR (Not aRqST.eof) OR (Not aRqTS.eof)%> <% Loop set aRqSP = Nothing set aRqST = Nothing set aRqTS = Nothing %>


    Steel Panthers


    SSI Stars


    Talon Soft
    <% If Not aRqSP.eof Then %> > <% = aRqSP(1) %> <% aRqSP.movenext Else %>   <% End If %> <% If Not aRqST.eof Then %> > <% = aRqST(1) %> <% aRqST.movenext Else %>   <% End If %> <% If Not aRqTS.eof Then %> > <% = aRqTS(1) %> <% aRqTS.movenext Else %>   <% End If %>
     
    <% Else ' Enregistrement dans la table joueurs Set aOrqJoueur = Server.CreateObject("ADODB.RecordSet") aOrqJoueur.Source = "JOUEUR" aOrqJoueur.ActiveConnection = Session("aCstrDNS") aOrqJoueur.CursorType = adOpenKeySet aOrqJoueur.LockType = adLockPessimistic aOrqJoueur.Open aOrqJoueur.AddNew aOrqJoueur("PAYS_NO") = aVintPays aOrqJoueur("JOUEUR_NICK") = aVstrNom aOrqJoueur("JOUEUR_PASS") = aVstrPass aOrqJoueur("JOUEUR_EMAIL") = aVsrEmail If not isNUll(aVstrLangue) Then aOrqJoueur("JOUEUR_LNG") = aVstrLangue End If aOrqJoueur.Update aVintNoJoueur = aOrqJoueur("JOUEUR_NO") aOrqJoueur.close set aOrqJoueur = Nothing ' Enregistrement dans la table A_COMME Set aOrqJeux = Server.CreateObject("ADODB.RecordSet") aOrqJeux.Source = "ACOMME" aOrqJeux.ActiveConnection = Session("aCstrDNS") aOrqJeux.CursorType = adOpenStatic aOrqJeux.LockType = adLockPessimistic aOrqJeux.Open For intLoop = 1 to Request.Form("aCKintNoGame").Count aOrqJeux.AddNew aOrqJeux(0) = aVintNoJoueur aOrqJeux(1) = Request.Form("aCKintNoGame")(intLoop) aOrqJeux.Update Next aOrqJeux.Close set aOrqJeux = Nothing %> <% If Session("lng") Then %>

    Welcome to International Wargames Club.

    You have all been registered on the players lists. If you have any questions or need help, please contact one of the staff members or myself.
    (cuva@iprolink.ch). Please read the rules sections for the games that you play, and also, remember that if a new player does not start a game within one month of this letter, he may be erased from the club.

    There is a good core of regular gamers here, and there are also some very good players among them. You can write us if you don't know how to choose your opponent. I hope you enjoy this club, as the staff here at Infologo works very hard to update the web site several times a week.

    We organize tournaments and campagnes here. If any new players would like to help out with the web site or with developing tourneys for their favorite group, please contact me.

    This is a close group, and many of the players here are very involved with the club, so we hope that you will soon be one of them.

    Have fun! Best regards, All the ILWC Staff

    Please don't forget your password, you need him
    <% Else %>

    Bienvenue a "International Wargame Club".

    Vous avez ete enregistres sur la liste des joueurs. Si vous avez besoin d'aide ou si vous avez une question a poser, n'hesitez pas a contacter un des membres de l'equipe ou bien moi-meme
    (General Toronto : cuva@iprolink.ch).

    Lisez attentivement la section du reglement pour les jeux qui vous interessent, et aussi, n'oubliez pas qu'un nouveau joueur sera efface du club s'il ne commence pas une partie dans le premier mois suivant son inscription !

    Il y a un bon groupe de joueurs reguliers au club, et parmi eux quelques tres bons joueurs. Ecrivez nous si vous ne savez pas quel adversaire choisir. J'espere que vous appreciez ce club, car l'equipe ici a IWC travaille tres dur pour mettre a jour le site Web plusieurs fois par semaine.

    Nous organisons des tournois et des campagnes permanentes. Si un nouveau joueur souhaite nous aider avec la gestion du site Web ou avec l'organisation des differents tournois en preparation, il est invite a nous contacter.

    Nous formons un groupe restreint, et beaucoup de joueurs ici sont impliques au sein du club, et nous esperons donc que vous serez bientot l'un d'eux.

    Amusez-vous bien !

    Cordialement, Toute l'equipe de IWC.

    SVP n'oubliez pas votre password, vous en aurrez besoin
    <% End If %> <% DB.Close Set DB = Server.CreateObject("ADODB.Connection") DB.Open Session("aCstrDNS") ' Envoit du mail nouveau joueur ' Set JMail = Server.CreateObject("Jmail.SMTPMail") JMail.Subject = "IWC New Player / IWC Nouveau Joueur" JMail.ContentType = "text/html" JMail.AddRecipientEx "info@wargame.ch", "WebMaster" JMail.Sender = aVsrEmail JMail.SenderName = aVstrNom JMail.ReplyTo = aVsrEmail TextFr = "IWC Game Result / IWC Resultat Partie

    " TextFr = TextFr & "The new player : " TextFr = TextFr & aVstrNom & "
    have been register for the following game :

    " aSQL = "SELECT JEUX.JEUX_NOM, JEUX.GRP_NO " _ & "FROM JOUEUR, ACOMME, JEUX " _ & "WHERE JOUEUR.JOUEUR_NO = ACOMME.JOUEUR_NO " _ & "AND ACOMME.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JOUEUR.JOUEUR_NO = " & aVintNoJoueur & " ) " _ & "ORDER BY JEUX.GRP_NO" Set rqGame = DB.Execute(aSQL, , adCmdText) TextFr = TextFr & "" TextFr = TextFr & "" Do While Not rqGame.eof TextFr = TextFr & "" TextFr = TextFr & "" TextFr = TextFr & "" TextFr = TextFr & "" rqGame.moveNext Loop TextFr = TextFr & "
    GroupGame
    " & rqGame(1) & "" & rqGame(0) & "
    " TextFr = TextFr & "

    to send a mail to the new player please use the reply button" Set rqGame = Nothing aSQL = "SELECT JEUX.GRP_NO " _ & "FROM JOUEUR, ACOMME, JEUX " _ & "WHERE JOUEUR.JOUEUR_NO = ACOMME.JOUEUR_NO " _ & "AND ACOMME.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JOUEUR.JOUEUR_NO = " & aVintNoJoueur & ") " _ & "GROUP BY JEUX.GRP_NO" Set rqJou = DB.Execute(aSQL, ,adCmdText) aSQL = "SELECT JOUEUR.JOUEUR_NICK, JOUEUR.JOUEUR_EMAIL, " _ & "ADMIN.GRP_NO " _ & "FROM ADMIN, JOUEUR " _ & "WHERE ADMIN.JOUEUR_NO = JOUEUR.JOUEUR_NO " _ & "AND (ADMIN.ADM_TYPE = 0)" Set aRqGrp = DB.Execute(aSQL, , adCmdText) DO While Not rqJou.eof aRqGrp.Filter = "[GRP_NO] = '" & rqJou(0) & "'" JMail.AddRecipientEx aRqGrp(1), aRqGrp(0) rqJou.movenext Loop Set rqJou = Nothing Set aRqGrp = Nothing JMail.Body = TextFr JMail.AppendText "

    ----------------------------------------------------
    " JMail.AppendText "IWC Wargame Club
    " JMail.AppendText "http://www.wargame.ch" JMail.Execute DB.Close %> <% End If %>