...
'======= test sur opération pour controler le début de la ref associée au programme
tableau = split(Ope,"//",-1,1)
EVOL_Code=tableau(0)
set rsAdo=Server.CreateObject("ADODB.Recordset")
' sqlProgCode = "SELECT distinct a.EVOL_Code, b.PROG_Ref FROM EVOL a, PROG b WHERE a.PROG_Code=b.PROG_Code and a.Evol_Code= '"& EVOL_Code &"'"
' sqlProgCode = "select evol.EVOL_Code, prog.prog_Ref from evol inner join prog on evol.prog_code=prog.prog_code"
sqlProgCode = "select evol.EVOL_Code from evol"
rsAdo.open sqlProgCode,application("SCcnx"),3,3
' if rsAdo.recordcount > 0 then
' sPROG_Ref = rsAdo("PROG_Ref")
' else
' sPROG_Ref = ""
' end if
rsAdo.Close
...
Partager