<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Volley-Ball Club Tihange - Huy <% idEvent = Request.QueryString("idEvent") Set rsDefEvent = Server.CreateObject("ADODB.Recordset") sqlDefEvent = "SELECT * FROM events_club WHERE id=" & idEvent openrs rsDefEvent, sqlDefEvent While not rsDefEvent.eof NameEvent = rsDefEvent("NameEvent") DateDebutEvent = rsDefEvent("DateDebutEvent") DayDebutEvent = day(DateDebutEvent) MonthDebutevent = Month(DateDebutEvent) YearDebutEvent = Year(DateDebutEvent) DateFinEvent = rsDefEvent("DateFinEvent") DayFinEvent = day(DateFinEvent) MonthFinEvent = Month(DateFinEvent) YearFinEvent = Year(DateFinEvent) NbDays = DateDiff("d",DateDebutEvent,DateFinEvent) NbDays = NbDays + 1 ResponsableEvent = rsDefEvent("ResponsableEvent") TableEvent = rsDefEvent("TableEvent") rsDefEvent.movenext Wend rsDefEvent.close Set rsDefEvent = 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é

 <% If Request.QueryString("New") = 1 then NomPoste = Request.QueryString("NomPoste") DayDebutEvent = Request.QueryString("DayDebutEvent") MonthDebutEvent = Request.QueryString("MonthDebutEvent") YearDebutEvent = Request.QueryString("YearDebutEvent") DateDebutPoste = YearDebutEvent & "-" & MonthDebutEvent & "-" & DayDebutEvent DayFinEvent = Request.QueryString("DayFinEvent") MonthFinEvent = Request.QueryString("MonthFinEvent") YearFinEvent = Request.QueryString("YearFinEvent") DateFinPoste = YearFinEvent & "-" & MonthFinEvent & "-" & DayFinEvent HeureDebutEvent = Request.QueryString("HeureDebutEvent") If HeureDebutEvent = 24 then HeureDebutEvent = "00" end if MinuteDebutEvent = Request.QueryString("MinuteDebutEvent") HeureDebutPoste = HeureDebutEvent & ":" & MinuteDebutEvent & ":00" HeureFinEvent = Request.QueryString("HeureFinEvent") If HeureFinEvent = 24 then HeureFinEvent = "00" end if MinuteFinEvent = Request.QueryString("MinuteFinEvent") HeureFinPoste = HeureFinEvent & ":" & MinuteFinEvent & ":00" LieuPoste = Request.QueryString("LieuPoste") DescriptionPoste = Request.QueryString("DescriptionPoste") RepeterPoste = Request.QueryString("RepeterPoste") While RepeterPoste > 0 Set rsAddPoste = Server.CreateObject("ADODB.Recordset") sqlAddPoste = "INSERT INTO " & TableEvent & " (NomPoste, DateDebutPoste, DateFinPoste, HeureDebutPoste, HeureFinPoste, LieuPoste, DescriptionPoste)" & _ " VALUES (" & _ ToSQL(NomPoste, "Text") & ", " & _ "'" & DateDebutPoste & "', " & _ "'" & DateFinPoste & "', " & _ "'" & HeureDebutPoste & "', " & _ "'" & HeureFinPoste & "', " & _ ToSQL(LieuPoste, "Text") & ", " & _ ToSQL(DescriptionPoste, "Text") & ")" openrs rsAddPoste, sqlAddPoste RepeterPoste = RepeterPoste -1 Wend Response.Redirect("event.asp?id=" & idEvent) end if %>

Ajouter poste <%=NameEvent%>

Poste :
Du : / /
Au : / /
De : h. min.
A : h. min.
Lieu :
Description :
Nombre : x poste identique