<% @language="VBScript" %> <% option explicit %> <% Response.Buffer = True Response.CacheControl = "Public" Response.Expires = 15 Server.ScriptTimeout = 600 Dim brandCode brandCode = Request.QueryString("CodeMarque") private function getMarqueByCode (brandCode) getMarqueByCode = "marque de code " & brandCode end function private Sub ShowCorpInfo (brandCode) Response.Write "Les infos corporate de " & getMarqueByCode (brandCode) & vbCRLF end Sub %> Infos, actus, tips sur <% = getMarqueByCode (brandCode) %>

<% = getMarqueByCode (brandCode) %>

Infos, actus, tips

 Recherche sur:<% Call SearchAtomz Call SearchAlapage %>
<% Call ShowCorpInfo (brandCode) %>

Articles les plus récents

Articles par catégorie

Gammes de produits
     

Autres marques

<% Call PrintBrandsSelector (brandCode) %>
Contact OSI
 Compteur Audean
<% Call SendWeborama (WeboramaCommerce, 5) %>