<%
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
%>
Copyright
SHOPPING S.A 2001
|
Elle
Lui
Guide
d'achat
Beauté
Maison
Gastronomie
Vacances
|
Courrier des lecteurs
Un coup de coeur ou un coup de gueule, une question ou un commentaire,
cette rubrique est la votre. Envoyez-nous vos courriers nous les publierons
: bienetre@shopping.fr
Jeux
test
Que vous soyez cadre sup’ ou chef d’entreprise, vous êtes
tous les jours dans la peau de big boss avec agenda surbooké, réunions
tardives et rendez-vous importants dans votre panoplie. Mais justement,
savez-vous quel manager se cache en vous ?
Trucs
et astuces
Comment enlever toutes les tâches même les plus tenaces, la
recette secrète de tarte aux prunes de tante Huguette… Envoyez-nous tous
vos trucs et astuces à
bienetre@shopping.fr
et gagnez 100F de chèques-cadeaux shopping.fr si votre astuce
est publiée
|
