<% hd = request.querystring("page") if hd = "ÉNERGIE" then %> <% else %> <% end if Dim adoCon, RS, strCon, strSql, zita Set adoCon = Server.CreateObject("ADODB.Connection") set RS = Server.CreateObject("ADODB.Recordset") strCon = "DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath("sanf.mdb") if (request.querystring("page") = "acquisitions") then strSql= "SELECT * FROM fre where title ='NEW ACQUISITIONS' AND Volum =" & request.querystring("pubno") else strSql= "SELECT * FROM fre where volume = " & request.querystring("vol") end if 'strSql= "SELECT * FROM fre where volume = " & request.querystring("vol") adoCon.open strCon, 3,3 RS.Open strSQL, strCon Response.write(rs("fullvolume")) %> <% Response.Write("

") IF rs.eof or rs.bof then Response.write("The page cannot be found") Else zita = rs("Title") Response.Write("" & zita & "

") IF rs("author") <> vbnullstring Then Response.Write("par " & rs("Author") & "

") End If Response.Write(rs("Body") & "

") Response.Write("Commentaire sur cet article ") End If set RS=nothing 'strCon.close if hd = "ÉNERGIE" then %>

<% else %> <% end if %>