Questa sezione del sito è dedicata a coloro i quali vogliano interagire proponendo temi di discussione su argomenti di carattere esclusivamente giuridico. Il forum è moderato dall'avvocato Filippo De Magistris il quale, a propria discrezione, ha facoltà di pubblicare o modificare il messaggio che sarà visualizzato sulla pagina.


elenco discussioni | nuova discussione <% if (request.querystring("password") = "AbsoluteOpera") or (session("password") = "ok") then session("password") = "ok" response.write "| messaggi da approvare" end if %>

<% dim Data, Nome, Email, Oggetto, Repliche, Messaggio dim filename, filepath dim replyto,replypath sub PreparaDirectory(replypath, replyto) dim fs set fs = CreateObject("Scripting.FileSystemObject") if (replyto <> "") then path = Server.MapPath(replypath) set folder = fs.GetFolder(path) set fc = folder.SubFolders esiste = false for each f1 in fc esiste = esiste or (f1.name = replyto) next if not esiste then set nf = fc.Add(replyto) ' Crea la directory end if end if filepath = fs.BuildPath(replypath, replyto) set fs = nothing end sub sub BrowserMessaggi2(pathstr, livello) dim fs, f, f1, fc, s, files count = 0 set fs = CreateObject("Scripting.FileSystemObject") if FS.FolderExists(Server.MapPath(pathstr)) then Set f = fs.GetFolder(Server.MapPath(pathstr)) Set fc = f.Files files = "" filescount = 0 filesdate = "" ' *** RECUPERA I FILE NELLA DIRECTORY E LA DATA DI CREAZIONE DI OGNUNO for each f1 in fc if InStr(f1.name, ".txt") > 0 then files = files & f1.name & "§" filesdate = filesdate & f1.datecreated & "§" filescount = filescount + 1 end if next ' *** Ordina i file dal più recente al più vecchio files = split(files,"§",-1, 1) filesdate = split(filesdate,"§",-1, 1) if (filescount = 0) then response.write "Nessuna discussione presente" else for i = 0 to filescount-2 for j = i+1 to filescount-1 if (DateValue(filesdate(i)) < DateValue(filesdate(j))) or ((DateValue(filesdate(i)) = DateValue(filesdate(j))) and (TimeValue(filesdate(i)) < TimeValue(filesdate(j))) )then a = files(j) b = filesdate(j) files(j) = files(i) filesdate(j) = filesdate(i) files(i) = a filesdate(i) = b end if next next for i = 0 to filescount-1 call VisualizzaHeader(pathstr, replace(files(i), ".txt", ""), livello+1) next end if else if (livello = 0) then response.write "Nessuna risposta" end if end sub sub ReplyCounter(msgpath, filename, count) Dim fs, f, f1, fc, s count = 0 set fs = CreateObject("Scripting.FileSystemObject") if FS.FolderExists(Server.MapPath(msgpath & "/" & filename)) then Set f = fs.GetFolder(Server.MapPath(msgpath & "/" & filename)) Set fc = f.Files For Each f1 in fc if (InStr(f1.name, ".txt") > 0) then count = count + 1 Next end if end sub sub GetMessage(msgpath, filename, readtext) dim FS, file, path path = Server.MapPath(msgpath & "/" & filename & ".txt") 'response.write path & "
" set FS = Server.CreateObject("Scripting.FileSystemObject") set file = FS.OpenTextFile(path) data = file.readline Nome = Replace(Replace(file.readline,"<","<"),">",">") Email = Replace(Replace(file.readline,"<","<"),">",">") Oggetto = Replace(Replace(file.readline,"<","<"),">",">") Repliche = 0 call ReplyCounter(msgpath, filename, Repliche) Messaggio = "" if ReadText then do while not file.AtEndOfStream Messaggio = Messaggio & Replace(Replace(file.readline,"<","<"),">",">") & "
" loop end if file.close set file = nothing set FS = nothing end sub sub VisualizzaEditor %>
Attenzione, il messaggio dovrà essere approvato dal moderatore prima di poter apparire in questo forum. Grazie.
Nome
E-mail
Oggetto
 ">

Messaggio

 

 

 

<% end sub sub VisualizzaHeader(msgpath, filename, livello) call GetMessage(msgpath, filename, false) expanded = InStr(Session("expanded"), "*" & msgpath & "/" & filename & "*") > 0 for i = 1 to livello response.write "  " next if Repliche > 0 then if not expanded then response.write " " else response.write " " end if else response.write " " end if response.write "" response.write "  " & Oggetto & " " response.write " - [" & Nome & "]" response.write "  repliche " & Repliche & " " response.write "- " & Data & "
" if (expanded) then call BrowserMessaggi2(msgpath & "/" & filename, livello+1) end if end sub sub VisualizzaMessaggio(msgpath, msg) call GetMessage(msgpath, msg, true) %> MESSAGGIO

Nome <%=Nome%>
E-mail <%=Email%>
Data Post <%=Data%>
Oggetto <%=Oggetto%>

<%=Messaggio%>

rispondi al messaggio

<% end sub if len(request.querystring("cmd")) > 0 then if request.querystring("cmd") = "browse" then Session("action") = "" end if if (Session("action") = "new") then Session("action") = "" call VisualizzaEditor 'call BrowserMessaggi("messaggi", 0) ' Visualizza il tree dei reply al messaggio cliccato elseif (Session("action") = "back") then Session("action") = "none" call BrowserMessaggi2("messaggi", 0) ' Visualizza il tree principale elseif (Session("action") = "reply") then call VisualizzaMessaggio(Session("msgpath"), Session("msg")) ' Visualizza il messaggio cliccato response.write "RISPONDI AL MESSAGGIO" call VisualizzaEditor response.write "RISPOSTE

" call BrowserMessaggi2(Session("msgpath") & "/" & Session("msg"), 0) ' Visualizza il tree dei reply al messaggio cliccato for i = 1 to 10 response.write "
" next elseif (Session("action") = "detail") then call VisualizzaMessaggio(Session("msgpath"), Session("msg")) response.write "RISPOSTE

" call BrowserMessaggi2(Session("msgpath") & "/" & Session("msg"), 0) for i = 1 to 10 response.write "
" next else call BrowserMessaggi2("messaggi", 0) for i = 1 to 10 response.write "
" next end if %>

Copyright 2001 - Tangram Design