% if Session("SuperAdmin") = false then Response.Redirect (""&path&"/index.asp") end if %> <% dim code code = Request.QueryString ("code") if code <> "" then strSql = "SELECT * from Recu where CodeR = " & code Set rsQuery = Conn.Execute(strSql) If Not rsQuery.EOF Then CodeO = rsQuery ("CodeO") Statut = rsQuery ("Statut") Pour = rsQuery ("Pour") SommeT = rsQuery ("SommeT") NoteG = rsQuery ("NoteG") DateE = rsQuery ("DateE") DateM = rsQuery ("DateM") end if end if %>
|