Associazione Toscana Paraplegici

<% ' ATTENZIONE: LA PERSONALIZZAZIONE SI EFFETTUA MODIFICANDO I FILE CONFIG.ASP, SKIN.ASP E MULTISKIN.ASP ' VisuBox 4 - gennaio 2005 ' http://www.visubox.com ' Copyright 2001 Visuddhi ' http://www.visuddhi.com ' ATTENZIONE - Reverse engineer of this application is a violation of Terms & Conditions. ' calcoli d'ingombro oggetti Dim visu_width_plus, visu_height_plus visu_width_plus = 0 : visu_height_plus = 0 If visu_use_drag Then visu_width_plus = 10 If visu_use_drag Then visu_height_plus = 28 If visu_use_popup Or visu_use_showhide Then visu_height_plus = visu_height_plus + 20 ' inserimento dell'oggetto Macromedia Flash (richiede il Flash Player 6) Dim visu_swfObj visu_swfObj = "

" ' prima parte oggetto drag Dim visu_dragStart visu_dragStart = "

" & VbCrLf visu_dragStart = visu_dragStart & "

" visu_dragStart = visu_dragStart & visu_text_drag & "

" & VbCrLf ' seconda parte oggetto drag Dim visu_dragEnd visu_dragEnd = visu_dragEnd & VbCrLf & "

" & VbCrLf visu_dragEnd = visu_dragEnd & "

" & VbCrLf ' script drag Dim visu_dragScript visu_dragScript = "" & VbCrLf ' prima parte oggetto scroller Dim visu_scrollStart visu_scrollStart = "

" & VbCrLf ' seconda parte oggetto scroller Dim visu_scrollEnd visu_scrollEnd = "

" & VbCrLf ' script scroller Dim visu_scrollScript visu_scrollScript = "" & VbCrLf ' pulsante per il popup Dim visu_popupAll visu_popupAll = "

" & VbCrLf visu_popupAll = visu_popupAll & "" & VbCrLf visu_popupScript = visu_popupScript & "" & VbCrLf ' seconda parte oggetto popup If Request.Cookies("visu_pop") = "1" Then visu_popupAll = visu_popupAll & "noPopUp()'>" & visu_text_no_popup Else visu_popupAll = visu_popupAll & "popUp()'>" & visu_text_popup End If visu_popupAll = visu_popupAll & "" & VbCrLf visu_popupAll = visu_popupAll & "

" & VbCrLf ' oggetto show hide Dim visu_showhideAll visu_showhideAll = "" & VbCrLf visu_showhideAll = visu_showhideAll & "

" & VbCrLf visu_showhideAll = visu_showhideAll & "" & visu_text_show & "" & VbCrLf visu_showhideAll = visu_showhideAll & "

" & VbCrLf visu_showhideAll = visu_showhideAll & "

" & VbCrLf visu_showhideAll = visu_showhideAll & "" & VbCrLf visu_showhideAll = visu_showhideAll & "

" & VbCrLf ' script per l'oggetto show hide Dim visu_showhideScript visu_showhideScript = "" & VbCrLf ' controllo di provenienza della VisuBox If visu_check_site = 1 Then If InStr(visu_list_site, Request.ServerVariables("SERVER_NAME")) < 1 Then visu_swfObj = visu_text_site visu_swfObj = "" & VbCrLf & visu_swfObj ' costruzione visubox personalizzata Dim yourVisuBox yourVisuBox = "" If Request.QueryString("visu_pop") = "1" Or Request.QueryString("visu_showhide") = "1" Then yourVisuBox = yourVisuBox & " " & VbCrLf & visu_swfObj & "

" Else If visu_use_showhide Or Request.Cookies("visu_pop") = "1" Then visu_height = 0 If visu_position_visubox = "absolute" Then visu_height = 0 : visu_height_plus = 0 yourVisuBox = yourVisuBox & "

" & VbCrLf If visu_use_scroll = 1 Then yourVisuBox = yourVisuBox & visu_scrollStart If visu_use_drag = 1 Then yourVisuBox = yourVisuBox & visu_dragStart If visu_use_popup = 1 Then If Request.Cookies("visu_pop") <> "1" Then yourVisuBox = yourVisuBox & visu_swfObj yourVisuBox = yourVisuBox & visu_popupAll & visu_popupScript Else If Request.QueryString("visu_showhide") <> "1" And visu_use_showhide = 1 Then yourVisuBox = yourVisuBox & visu_showhideAll & visu_showhideScript Else yourVisuBox = yourVisuBox & visu_swfObj & VbCrLf End If If visu_use_drag = 1 Then yourVisuBox = yourVisuBox & visu_dragEnd If visu_use_scroll = 1 Then yourVisuBox = yourVisuBox & visu_scrollEnd If visu_use_drag = 1 Then yourVisuBox = yourVisuBox & visu_dragScript If visu_use_scroll = 1 Then yourVisuBox = yourVisuBox & visu_scrollScript yourVisuBox = yourVisuBox & "

" End If ' scrive il risultato Response.Write yourVisuBox %>