<% section = "metrologia" extra = "add" lang = Request.QueryString("lang") If Request.QueryString("lang")="" Then lang = "ita" If lang = "eng" Then title = "Optical networks" Else title = "Reti ottiche" End if function MakeContent() %>

<%= title %>

<% i=1 Do While i <= 4 If lang = "eng" Then %> <% Else %> <% End if select case i case "1" immagine = "/img/tele_dati/ssmtt.jpg" link = "http://www.sunrisetelecom.com/" pdf = "/pdf/ssmtt.pdf" case "2" immagine = "/img/tele_ottici/s_stt.jpg" link = "http://www.sunrisetelecom.com/" pdf = "/pdf/s_stt.pdf" case "3" immagine = "/img/tele_ottici/ftb100b.jpg" link = "http://www.exfo.com/" pdf = "/pdf/ftb100b.pdf" case "4" immagine = "/img/tele_ottici/ideal.jpg" link = "http://www.wavetek.com/" pdf = "/pdf/ideal.pdf" end select %> <% i=i+1 loop %>
<% end function MakeTemplate() %>