<%
section = "metrologia"
extra = "add"
lang = Request.QueryString("lang")
If Request.QueryString("lang")="" Then lang = "ita"
If lang = "eng" Then
title = "Power suppliers"
Else
title = "Alimentatori"
End if
function MakeContent()
%>
<%= title %>
<%
i=1
Do While i <= 6
If lang = "eng" Then %>
<% Else %>
<% End if
select case i
case "1"
immagine = "/img/tm_alime/psm.gif"
link = "http://www.goodwill.com.tw/Main_Index/index_english.htm"
pdf = "/pdf/psm-series.pdf"
case "2"
immagine = "/img/tm_alime/sps.gif"
link = ""
pdf = "/pdf/sps_series.pdf"
case "3"
immagine = "/img/tm_alime/gps.gif"
link = ""
pdf = "/pdf/gps_mos.pdf"
case "4"
immagine = "/img/tm_alime/pl-pserie.gif"
link = "http://www.tti-test.com"
pdf = ""
case "5"
immagine = "/img/tm_alime/exserie.gif"
link = "http://www.tti-test.com"
pdf = ""
case "6"
immagine = "/img/tm_alime/alimenta.gif"
link = "http://www.eutronsnc.it/"
pdf = ""
end select
%>
<%
i=i+1
loop %>