<%
Dim semaine
Dim rst
Dim strSQL
Dim Compteur
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Magazine"
semaine = DatePart("ww",Now)
if Request("Numero") then
strSQL = "select * from articles where [N°] ="&Cstr(Request("Numero")) _
&" and CodeRubrique='"&Request("CodeRubrique")&"'"
else
strSQL = "select * from articles where semaine ="&Cstr(Semaine) _
&" and CodeRubrique='"&Request("CodeRubrique")&"'"
end if
set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL,con,adOpenStatic,adLockReadOnly,adCmdText
compteur = rst.RecordCount
if compteur then %>
<%response.write rst("titre")%>
<%
Dim fso
Dim Filename
Dim imageFile
Set fso = CreateObject("Scripting.FileSystemObject")
Filename = "f:\inetpub\wwwroot\shoppingfr\photosmagasine\"&Server.HTMLEncode(rst.Fields("N°").Value)&".jpg"
If (fso.FileExists(Filename)) Then
imageFile = "/photosmagasine/"&rst.Fields("N°").Value&".jpg"
Response.Write(" ")
End If %> |
<%
response.write rst("contenu1")%>
<%
response.write rst("contenu2")%>
<%
response.write rst("contenu3")%>
<%
response.write rst("contenu4")%>
<%
end if
rst.Close
strSQL = "select * from articles where semaine < "&Cstr(Semaine) _
&" and CodeRubrique='"&Request("CodeRubrique")&"' order by dateparution DESC"
rst.Open strSQL,con,adOpenStatic,adLockReadOnly,adCmdText
compteur = rst.RecordCount
if compteur then
%>
Nos
archives
<%
end if
%>
Copyright
SHOPPING S.A 2000