<%
section = "metrologia"
extra = "add"
lang = Request.QueryString("lang")
If Request.QueryString("lang")="" Then lang = "ita"
If lang = "eng" Then
title = "Telecom partners"
Else
title = "Telecom partners"
End if
function MakeContent()
%>
<%= title %>
<%
i=1
Do While i <= 13
If lang = "eng" Then %>
<% Else %>
<% End if
cat = "PARTNERS"
select case i
case "1"
immagine = "/img/part_tele/aten.jpg"
link = "http://www.aten.it"
pdf = ""
case "2"
immagine = "/img/part_tele/logo_alt.gif"
link = "http://www.silicomp.it"
pdf = ""
case "3"
immagine = "/img/part_tele/comtest.gif"
link = "http://www.comtest.it"
pdf = ""
case "4"
immagine = "/img/part_tele/exfo.gif"
link = "http://www.exfo.com"
pdf = ""
case "5"
immagine = "/img/part_tele/fujikura.gif"
link = "http://www.fujikura.co.jp/"
pdf = ""
case "6"
immagine = "/img/part_tele/heuer.gif"
link = "http://www.heuer.com.au/"
pdf = ""
case "7"
immagine = "/img/part_tele/network.gif"
link = "http://www.sniffer.com"
pdf = ""
case "8"
immagine = "/img/part_tele/pantong.gif"
link = "http://www.pantongt.com"
pdf = ""
case "9"
immagine = "/img/part_tele/sunrise.gif"
link = "http://www.sunrisetelecom.com"
pdf = ""
case "10"
immagine = "/img/part_tele/tecon.gif"
link = "http://www.tecontlc.com/"
pdf = ""
case "11"
immagine = "/img/part_tm/tektronix.jpg"
link = "http://www.tek.com"
pdf = ""
case "12"
immagine = "/img/part_tm/visionist.gif"
link = "http://www.visionist.it"
pdf = ""
case "13"
immagine = "/img/part_tele/willtek.gif"
link = "http://www.willtek.com/"
pdf = ""
end select
%>
<%
i=i+1
loop %>