<% section = "metrologia" extra = "add" lang = Request.QueryString("lang") If Request.QueryString("lang")="" Then lang = "ita" If lang = "eng" Then title = "RF generators" Else title = "Generatori RF" 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/emc_rf/tgr1050.jpg" link = "http://www.tti-test.com" pdf = "/pdf/tgr1050.pdf" case "2" immagine = "/img/emc_rf/2910rf.jpg" link = "http://www.keithley.com" pdf = "/pdf/2910.pdf" case "3" immagine = "/img/emc_rf/2810.jpg" link = "http://www.keithley.com" pdf = "" case "4" immagine = "/img/emc_rf/3500.jpg" link = "http://www.keithley.com" pdf = "" end select %> <% i=i+1 loop %>
<% end function MakeTemplate() %>