|
<%
<%
AllSelectionCheck=Server.HTMLEncode(AoiAoCheck)
SelectionArray = Split(AllSelectionCheck,",")
i=0
for each theId in SelectionArray
i=i+1
theId=CLng(Trim(theId))
sql=" select AoiAo.*,AoiOrganisme.Libelle as AoiOrganismeLibelle,AoiOrganisme.Libelle_En as AoiOrganismeLibelle_EN, AoiOrganisme.AoiOrganismeId as AoiOrganismeId" & _
" from AoiAo left outer join AoiOrganisme on AoiAo.AoiOrganismeId=AoiOrganisme.AoiOrganismeId" & _
" where AoiAoId="&DBNumSQL(theId)
set rec = Server.CreateObject("ADODB.Recordset")
rec.CursorLocation = 3
rec.Open sql, conn
if Not rec.EOF then
LeReference=rec("Reference")
LeDetail=rec("Detail")
LeAdresse=rec("Adresse")
LeAoiOrganismeLibelle=rec("AoiOrganismeLibelle")
end if
%>
<%=zoneDebut("Traduction d'un A.O.")%>
<%=zoneFin()%>
|