<% '################################################################################# ' # # copyright (c) 2000-2001 Snitz Forums ' # # ' # # questo programma č un software libero; potete ridistribuirlo e/o ' # # modificarlo sotto i termini dell' autorizzazione del grande pubblico di GNU ' # # come pubblicati dal fondamento libero del software; **time-out** o versione 2 ' # # autorizzazione, o qualsiasi successivo versione. ' # # ' # # Questo programma č distibuito nella speranza che possa essere utile, ' # # ma senza qualsiasi GARANZIA; senza persino la garanzia implicita di ' # # MERCHANTABILITY o IDONEITĀ PER SCOPI PRECISI. Per maggiori ragguagli consultare ' # # la licenza internazionale GNU e GPL. Troverete una copia della licenza all'interno ' # # del forum Snitz (http://forum.snitz.com) ' # # ' # # INFORMAZIONI PER GLI UTENTI ITALIANI ' # # ' # # Questo forum realizzato all'origine da Snitz Forums (http://forum.snitz.com) ' # # č stato modificato e trasformato completamente in Italiano da: ' # # Santarsiero Angelo, Lorusso Salvatore e Narciso Rocco ' # # Webmaster & Collaboratori di www.valvitalba.it ' # # ' # # I test, le correzioni del maggior numero di Bug ed errori\imprecisioni ' # # nonchč la compatibilitā del forum con il maggior numero di piattaforme ' # # sono stati effettuati da Lorenzo Pascucci webmaster di www.WebMasterPoint.org ' # # ' # # DISTRIBUZIONE DELLA VERSIONE ITALIANA ' # # La versione italiana del forum viene diffusa da WebMasterPoint.org: ' # # il punto di riferimento dei webmaster italiani. All'interno troverete ' # # una sezione dedicata allo Snitz Forums con il suddetto forum e molti ' # # Mods corretti e tradotti in italiano. http://www.webmasterpoint.org ' # # ' # # ' # # CONTATTI ' # # Per consigli, errori, modifiche e altro contattateci a questi indirizzi ' # # ' # # Staff di Valvitalba ' # # ---------------------------- ' # # Angelo angelo@valvitalba.it (Problemi grafici) ' # # Rocco rocco@valvitalba.it (Problemi logistici) ' # # Toto toto@valvitalba.it (Problemi linguaggio Asp) ' # # Sito: http://www.valvitalba.it ' # # ' # # Staff di WebMasterPoint ' # # ---------------------------- ' # # Lorenzo lorenzo.pascucci@webmasterpoint.org (Distribuzione, bug) ' # # Sito: http://www.webmasterpoint.org ' # # '################################################################################# %> <% strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name") strDBNTFUserName = Request.Form("Name") if strAuthType = "nt" then strDBNTUserName = Session(strCookieURL & "userID") strDBNTFUserName = Session(strCookieURL & "userID") end if if strAutoLogon = 1 then if (ChkAccountReg() <> "1") then Response.Redirect "register.asp?mode=DoIt" end if end if if IsEmpty(Session(strCookieURL & "last_here_date")) then Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName) end if if strShowStatistics <> "1" then set rs1 = Server.CreateObject("ADODB.Recordset") '## Forum_SQL strSql = "SELECT " & strTablePrefix & "TOTALS.P_COUNT, " & strTablePrefix & "TOTALS.T_COUNT, " & strTablePrefix & "TOTALS.U_COUNT " strSql = strSql & " FROM " & strTablePrefix & "TOTALS" rs1.open strSql, my_Conn Users = rs1("U_COUNT") Topics = rs1("T_COUNT") Posts = rs1("P_COUNT") rs1.Close set rs1 = nothing end if '## Forum_SQL - Get all Forums From DB strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_ID, " & strTablePrefix & "CATEGORY.CAT_STATUS, " strSql = strSql & strTablePrefix & "CATEGORY.CAT_NAME " strSql = strSql & " FROM " & strTablePrefix & "CATEGORY " strSql = strSql & ";" set rs = my_Conn.Execute (strSql) %>
<% ShowLastHere = (cint(ChkUser2(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"))) > 0) if strShowStatistics <> "1" then %>
<% if ShowLasthere then %> La tua ultima visita č datata - <% =ChkDate(Session(strCookieURL & "last_here_date")) %> <% =ChkTime(Session(strCookieURL & "last_here_date")) %> <% else %>   <% end if %> Ci sono <% =Posts %> messaggi <%=Topics %> "discussioni" e <% =Users %> utenti  
<% else Response.Write("  ") end if %>
<% if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then %> <% end if if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then %> <% end if %> <% if rs.EOF or rs.BOF then %> <% if (mlev = 4 or mlev = 3) then %> <% end if %> <% else intPostCount = 0 intTopicCount = 0 intForumCount = 0 strLastPostDate = "" do until rs.EOF '## Forum_SQL - Build SQL to get forums via category strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " strSql = strSql & strTablePrefix & "FORUM.F_STATUS, " strSql = strSql & strTablePrefix & "FORUM.CAT_ID, " strSql = strSql & strTablePrefix & "FORUM.F_SUBJECT, " strSql = strSql & strTablePrefix & "FORUM.F_URL, " strSql = strSql & strTablePrefix & "FORUM.F_DESCRIPTION, " strSql = strSql & strTablePrefix & "FORUM.CAT_ID, " strSql = strSql & strTablePrefix & "FORUM.F_TOPICS, " strSql = strSql & strTablePrefix & "FORUM.F_COUNT, " strSql = strSql & strTablePrefix & "FORUM.F_LAST_POST, " strSql = strSql & strTablePrefix & "FORUM.F_STATUS, " strSql = strSql & strTablePrefix & "FORUM.F_TYPE, " strSql = strSql & strTablePrefix & "FORUM.F_PRIVATEFORUMS, " strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_NAME " strSql = strSql & "FROM " & strTablePrefix & "FORUM " strSql = strSql & "LEFT JOIN " & strMemberTablePrefix & "MEMBERS ON " strSql = strSql & strTablePrefix & "FORUM.F_LAST_POST_AUTHOR = " strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID " strSql = strSql & " WHERE " & strTablePrefix & "FORUM.CAT_ID = " & rs("CAT_ID") & " " strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.F_SUBJECT ASC;" set rsForum = my_Conn.Execute (strSql) chkDisplayHeader = true if rsForum.eof or rsForum.bof then %> <% if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then %> <% end if %> <% Response.Write " " & vbCrLf & _ " " & vbCrLf if (mlev = 4 or mlev = 3) then Response.Write " " & vbCrLf end if Response.Write " " & vbCrLf else blnHiddenForums = false do until rsForum.Eof if ChkDisplayForum(rsForum("FORUM_ID")) then if rsForum("F_TYPE") <> "1" then intPostCount = intPostCount + rsForum("F_COUNT") intTopicCount = intTopicCount + rsForum("F_TOPICS") intForumCount = intForumCount + 1 if rsForum("F_LAST_POST") > strLastPostDate then strLastPostDate = rsForum("F_LAST_POST") intLastPostForum_ID = rsForum("FORUM_ID") end if end if if chkDisplayHeader then Response.Write " " & vbcrlf & _ " " & vbcrlf if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then Response.Write " " & vbcrlf end if Response.Write " " & vbcrlf chkDisplayHeader = false end if Response.Write " " & vbcrlf & _ " " & vbcrlf %> bgcolor="<% =strForumCellColor %>" valign="top"> "><% =ChkString(rsForum("F_SUBJECT"),"display") %>
<% = rsForum("F_DESCRIPTION") %> <% if rsForum("F_TYPE") = 0 then if IsNull(rsForum("F_TOPICS")) then %>
<% else %> <% end if if IsNull(rsForum("F_COUNT")) then %> <% else %> <% end if if IsNull(rsForum("MEMBER_ID")) then strLastUser = "" else strLastUser = "
da: " if strUseExtendedProfile then strLastUser = strLastUser & "" else strLastUser = strLastUser & "" end if strLastUser = strLastUser & ChkString(rsForum("M_NAME"),"display") & "" end if %>
<% else if rsForum("F_TYPE") = 1 then '## Do Nothing end if end if if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then %> <% end if if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then %> <% end if %> <% else blnHiddenForums = true end if ' ChkDisplayForum() rsForum.MoveNext loop end if rs.MoveNext loop end if if strShowStatistics = "1" then WriteStatistics end if %>
  Forum Discussioni Messaggi Ultimo messaggioModeratori<% PostingOptions() %>
">Nessuna Categoria / Forum Esistenti 
"><% =ChkString(rs("CAT_NAME"),"display") %><% call CategoryAdminOptions() %>
No Forums Found 
" & ChkString(rs("CAT_NAME"),"display") & "" call CategoryAdminOptions() Response.Write "
" & vbcrlf if rsForum("F_TYPE") = 0 then if rs("CAT_STATUS") = 0 then Response.Write " " if rsForum("F_LAST_POST") > Session(strCookieURL & "last_here_date") then Response.Write "" else Response.Write "" end if else if rsForum("F_STATUS") <> 0 then Response.Write " " & ChkIsNew(rsForum("F_LAST_POST")) & "" else Response.Write " " if rsForum("F_LAST_POST") > Session(strCookieURL & "last_here_date") then Response.Write "" else Response.Write "" end if end if end if else if rsForum("F_TYPE") = 1 then Response.Write "" end if end if Response.Write " 0<% =rsForum("F_TOPICS") %>0<% =rsForum("F_COUNT") %><% =ChkDate(rsForum("F_LAST_POST")) %>
<% =ChkTime(rsForum("F_LAST_POST")) %><%= strLastUser%>
<% if (listForumModerators(rsForum("FORUM_ID")) <> "") then Response.Write(listForumModerators(rsForum("FORUM_ID"))) else Response.Write(" ") end if %> <% call ForumAdminOptions %>
Nuovi messaggiNuovi messaggi dall'ultima visita.
Vecchi messaggi Nessun nuovo messaggio dall'ultima visita.
<% set rs = nothing set rsForum = nothing %> <% sub PostingOptions() if (mlev = 4) or (lcase(strNoCookies) = "1") then Response.Write "" & vbcrlf else Response.Write " " & vbcrlf end if end sub function ChkIsNew(dt) if rsForum("F_STATUS") <> 0 then if dt > Session(strCookieURL & "last_here_date") then ChkIsNew = "Nuovi messaggi" Else ChkIsNew = "Vecchi messaggi" end if else ChkIsNew = "Forum chiuso" end if end function sub CategoryAdminOptions() if (mlev = 4) or (lcase(strNoCookies) = "1") then if (rs("CAT_STATUS") <> 0) then Response.Write " " & vbcrlf else Response.Write " " & vbcrlf end if if (rs("CAT_STATUS") <> 0) or (mlev = 4) then Response.Write " " & vbcrlf end if Response.Write " " & vbcrlf if (rs("CAT_STATUS") <> 0) or (mlev = 4) then Response.Write " " & vbcrlf end if if (rs("CAT_STATUS") <> 0) or (mlev = 4) then Response.Write " " & vbcrlf end if else Response.Write "  " & vbcrlf end if end sub sub ForumAdminOptions() if (mLev = 4) or (chkForumModerator(rsForum("FORUM_ID"), strDBNTUserName) = "1") or (lcase(strNoCookies) = "1") then if rsForum("F_TYPE") = 0 then if rs("CAT_STATUS") = 0 then if (mlev = 4) then %> ')">Apri categoria <% end if else if rsForum("F_STATUS") = 1 then %> &CAT_ID=<% =rsForum("CAT_ID") %>&Forum_Title=<% =ChkString(rsForum("F_SUBJECT"),"JSurlpath")%>')">Blocca Forum <% else %> &CAT_ID=<% =rsForum("CAT_ID") %>&Forum_Title=<% =ChkString(rsForum("F_SUBJECT"),"JSurlpath")%>')">Sblocca Forum <% end if end if end if if rsForum("F_TYPE") = 0 then if (rs("CAT_STATUS") <> 0 and rsForum("F_STATUS") <> 0) or (mlev = 4 or mlev = 3) then %> &CAT_ID=<% =rsForum("CAT_ID") %>&Forum_Title=<% =ChkString(rsForum("F_SUBJECT"),"urlpath") %>&type=0">Modifica impostazioni del forum <% end if else if rsForum("F_TYPE") = 1 then %> &CAT_ID=<% =rsForum("CAT_ID") %>&Forum_Title=<% =ChkString(rsForum("F_SUBJECT"),"urlpath") %>&type=1">Modifica impostazioni URL <% end if end if if (mlev = 4) or (lcase(strNoCookies) = "1") then %> &CAT_ID=<% =rsForum("CAT_ID") %>&Forum_Title=<% =ChkString(rsForum("F_SUBJECT"),"JSurlpath") %>')">Elimina forum <% end if if rsForum("F_TYPE") = 0 then if (mlev = 4) or (lcase(strNoCookies) = "1") then %> &CAT_ID=<% =rsForum("CAT_ID") %>&Forum_Title=<% =ChkString(rsForum("F_SUBJECT"),"urlpath") %>">Nuova discussione <% end if end if else Response.Write " " end if end sub sub WriteStatistics() Dim Forum_Count Dim NewMember_Name, NewMember_Id, Member_Count Dim LastPostDate, LastPostLink set rs = Server.CreateObject("ADODB.Recordset") Forum_Count = intForumCount '## Forum_SQL - Get newest membername and id from DB strSql = "SELECT M_NAME, MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS=1 AND MEMBER_ID > 1" strSql = strSQL & " ORDER BY M_DATE desc;" set rs = my_Conn.Execute(strSql) if not rs.EOF then NewMember_Name = ChkString(rs("M_NAME"), "display") NewMember_Id = rs("MEMBER_ID") else NewMember_Name = "" end if '## Forum_SQL - Get Active membercount from DB strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS WHERE M_POSTS > 0 AND M_STATUS=1" set rs = my_Conn.Execute(strSql) if not rs.EOF then Member_Count = rs("U_COUNT") else Member_Count = 0 end if LastPostDate = "" LastPostLink = "" LastPostAuthorLink = "" if not (intLastPostForum_ID = "") then '## Forum_SQL - Get lastPostDate and link to that post from DB strSql = "SELECT " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "FORUM.FORUM_ID, " strSql = strSql & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_SUBJECT, " strSql = strSql & strTablePrefix & "TOPICS.T_LAST_POST, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.MEMBER_ID " strSql = strSql & "FROM " & strTablePrefix & "FORUM, " & strTablePrefix & "TOPICS, " strSql = strSql & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID " strSql = strSql & " AND " & strTablePrefix & "FORUM.CAT_ID = " & strTablePrefix & "TOPICS.CAT_ID " strSql = strSql & " AND " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR = " & strMemberTablePrefix & "MEMBERS.MEMBER_ID " strSql = strSql & " AND " & strTablePrefix & "FORUM.FORUM_ID = " & intLastPostForum_ID & " " strSql = strSql & "ORDER BY " & strTablePrefix & "TOPICS.T_LAST_POST DESC;" set rs = my_Conn.Execute(strSql) if not rs.EOF then LastPostDate = ChkDate(rs("T_LAST_POST")) & ChkTime(rs("T_LAST_POST")) LastPostLink = "topic.asp?TOPIC_ID=" & rs("TOPIC_ID") & "&FORUM_ID=" & rs("FORUM_ID") & "&CAT_ID=" & rs("CAT_ID") LastPostLink = LastPostLink & "&Topic_Title=" & ChkString(rs("T_SUBJECT"),"urlpath") LastPostLink = LastPostLink & "&Forum_Title=" & ChkString(rs("F_SUBJECT"),"urlpath") LastPostAuthorLink = " eseguito da: " strMember_ID = rs("MEMBER_ID") strM_NAME = ChkString(rs("M_NAME"),"display") if strUseExtendedProfile then LastPostAuthorLink = LastPostAuthorLink & "" else LastPostAuthorLink = LastPostAuthorLink & "" end if LastPostAuthorLink = LastPostAuthorLink & strM_NAME & "" end if end if ActiveTopicCount = -1 if not IsNull(Session(strCookieURL & "last_here_date")) then if not blnHiddenForums then '## Forum_SQL - Get ActiveTopicCount from DB strSql = "SELECT COUNT(" & strTablePrefix & "TOPICS.T_LAST_POST) AS NUM_ACTIVE " strSql = strSql & "FROM " & strTablePrefix & "TOPICS " strSql = strSql & "WHERE (((" & strTablePrefix & "TOPICS.T_LAST_POST)>'"& Session(strCookieURL & "last_here_date") & "'))" set rs = my_Conn.Execute(strSql) if not rs.EOF then ActiveTopicCount = rs("NUM_ACTIVE") else ActiveTopicCount = 0 end if end if end if rs.close set rs = nothing ShowLastHere = (cint(ChkUser2(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"))) > 0) %> ">Statistiche " bgcolor="<%= strForumCellColor %>">  "> Utenti nel Forum: <%=strOnlineMembersCount%> Membri  <%=strOnlineGuestsCount%> Anonimi  <% if ShowLastHere then %> "> La tua ultima visita è del <% =ChkDate(Session(strCookieURL & "last_here_date")) %> <% =ChkTime(Session(strCookieURL & "last_here_date")) %> <% end if if intPostCount > 0 then %> "> <% if Member_Count = 1 then Response.Write("1 utente ha ") else Response.Write(Member_Count & " utenti hanno ") end if %> scritto <% if intPostCount = 1 then Response.Write("1 messaggio ") else Response.Write(intPostCount & " messaggi") end if %> in <% if intForumCount = 1 then Response.Write("1 forum") else Response.Write(intForumCount & " forum") end if %> <% if (LastPostDate = "" or LastPostLink = "" or intPostCount = 0) then Response.Write("") else Response.Write(", e l'ultimo messaggio č datato "& lastPostDate & "") if LastPostAuthorLink <> "" then Response.Write(LastPostAuthorLink & ".") else Response.Write(".") end if end if %> <% end if %> "> <% if intTopicCount = 1 then Response.Write("C'č ") else Response.Write("Ci sono ") end if%> <%= intTopicCount %> <%if intTopicCount = 1 then Response.Write(" discussione ") else Response.Write(" discussioni") end if %><% if ActiveTopicCount > 0 then %> e <%= ActiveTopicCount %>attive <% if ActiveTopicCount = 1 then Response.Write("topic") else Response.Write("topics") end if %> dalla tua ultima visita.<% elseif blnHiddenForums and (strLastPostDate > Session(strCookieURL & "last_here_date")) and ShowLastHere then %> e ci sono discussioni attive dalla tua ultima visita.<% elseif not(ShowLastHere) then Response.Write "." else %>e nessuna discussione attiva dalla tua ultima visita.<% end if %> <% if NewMember_Name <> "" then %> "> Benvenuto all'ultimo iscritto, <% if strUseExtendedProfile then Response.Write " " else Response.Write " " end if Response.Write NewMember_Name & "." & vbcrlf %> <% end if end sub %>