<% iMaxColumn = 4 dim mid dim bid sBrand = request.querystring("b") bid = 0 %> <% if (sBrand <> "") then if bid = 0 then %><% elseif bid = 1 then %><% elseif bid = 2 then %><% elseif bid = 3 then %><% elseif bid = 4 then %><% elseif bid = 5 then %><% elseif bid = 6 then %><% elseif bid = 7 then %><% elseif bid = 8 then %><% elseif bid = 9 then %><% elseif bid = 10 then %><% elseif bid = 11 then %><% elseif bid = 12 then %><% elseif bid = 13 then %><% elseif bid = 14 then %><% elseif bid = 15 then %><% elseif bid = 16 then %><% elseif bid = 17 then %><% elseif bid = 18 then %><% elseif bid = 19 then %><% elseif bid = 20 then %><% elseif bid = 21 then %><% elseif bid = 22 then %><% elseif bid = 23 then %><% elseif bid = 24 then %><% end if %> <% end if %> <% if (request.querystring("m") <> "") then %>

<%= sMenuCompatible %>

<% iCompteur = 0 iColumn = 0 for j=0 to ubound(marque_mobile) if (marque_mobile(j) <> "") then if (iColumn = iMaxColumn) then %><% iColumn = 0 end if if (sBrand = marque_mobile(j)) then %><% bid = j else %><% end if iColumn = iColumn + 1 iCompteur = iCompteur + 1 end if next %>

<%=aiFrame.item ("RangChar")%> <%=marque_mobile(j)%>

<%=aiFrame.item ("RangChar")%> <%= marque_mobile(j)%>

<%= uCase(request.querystring("b")) %>

<% iCompteur = 0 iColumn = 0 for i=0 to ubound(currentMobiles) if (iColumn = iMaxColumn) then response.write ("") iColumn = 0 end if if (request.querystring("m") = modele_mobile(currentMobiles(i))(0)) then %><% mid = currentMobiles(i) else %><% end if iColumn = iColumn + 1 iCompteur = iCompteur + 1 next %>

<%= aiFrame.item ("RangChar") %> <%=modele_mobile(currentMobiles(i))(0)%>

<%= uCase(request.querystring("m")) %>

	<% listProducts = split(modele_mobile(mid)(1),";") for k=1 to ubound(listProducts)-1 if (listProducts(k) <> "") then %> <%= aiFrame.item ("RangChar")%> <%=aProducts(listProducts(k),2)%> <% if (listProducts(k) = 15) then %> <%= aiFrame.item ("RangChar")%> <%=aProducts(18,2)%> <% end if end if next %>

<% end if %>