<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Volley-Ball Club Tihange - Huy <% IdMatch = Request.QueryString("IDM") idCat = Request.QueryString("idCat") location = Request.QueryString("location") If location = "allteam" then backpage = "matchsclub.asp" deletepage= "deleteMatch.asp?idM=" & IdMatch & "&idCat=" & idCat & "&location=allteam" else backpage = "agendaclub.asp?idCat=" & idCat deletepage= "deleteMatch.asp?idM=" & IdMatch & "&idCat=" & idCat end if NameCat = DLookUp("Categorie", "NomCat", "id=" & idCat) Set rsMatchs = Server.CreateObject("ADODB.Recordset") sqlMatchs = "SELECT * FROM Matchs WHERE id=" & IdMatch openrs rsMatchs, sqlMatchs Coupe = rsMatchs("Coupe") DateM = rsMatchs("DateM") JourM = Day(DateM) MoisM = Month(DateM) AnneeM = Year(DateM) DateSql = AnneeM & "-" & MoisM & "-" & JourM Lieu = rsMatchs("Lieu") Street = rsMatchs("Street") City = rsMatchs("City") GoogleMap = rsMatchs("GoogleMap") Adversaire = rsMatchs("Adversaire") Depl = rsMatchs("Depl") If IsNull(rsMatchs("RDV")) then RDV = rsMatchs("RDV") else RDV = TimeValue(rsMatchs("RDV")) RDVH = Hour(RDV) RDVM = Minute(RDV) end if LieuRDV = rsMatchs("LieuRDV") If Isnull(rsMatchs("Reserve")) then Reserve = rsMatchs("Reserve") else Reserve = TimeValue(rsMatchs("Reserve")) ReserveH = Hour(Reserve) ReserveM = Minute(Reserve) end if If Isnull(rsMatchs("Premiere")) then Premiere = rsMatchs("Premiere") else Premiere = TimeValue(rsMatchs("Premiere")) PremiereH = Hour(Premiere) PremiereM = Minute(Premiere) end if Coatch = rsMatchs("Coatch") Restaurant = rsMatchs("Resto") RestoName = rsMatchs("RestoName") RestoStreet = rsMatchs("RestoStreet") RestoCity = rsMatchs("RestoCity") AlertMessage = rsMatchs("AlertMessage") FeuilleMatch = rsMatchs("FeuilleMatch") rsMatchs.close set rsMatchs = nothing %>

Login

Matchs

Resultats

Entrainements

Joueurs

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

Externes

") Response.Write("

Entraineurs

") Response.Write("

Mailing

") End if %>

Evenements

Cotisations

Comité

Modifier match - <%=NameCat%>

Donées indispensables
Date : / /
Lieu Dit :
Déplacement ?
Adversaire :
Match de coupe ?
Heure RDV : h. min.
Heure Réserve : h. min.
Heure Première : h. min.

Données complémentaires
Rue et No :
CP et Ville :
Google map :
Feuille de match :
Lieu RDV :
Coatch :
Resto ?
Nom resto :
Rue et No :
CP et Ville :
Message :
         <% If location = "allteam" then Response.Write("") end if %>