<%@ LANGUAGE="VBSCRIPT" %> <% dim noid categ = request("categ") noid = request("noid") nophoto = request("nophoto") if nophoto = "" or isnull(nophoto) then nophoto = 1 if noid <> "" and not isnull(noid) then pageredirect = "article.asp?noid=" & noid & "&nophoto=" & nophoto & "&categ=" & categ else pageredirect = "actualite.asp" end if %> <% dim nomarticle dim resultat dim message dim messageresultat dim idartvedette dim prixspecial idartvedette = "" Set Fichier = Server.CreateObject("Scripting.FileSystemObject") SQL = "SELECT * FROM articledetail WHERE article.noid=" & noid & ";" set rs = db.execute(SQL) if not rs.BOF and not rs.EOF then if langue = "f" then nomarticle = rs("nomfr") description = rs("descfr") tagprixreg = "PRIX" tagprixspec = "Prix spécial" tagdimension = "DIMENSIONS" tagpoid = "POIDS" boutonadd = "ajouter" else nomarticle = rs("nomen") description = rs("descen") tagprixreg = "PRICE" tagprixspec = "Special price" tagdimension = "DIMENSIONS" tagpoid = "WEIGHT" boutonadd = "add" end if %>
    

<%=nomarticle%>

<% if description = "N/A" then description = "" %>

<%= formathtml(description) %>
CATALOGUE NOC

<% if Fichier.FileExists(server.MapPath("produits/" & noid & "-" & nophoto & ".JPG")) Then response.write "" else if Fichier.FileExists(server.MapPath("produits/" & noid & "-" & nophoto & ".GIF")) Then response.write "" end if end if %>
<% else rs.close set rs = nothing db.close response.redirect "actualite.asp?langue=" & langue end if rs.close set rs = nothing select case nophoto case "1" backcoul1 = " bgcolor=""#54301A""" backcoul2 = "" backcoul3 = "" backcoul4 = "" backcoul5 = "" backcoul6 = "" backcoul7 = "" case "2" backcoul1 = "" backcoul2 = " bgcolor=""#54301A""" backcoul3 = "" backcoul4 = "" backcoul5 = "" backcoul6 = "" backcoul7 = "" case "3" backcoul1 = "" backcoul2 = "" backcoul3 = " bgcolor=""#54301A""" backcoul4 = "" backcoul5 = "" backcoul6 = "" backcoul7 = "" case "4" backcoul1 = "" backcoul2 = "" backcoul3 = "" backcoul4 = " bgcolor=""#54301A""" backcoul5 = "" backcoul6 = "" backcoul7 = "" case "5" backcoul1 = "" backcoul2 = "" backcoul3 = "" backcoul4 = "" backcoul5 = " bgcolor=""#54301A""" backcoul6 = "" backcoul7 = "" case "6" backcoul1 = "" backcoul2 = "" backcoul3 = "" backcoul4 = "" backcoul5 = "" backcoul6 = " bgcolor=""#54301A""" backcoul7 = "" case "7" backcoul1 = "" backcoul2 = "" backcoul3 = "" backcoul4 = "" backcoul5 = "" backcoul6 = "" backcoul7 = " bgcolor=""#54301A""" end select codehtmlphoto = "" if Fichier.FileExists(server.MapPath("produits/" & noid & "-1.JPG")) Then codehtmlphoto = codehtmlphoto & "1" else if Fichier.FileExists(server.MapPath("produits/" & noid & "-1.GIF")) Then codehtmlphoto = codehtmlphoto & "1" end if end if if Fichier.FileExists(server.MapPath("produits/" & noid & "-2.JPG")) Then codehtmlphoto = codehtmlphoto & "2" else if Fichier.FileExists(server.MapPath("produits/" & noid & "-2.GIF")) Then codehtmlphoto = codehtmlphoto & "2" end if end if if Fichier.FileExists(server.MapPath("produits/" & noid & "-3.JPG")) Then codehtmlphoto = codehtmlphoto & "3" else if Fichier.FileExists(server.MapPath("produits/" & noid & "-3.GIF")) Then codehtmlphoto = codehtmlphoto & "3" end if end if if Fichier.FileExists(server.MapPath("produits/" & noid & "-4.JPG")) Then codehtmlphoto = codehtmlphoto & "4" else if Fichier.FileExists(server.MapPath("produits/" & noid & "-4.GIF")) Then codehtmlphoto = codehtmlphoto & "4" end if end if if Fichier.FileExists(server.MapPath("produits/" & noid & "-5.JPG")) Then codehtmlphoto = codehtmlphoto & "5" else if Fichier.FileExists(server.MapPath("produits/" & noid & "-5.GIF")) Then codehtmlphoto = codehtmlphoto & "5" end if end if if Fichier.FileExists(server.MapPath("produits/" & noid & "-6.JPG")) Then codehtmlphoto = codehtmlphoto & "6" else if Fichier.FileExists(server.MapPath("produits/" & noid & "-6.GIF")) Then codehtmlphoto = codehtmlphoto & "6" end if end if if Fichier.FileExists(server.MapPath("produits/" & noid & "-7.JPG")) Then codehtmlphoto = codehtmlphoto & "7" else if Fichier.FileExists(server.MapPath("produits/" & noid & "-7.GIF")) Then codehtmlphoto = codehtmlphoto & "7" end if end if set Fichier = nothing %>