<% if request.querystring("cl") = "S" then if Session("Language") = "" then Session("Language") = "En" else Session("Language") = "" end if end if %> Movie WebCam - Bari Palese (Intervallo 1 ora 12.00/13.00)                  <% Sub BubbleSort(arr, numEls, descending ) Dim value Dim index Dim firstItem Dim indexLimit, lastSwap firstItem = LBound(arr) lastSwap = numEls Do indexLimit = lastSwap - 1 lastSwap = 0 For index = firstItem To indexLimit value = arr(index) If (value < arr(index + 1)) Xor descending Then arr(index) = arr(index + 1) arr(index + 1) = value lastSwap = index End If Next Loop While lastSwap End Sub Function AAdd( v, Value ) NumEle = -1 on error resume next NumEle = ubound(v) on error goto 0 if NumEle = -1 then NumEle = 0 ReDim v(NumEle) v(NumEle) = Value else ReDim Preserve v(NumEle+1) v(NumEle+1) = Value end if End Function %> <% Function GetUserInfo() Set WinNTInfo = Server.CreateObject("WinNTSystemInfo") GetUserInfo = WinNTInfo.Username End Function %>