<%@ Language=VBScript %> <% Response.Buffer=true Dim j,k,p, blnReservation, blnerreur blnerreur=false if Request.form("cmdReserver")="Réserver" then blnReservation=verification(Request.Form("salleid"),Request.Form("hhdebut"),Request.Form("mmdebut"),Request.Form("hhfin"),Request.Form("mmfin") ) if blnReservation=false then Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM Produits WHERE RéfProduit=" & Request.Form("salleid") objRS.Open strSQL,objConn Session("nom")=objRS("Nom") Session("capacite")=objRS("Capacité") objRS.Close strSQL = "SELECT ClientNom FROM Tbl_Client WHERE NoClient=" & Request.form("org") objRS.Open strSQL,objConn Session("nomorg")=objRS("ClientNom") Session("org")=Request.Form("org") Session("salleid")= Request.Form("salleid") Session("hhdebut")= Request.Form("hhdebut") Session("mmdebut")= Request.Form("mmdebut") Session("hhfin")= Request.Form("hhfin") Session("mmfin")= Request.Form("mmfin") Response.Redirect "reservation_details.asp" else blnerreur=true end if end if %>

Faire une réservation Titre Locale Sélectionnez un local <% Set objRS = Server.CreateObject("ADODB.Recordset") 'table Produits contient toutes les salles strSQL = "SELECT * FROM Produits" objRS.Open strSQL,objConn Do While Not objRS.EOF Response.Write "(" & objRS("Capacité") & " pers. max.)   -   " & objRS("Nom") & " " objRS.MoveNext Loop objRS.Close %> Sélectionnez un organisme <% 'table Produits contient toutes les salles strSQL = "SELECT First(NoClient) AS PremierDeNoClient, ClientNom FROM Tbl_Client GROUP BY ClientNom" objRS.Open strSQL,objConn Do While Not objRS.EOF Response.Write "" & objRS("ClientNom") & "" objRS.MoveNext Loop objRS.Close %> Description Date début <% 'if dt_start <> "" then 'sjourd = day(dt_start) 'smoisd = month(dt_start) 'sanneed = year(dt_start) 'end if %> <%'if smoisd <> "" then %> <%'end if%> Mois 01 02 03 04 05 06 07 08 09 10 11 12 <%'if sjourd <> "" then %> <%'end if%> Jour 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 <%'if sanneed <> "" then %> <%'end if%> Année 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 <% 'if time_start <> "" then ' if right(time_start,2) = "PM" then b_pm = true ' time_start = formatdatetime(time_start,3) ' time_start = left(time_start,len(time_start)-3) 'end if %> Heure début <% For j= 1 to 12 Step 1 If j < 10 Then Response.Write "0" & j & "" Else Response.Write "" & j & "" End If Next %> <%' =time_start_ampm %> jusqu'à <% For j= 1 to 12 Step 1 If j < 10 Then Response.Write "0" & j & "" Else Response.Write "" & j & "" End If Next %> <%' =time_end_ampm %> Répétition <% 'if not isnull(recurring) then '' if (recurring < 1) AND (not recurring) then recurring = 0 'else 'recurring = 0 'end if %> Répétition selected<% 'end if %> value="1">quotidien selected<% 'end if %> value="7">hebdomadaire selected<%' end if %> value="14">chaque 2 semaines selected<% 'end if %> value="30">mensuel selected<% 'end if %> value="365">annuellement jusqu'à <% 'if recurring_end <> "" then 'sjourend = day(recurring_end) 'smoisend = month(recurring_end) 'sanneeend = year(recurring_end) 'end if %> Mois 01 02 03 04 05 06 07 08 09 10 11 12 Jour 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Année 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 (mm/jj/aaaa) checked<% 'end if %> name="recurring_update" value="0" checked>cette date (<%' =dt_occur %>) seulement checked<% 'end if %> name="recurring_update" value="1">toutes les dates

<% if blnerreur=true then %> <%end if%>