1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN_BASE
thisArray = Array("0 Généralités","1 Philosophie","2 Sciences religieuses","3 Sciences sociales, droit","5 Sciences exactes","6 Sciences appliquées","7 Beaux-arts, divertissements","8 Langues et littératures","9 Archéologie, géographie, histoire")
For i = 0 To UBound(thisArray)
'thisArray(i) pose problème dans la requête!!!
SQL = "SELECT * FROM T_numerisation where type2 like 'livre' and cdu like '"&thisArray(i)&"' and utilisation like 'externe' and url is not null order by intitule, partie"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn
'il passe très bien ici!!!!!
response.Write("<h2>") &(thisArray(i)) &("</h2><br>")
rs.MoveFirst
do while Not rs.eof
response.Write(rs("intitule")) &("<br>")
rs.MoveNext
loop
Next
rs.close
set rs=nothing
conn.close
set conn=nothing
%> |
Partager