<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Volley-Ball Club Tihange - Huy <% idCat = Request.QueryString("idCat") idCatRedirect = Request.QueryString("idCatRedirect") idM = Request.QueryString("idM") If idCatRedirect = 0 then backlink = "ResultatsAllClub.asp" else backlink = "resultatsclub.asp?idCat=" & idCat end if %>

Login

Matchs

Resultats

Entrainements

Joueurs

<% If Session("UserRights") = 3 then Response.Write("

Externes

") Response.Write("

Entraineurs

") Response.Write("

Mailing

") End if %>

Evenements

Cotisations

Comité

 <% If Request.QueryString("updResult") = 1 then If Request.QueryString("Coupe") = 1 then ResulThPrem = Request.QueryString("Tihange_Premiere") ResulAdvPrem = Request.QueryString("Adv_Premiere") Set rsUpdtResult = Server.CreateObject("ADODB.Recordset") sqlUpdtResult = "UPDATE Matchs SET " & _ "ResulThPrem=" & ToSQL(ResulThPrem, "Text") & ", " & _ "ResulAdvPrem=" & ToSQL(ResulAdvPrem, "Text") & " " & _ "WHERE id=" & idM openrs rsUpdtResult, sqlUpdtResult else ResulThRes = Request.QueryString("Tihange_Reserve") ResulAdvRes = Request.QueryString("Adv_Reserve") ResulThPrem = Request.QueryString("Tihange_Premiere") ResulAdvPrem = Request.QueryString("Adv_Premiere") Set rsUpdtResult = Server.CreateObject("ADODB.Recordset") sqlUpdtResult = "UPDATE Matchs SET " & _ "ResulThRes=" & ToSQL(ResulThRes, "Text") & ", " & _ "ResulAdvRes=" & ToSQL(ResulAdvRes, "Text") & ", " & _ "ResulThPrem=" & ToSQL(ResulThPrem, "Text") & ", " & _ "ResulAdvPrem=" & ToSQL(ResulAdvPrem, "Text") & " " & _ "WHERE id=" & idM openrs rsUpdtResult, sqlUpdtResult end if Response.Redirect(backlink) end if NameCat = DLookUp("Categorie", "NomCat", "id=" & idCat) Set rsResultatMatch = Server.CreateObject("ADODB.Recordset") sqlResultatMatch = "SELECT * FROM Matchs WHERE id=" & idM openrs rsResultatMatch, sqlResultatMatch While not rsResultatMatch.eof DateM = rsResultatMatch("DateM") Lieu = rsResultatMatch("Lieu") Adversaire = rsResultatMatch("Adversaire") ResulThPrem = rsResultatMatch("ResulThPrem") ResulAdvPrem = rsResultatMatch("ResulAdvPrem") ResulAdvRes = rsResultatMatch("ResulAdvRes") ResulThRes = rsResultatMatch("ResulThRes") Coupe = rsResultatMatch("Coupe") rsResultatMatch.movenext wend rsResultatMatch.close set rsResultatMatch = nothing %>

Modifier résultat match (<%=NameCat%>)

<%=DateM%> contre <%=Adversaire%> à <%=Lieu%>

<% If Coupe = 0 then %> <% end if %>
Tihange Réserve :
<%=Adversaire%> Réserve :
Tihange 1ère :
<%=Adversaire%> 1ère :