%@ Language=Vbscript %>
<% Dim Giornata,Nazione,Anno,Serie,CVAsp,I Set CVAsp = Server.CreateObject("ASPLIB.CVAsp") Nazione=Cint(Request.QueryString ("Nazione")) Serie=Cint(Request.QueryString ("Serie")) Anno=Cint(Request.QueryString ("Anno")) Giornata=Cint(Request.QueryString ("Giornata")) CVAsp.CaricaNazione(Nazione) if Serie > CVAsp.NumeroCampionati (Nazione) then Serie=CVAsp.NumeroCampionati (Nazione) CVAsp.Serie=Serie if (Anno > CVAsp.MaxAnno) or (Anno=0) then Anno=CVAsp.MaxAnno if Anno < CVAsp.MinAnno then Anno=CVAsp.MinAnno CVAsp.Anno=Anno %>