<% Response.Buffer = True Response.Expires = 10 Response.Expiresabsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" If Request.QueryString("SID") <> "" Then Response.Cookies("SID") = Request.QueryString("SID") If Request.QueryString("CP") <> "" Then Response.Cookies("coupon_id") = Request.QueryString("CP") PathImage = gsSiteURL & "/gestion/images/produits/" TITRE = "Artisans Amérindiens boutique Capteur de rêves, tambours, CD Chanteurs amérindiens, encens" META_KEYWORDS = "capteur de reves, dream-catchers, bijoux, tambours, CD, indiens, quebec, canada, artisanats, artistes amérindiens,indiens du canada" META_DESCRIPTION = "catalogue de produits amérindiens, bijoux faits à la main par des indiens " IMG1 = "" IMG2 = "" %> <%= TITRE %> <% Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) 'Response.Write("" & vbcrlf) Response.Write(" " & vbcrlf) 'Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) 'Response.Write("") 'Response.Write("" & vbcrlf) 'Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) Response.Write("" & vbcrlf) %>
<% sql = sql_CategoriesListe() Call RunSQL(sql, rsCat) If Not rsCat.EOF Then While Not rsCat.EOF If Len(rsCat("Cat_Titre_"& lng &"")) > 17 then Response.Write("") Else Response.Write("") End If rsCat.MoveNext Wend End If rsCat.Close Set rsCat = Nothing %>
paiement sécurisé avec notre partenaire Paypal
Bienvenue
Témoignages Clients
À propos
"& rsCat("Cat_Titre_"& lng &"") &"
"& rsCat("Cat_Titre_"& lng &"") &"
À propos
Questions-Réponses
Contact
Liens
<% sql = "SELECT Produits_TAB.*, ProduitsCat_TAB.Cat_Titre_fr " sql = sql & "FROM Produits_TAB LEFT JOIN ProduitsCat_TAB ON Produits_TAB.Cat_ID = ProduitsCat_TAB.Cat_ID " sql = sql & "WHERE VedetteActif = 1 " sql = sql & "ORDER BY Produits_TAB.ORDRE" Call RunSQL(sql, dbShowall) If NOT dbShowall.EOF Then For i=1 To 3 If NOT dbShowall.EOF Then If dbShowall("Ref") <> "" then ref = EncodeHTML(dbShowall("Ref")) Else ref = dbShowall("Produit_ID") End If '** Courte description du produit str = sesure_mot(dbShowall("Description_fr"), 200) '** Référence du produit If Trim(dbShowall("Ref")) <> "" then ref = EncodeHTML(dbShowall("Ref")) Else ref = dbShowall("Produit_ID") End If '** nous vérifions si la photo est bien sur le serveur newfile = server.MapPath(".") & "/gestion/images/produits/" & dbShowall("Vignette") Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(newfile)) Then img = "" &_ "
" &_ "
AGRANDIR
" ELse img = "photo à venir" End If %>
<%= img %>
&Cat_ID=<%= dbShowall("Cat_ID") %>&Ref=<%= ref %>">
SEULEMENT <%= FormatNumber(dbShowall("Prix_unitaire"), 2) %> CAN
convertir en Euros
<%= trim(str) %>
&Cat_ID=<%= dbShowall("Cat_ID") %>&Ref=<%= ref %>">


<% dbShowall.MoveNext End If Next End If dbShowall.Close Set dbShowall = Nothing %>
Présentation des capteurs de rêves, des tambours, des bijoux, de la musique indienne, etc.



© 2006 LeGrandTipi.com - Tous droits réservés