<%@ Language=VBScript %> <% Response.Buffer=true Dim str_ID Dim blnReservation blnReservation=verification(Session("salleid"),Session("hhdebut"),Session("mmdebut"),Session("hhfin"),Session("mmfin") ) if blnReservation=false then Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM [Détails-commande]" objRS.Open strSQL,objConn,1,3 objRS.AddNew objRS("NoClient") = Session("org") objRS("RéfProduit") = session("salleid") objRS("Date_Reservation") = cdate(Session("annee") & "-" & Session("mois") & "-" & Session("jour")) objRS("Date_Commande") = Now objRS("Heure_Début") = cdate(session("hhdebut") & ":" & session("mmdebut")) objRS("Heure_Fin") = cdate(session("hhfin") & ":" & session("mmfin")) objRS("Nombre-Personne") = session("nbrpers") objRS("Table") = session("table") objRS("Chaises") = session("chaise") objRS("tvvideo") = session("tvvideo") objRS("ecran") = session("ecran") objRS("cafe") =session("cafe") objRS("internet") = session("internet") if session("autres")<>"" then objRS("autres") = session("autres") objRS.Update str_ID=10000+objRS("RéfDétailCommande") objRS.Close Set objRS = Nothing else objConn.Close Set objConn = Nothing Response.Redirect "consulter.asp?jour=" & Session("jour") & "&mois=" & Session("mois") & "&annee=" & Session("annee") & "option=rejete" end if objConn.Close Set objConn = Nothing %>

Confirmation de votre réservation Numéro d'identification: <%=str_ID%> Votre organisme: <%=Session("nomorg")%> Nom de la salle: <%=session("nom")%> Date: <%Response.Write Session("jour") & "/" & Session("mois") & "/" & Session("annee")%> Heure: <% Response.Write session("hhdebut") & ":" & session("mmdebut") %> à <% Response.Write session("hhfin") & ":" & session("mmfin")%> Nombre de personnes: <% =Session("nbrpers") %> <% If Session("table") = "Oui" Then Response.Write "" Else Response.Write "" End If If Session("chaise") = "Oui" Then Response.Write "" Else Response.Write "" End If If Session("tv") = "Oui" Then Response.Write "" Else Response.Write "" End If If Session("ecran") = "Oui" Then Response.Write "" Else Response.Write "" End If If Session("cafe") = "Oui" Then Response.Write "" Else Response.Write "" End If If Session("internet") = "Oui" Then Response.Write "" Else Response.Write "" End If If Session("autres") <> "" Then Response.Write "" %> Tables: Oui Tables: Non Chaises: Oui Chaises: Non Tv: Oui Tv: Non Ecran: Oui Ecran: Non Cafe: Oui Cafe: Non Internet: Oui Internet: Non Autres: " & Session("autres") & " Il est important de garder le numéro d'identification de votre réservation. Il vous permettra de modifier ou de supprimer votre réservation au besoin.