|
||||||
 |
|
<%
nbtotal = 0
i = 1
flag = 0
If ImageIn = "arts-vi-oeuvres-art-publiques" then
SQL_Select = "Select * from tblArts Order by Artiste"
else
SQL_Select = "Select * from tblArts Where " & ChampIn & " Like '" & CritereIn & "%' Order by Artiste"
end if
Set CT = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
CT.Open "DSN=WEB_ROLE;UID=webadmin;PWD=cm3d1a;"
Set RS = CT.Execute(SQL_Select)
Do while not RS.eof
nbtotal = nbtotal + 1
RS.movenext
Loop
RS.close
Set RS = CT.Execute(SQL_Select)
Do while not RS.eof
if i = ImageAff then
%>
| ||||||||||||||
1 de 1 
