<%
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
%>
