<%
response.write now() & " "
sConnection= "Driver={MySQL ODBC 5.1 Driver}; Server=192.168.10.148; Database=gagnon_partage;User=gagnon_u;Password=p$art$ge; Option=3"
Set oConnection = Server.CreateObject("ADODB.Connection")
oConnection.Open(sConnection)
a=replace(request.querystring("a"),"'","''")
if a <> "" then
sql = "select * from Articles where id=" & a
else
sql = "select * from Articles order by dateajout desc"
end if
Set rs = oConnection.execute(sql)
oConnection.execute "update Articles set vues = vues + 1 where id=" & rs("id")
%>
<%=rs("titre")%>
">