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

<% ' parametre If Request.ServerVariables("REQUEST_METHOD") = "GET" Then aVsql = "SELECT JOUEUR_NICK FROM JOUEUR WHERE JOUEUR_NO = " & Session("aCstafNo") Set aRqAdmin = DB.Execute(aVsql, ,adCmdText) %>

<% If Session("aCstafTyp") Then %> <% End If %> <% aVsql = "SELECT JEUX.JEUX_NO, JEUX.JEUX_NOM, COUNT(ACOMME.JOUEUR_NO) AS NBJOU " _ & "FROM ACOMME, JEUX " _ & "WHERE ACOMME.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JEUX.GRP_NO = '" & Session("aCstafGrp") & "') " _ & "GROUP BY JEUX.JEUX_NO, JEUX.JEUX_NOM" Set rqGame = DB.Execute(aVsql, , adCmdText) %> <% 'Compteur des ghost aVsql = "SELECT COUNT(JOUEUR_NO) AS NB FROM rqGhost " _ & "WHERE (MOIS >= 3) AND (GRP_NO = '"& Session("aCstafGrp") &"')" Set rqNb3Ghost = DB.Execute(aVsql, , adCmdText) aVint3Ghost = rqNb3Ghost(0) aVsql = "SELECT COUNT(JOUEUR_NO) AS NB FROM rqGhost " _ & "WHERE (MOIS >= 6) AND (GRP_NO = '"& Session("aCstafGrp") &"')" Set rqNb6Ghost = DB.Execute(aVsql, , adCmdText) aVint6Ghost = rqNb6Ghost(0) aVsql = "SELECT COUNT(JOUEUR_NO) AS NB FROM rqGhost " _ & "WHERE (MOIS >= 9) AND (GRP_NO = '"& Session("aCstafGrp") &"')" Set rqNb9Ghost = DB.Execute(aVsql, , adCmdText) aVint9Ghost = rqNb9Ghost(0) %> <% If aVint3Ghost > 0 Then %> <% End If %>

Staff Officer :	<% = aRqAdmin("JOUEUR_NICK") %>
Subject :
Text :
All IWC Player
Game Player	<% Do While Not rqGame.EOF %> <% If rqGame("NBJOU") > 0 Then %> > <% = rqGame("JEUX_NOM") & " (" & rqGame("NBJOU") & ")" %> <% End If %> <% rqGame.MoveNext Loop %>
" checked> Group Player	<% = Session("aCstafGrp") %>
Ghost Player	<% = ">= 3 month (" & aVint3Ghost & ")" %> <% If aVint6Ghost > 0 Then %> <% = ">= 6 month (" & aVint6Ghost & ")" %> <% If aVint9Ghost > 0 Then %> <% = ">= 9 month (" & aVint9Ghost & ")" %> <% End If End If %>

<% Else %> <% 'Parametre aVstrSubj = Request.Form("efSubject") aVstrText = Request.Form("efText") aVstrTyp = Request.Form("aRBType") aVintMois = Request.Form("lbNbMois") aVintGame = Request.Form("lbNoGame") ' Envoit du mail de confirmation 'Set JMail = Server.CreateObject("Jmail.SMTPMail") JMail.Subject = "IWC -" & aVstrSubj JMail.ContentType = "text/html" aSQL = "SELECT JOUEUR.JOUEUR_NICK, JOUEUR.JOUEUR_EMAIL " _ & "FROM JOUEUR " _ & "WHERE JOUEUR.JOUEUR_NO = " & Session("aCstafNo") Set aRqGrp = DB.Execute(aSQL, , adCmdText) JMail.AddRecipientBCC "info@wargame.ch" JMail.AddRecipientCC aRqGrp(1) JMail.Sender = aRqGrp(1) JMail.SenderName = aRqGrp(0) JMail.ReplyTo = aRqGrp(1) JMail.Body = aVstrText If UCase(aVstrTyp) = "ALL" Then aVsql = "SELECT JOUEUR_EMAIL, JOUEUR_NICK FROM JOUEUR" ElseIf UCase(aVstrTyp) = "GAME" then aVsql = "SELECT JOUEUR.JOUEUR_NICK, JOUEUR.JOUEUR_EMAIL " _ & "FROM ACOMME, JOUEUR " _ & "WHERE ACOMME.JOUEUR_NO = JOUEUR.JOUEUR_NO " _ & "AND (ACOMME.JEUX_NO = " & aVintGame & ")" ElseIf UCase(aVstrTyp) = "GHOST" Then aVsql = "SELECT JOUEUR_NICK, JOUEUR_EMAIL FROM rqGhost " _ & "WHERE (MOIS >= " & aVintMois &") " _ & "AND (GRP_NO = '" & Session("aCstafGrp") & "')" Else aVsql = "SELECT JOUEUR.JOUEUR_EMAIL, JOUEUR.JOUEUR_NICK " _ & "FROM JOUEUR, ACOMME, JEUX " _ & "WHERE JOUEUR.JOUEUR_NO = ACOMME.JOUEUR_NO " _ & "AND ACOMME.JEUX_NO = JEUX.JEUX_NO " _ & "AND (JEUX.GRP_NO = '" & Session("aCstafGrp") & "')" End If Set rqJoueur = DB.Execute(aVsql, ,adCmdText) Do While not rqJoueur.EOF JMail.AddRecipientEx rqJoueur("JOUEUR_EMAIL"), rqJoueur("JOUEUR_NICK") rqJoueur.moveNext Loop If Session("aCstafGrp") = "TS" Then JMail.AppendText "

----------------------------------------------------
" JMail.AppendText "IWC Wargame Club
" JMail.AppendText "Talon Soft Help Staff
" JMail.AppendText "http://www.wargame.ch" ElseIf Session("aCstafGrp") = "SP" Then JMail.AppendText "

----------------------------------------------------
" JMail.AppendText "IWC Wargame Club
" JMail.AppendText "Steel Panthers Help Staff
" JMail.AppendText "http://www.wargame.ch" Else JMail.AppendText "

----------------------------------------------------
" JMail.AppendText "IWC Wargame Club
" JMail.AppendText "SSI Stars Help Staff
" JMail.AppendText "http://www.wargame.ch" End If JMail.Execute %> <% End IF %>