<%
On Error Resume Next
Dim conn, connstr, rs, fpath
Dim filename, newspapername, title
fpath = "images/"
connstr = "DRIVER={SQL Server};SERVER=CANYON;UID=wpladmin;PWD=wpladmin21;DATABASE=wplweb"
'connstr = "DRIVER={SQL Server};SERVER=(local);UID=sa;PWD=pa$$w0rd;DATABASE=Progres"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
Set rs = conn.Execute("EXEC GetArticleByFileName '" & Request.Querystring("id") & "'")
if err <> 0 then
Response.Redirect("error.asp")
end if
filename = fpath & rs(0) & ".jpg"
newspapername = rs(1)
title = rs(2)
rs.Close: Set rs = Nothing
conn.Close: Set conn = Nothing
%>
Détail de l'Article du Progrès/Progrès Article Detail
Détail de l'Article du Progrès/Progrès Article Detail