<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Const MAX_PAGE = 3 Dim vPage : vPage = Trim(Request.QueryString("p")) Dim vImage1, vImage2, vImage3, vImage4, vImage5, vImage6 If vPage = "" Then vPage = 1 If Not IsNumeric(vPage) Then vPage = 1 If CLng(vPage) < 1 Or CLng(vPage) > MAX_PAGE Then vPage = 1 Select Case CLng(vPage) Case 1 vImage1 = "ptAbout.gif" vImage2 = "ptAboutEdge.gif" vImage3 = "ptServiceDay.gif" vImage4 = "ptServiceFull.gif" vImage5 = "ptServiceDay.gif" vImage6 = "ptServiceDebut.gif" Case 2 vImage1 = "imgAbout.jpg" vImage2 = "imgAboutEdge.jpg" vImage3 = "imgService.jpg" vImage4 = "imgServiceFull.jpg" vImage5 = "imgServiceDay.jpg" vImage6 = "imgServiceDebut.jpg" Case 3 vImage1 = "ptAbout.gif" vImage2 = "ptAboutEdge.gif" vImage3 = "ptServiceDay.gif" vImage4 = "imgServiceFull.jpg" vImage5 = "imgServiceDay.jpg" vImage6 = "imgServiceDebut.jpg" End Select %> Eventi
 




<% If CLng(vPage) > 1 Then %> Previous    <% End If %> <% For vCounter = 1 To MAX_PAGE %> <% If CLng(vPage) <> vCounter Then %><% End If %> <% If CLng(vPage) = vCounter Then %><% End If %> <% =vCounter %> <% If CLng(vPage) = vCounter Then %><% End If %> <% If CLng(vPage) <> vCounter Then %><% End If %>  |  <% Next %> <% If CLng(vPage) < MAX_PAGE Then %>   Next <% End If %>