<% '################################################################################# ' # # 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 ' # # '################################################################################# %> <% if Request.QueryString("FORUM_ID") = "" and (Request.Form("Method_Type") <> "login") and (Request.Form("Method_Type") <> "logout") then Response.Redirect "default.asp" end if %> <% mypage = request("whichpage") if mypage = "" then mypage = 1 end if nDays = Request.Cookies(strCookieURL & "NumDays") if Request.form("cookie") = 1 then if strSetCookieToForum = "1" then Response.Cookies(strCookieURL & "NumDays").Path = strCookieURL end if Response.Cookies(strCookieURL & "NumDays") = Request.Form("days") Response.Cookies(strCookieURL & "NumDays").expires = strForumTimeAdjust + 365 nDays = Request.Form("Days") mypage = 1 end if if nDays = "" then nDays = 30 end if defDate = DateToStr(dateadd("d", -(nDays), StrToDate(strForumTimeAdjust))) if (strAuthType = "nt") then set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString call NTauthenticate() if (ChkAccountReg() = "1") then call NTUser() end if end if 'if strPrivateForums = "1" then ' if Request("Method_Type") = "" and (mLev <> 4) then ' chkUser4() ' end if 'end if %> <% if strPrivateForums = "1" then if Request("Method_Type") = "" and (mLev <> 4) then chkUser4() end if end if if (mLev = 4) or (chkForumModerator(Request.QueryString("FORUM_ID"), STRdbntUserName)= "1") or (lcase(strNoCookies) = "1") then AdminAllowed = 1 else AdminAllowed = 0 end if '## Forum_SQL - Find out if the Category is Locked or Un-Locked and if it Exists strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_STATUS " strSql = strSql & " FROM " & strTablePrefix & "CATEGORY " strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & Request.QueryString("CAT_ID") set rsCStatus = my_Conn.Execute (StrSql) '## Forum_SQL - Find out if the Topic is Locked or Un-Locked and if it Exists strSql = "SELECT " & strTablePrefix & "FORUM.F_STATUS " strSql = strSql & " FROM " & strTablePrefix & "FORUM " strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.QueryString("FORUM_ID") set rsFStatus = my_Conn.Execute (StrSql) '## Forum_SQL - Get all topics from DB strSql ="SELECT " & strTablePrefix & "TOPICS.T_STATUS, " & strTablePrefix & "TOPICS.CAT_ID, " strSql = strSql & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, " strSql = strSql & strTablePrefix & "TOPICS.T_VIEW_COUNT, " & strTablePrefix & "TOPICS.T_SUBJECT, " strSql = strSql & strTablePrefix & "TOPICS.T_MAIL, " & strTablePrefix & "TOPICS.T_AUTHOR, " strSql = strSql & strTablePrefix & "TOPICS.T_REPLIES, " & strTablePrefix & "TOPICS.T_LAST_POST, " strSql = strSql & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_NAME, " strSql = strSql & strMemberTablePrefix & "MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " strSql = strSql & strTablePrefix & "TOPICS, " strSql = strSql & strMemberTablePrefix & "MEMBERS AS " & strMemberTablePrefix & "MEMBERS_1 " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR " strSql = strSql & " AND " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR = "& strMemberTablePrefix & "MEMBERS_1.MEMBER_ID " strSql = strSql & " AND " & strTablePrefix & "TOPICS.FORUM_ID = " & Request.QueryString("FORUM_ID") & " " if nDays = "-1" then strSql = strSql & " AND " & strTablePrefix & "TOPICS.T_STATUS <> 0 " end if if nDays > "0" then strSql = strSql & " AND " & strTablePrefix & "TOPICS.T_LAST_POST > '" & defDate & "'" end if strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_LAST_POST DESC " if strDBType = "mysql" then 'MySql specific code if mypage > 1 then intOffset = CInt((mypage-1) * strPageSize) strSql = strSql & " LIMIT " & intOffset & ", " & strPageSize & " " end if '## Forum_SQL - Get the total pagecount strSql2 = "SELECT COUNT(" & strTablePrefix & "TOPICS.TOPIC_ID) AS PAGECOUNT " strSql2 = strSql2 & " FROM " & strTablePrefix & "TOPICS " strSql2 = strSql2 & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID > 0 " strSql2 = strSql2 & " AND " & strTablePrefix & "TOPICS.FORUM_ID = " & Request.QueryString("FORUM_ID") & " " if nDays = "-1" then strSql2 = strSql2 & " AND " & strTablePrefix & "TOPICS.T_STATUS <> 0 " end if if nDays > "0" then strSql2 = strSql2 & " AND " & strTablePrefix & "TOPICS.T_LAST_POST > '" & defDate & "'" end if set rsCount = my_Conn.Execute(strSql2) if not rsCount.eof then maxpages = (rsCount("PAGECOUNT") \ strPageSize ) if rsCount("PAGECOUNT") mod strPageSize <> 0 then maxpages = maxpages + 1 end if else maxpages = 0 end if rsCount.close set rs = Server.CreateObject("ADODB.Recordset") ' rs.cachesize=20 rs.open strSql, my_Conn, 3 if not (rs.EOF or rs.BOF) then rs.movefirst end if else 'end MySql specific code set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize=20 rs.open strSql, my_Conn, 3 if not (rs.EOF or rs.BOF) then rs.movefirst rs.pagesize = strPageSize maxpages = cint(rs.pagecount) rs.absolutepage = mypage end if end if '## Forum_SQL - Get all Forum Categories From DB strSql = "SELECT CAT_ID FROM " & strTablePrefix & "CATEGORY" set rsCat = my_Conn.Execute (StrSql) %> <% if rsCStatus.EOF = true OR rsFStatus.EOF = true then Response.Redirect("default.asp") end if %>
Elenco dei forum <% =strForumTitle %>
0 and rsFStatus("F_STATUS") <> 0 then Response.Write("images/icon_folder_open_topic.gif") else Response.Write("images/icon_folder_closed_topic.gif") %>" height=15 width=15 border="0"> <% =ChkString(Request.QueryString("FORUM_Title"),"display") %> 		<% if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (Request.Cookies(strUniqueID & "User")("Name") = "" or Request.Cookies(strUniqueID & "User")("Pword") = "") then %>
<% call PostNewTopic() %>
<% else %>   <% end if %>
" method="post" name="DaysFilter">
<% if maxpages > 1 then %>
Pagine:   <% Call Paging() %>
<% else %>   <% end if %>
<% if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then %> <% end if %> <% if rs.EOF or rs.BOF then %> <% else rec = 1 do until rs.EOF or (rec = strPageSize + 1) %> <% if IsNull(rs("T_LAST_POST_AUTHOR")) then strLastAuthor = "" else strLastAuthor = "
da: " if strUseExtendedProfile then strLastAuthor = strLastAuthor & "" else strLastAuthor = strLastAuthor & "" end if strLastAuthor = strLastAuthor & ChkString(rs("LAST_POST_AUTHOR_NAME"), "display") & "" end if %> <% if AdminAllowed = 1 or strNoCookies = "1" then %> <% end if %> <% rec = rec + 1 rs.MoveNext loop end if %>
  Discussione Autore Risposte Letto Ultima risposta<% call ForumAdminOptions() %>
Nessuna discussione presente
&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"><% if rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rs("T_STATUS") <> 0 then %><% =ChkIsNew(rs("T_LAST_POST")) %><% else if rs("T_LAST_POST") > Session(strCookieURL & "last_here_date") then Response.Write "" else Response.Write "" end if end if %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"><% =ChkString(left(rs("T_SUBJECT"), 50),"display") %> <% if strShowPaging = "1" then TopicPaging() end if%> <% =ChkString(rs("M_NAME"),"display") %> <% =rs("T_REPLIES") %> <% =rs("T_VIEW_COUNT") %><% =ChkDate(rs("T_LAST_POST")) %> <% =ChkTime(rs("T_LAST_POST")) %><%=strLastAuthor%> <% if rsCStatus("CAT_STATUS") = 0 then %> ')">Apri categoria <% else if rsFStatus("F_STATUS") = 0 then %> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"JSurlpath") %>')">Apri Forum <% else if rs("T_STATUS") <> 0 then %> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"JSurlpath") %>')">Chiudi discussione <% else %> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"JSurlpath") %>')">Apri discussione <% end if end if end if if (AdminAllowed = 1) or (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rs("T_STATUS") <> 0) then %> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&auth=<% =ChkString(rs("T_AUTHOR"),"urlpath") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"urlpath") %>">Modifica messaggio <% end if %> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"JSurlpath") %>')">Cancella discussione &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"urlpath") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">Rispondi
<% if maxpages > 1 then %>
Ci sono <% =maxpages %> pagine di discussione:    <% Call Paging() %>
<% else %>   <% end if %>

Nuovi messaggi Nuovi messaggi dall'ultima connessione.
Vecchi messaggi Nuove discussioni. <% if lcase(strHotTopic) = "1" then %>(Discussione Calda <% =intHotTopicNum %> o più; messaggi.)<% end if %>
Discussione chiusa Discussione chiusa.
<% if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") then %>

<% call PostNewTopic() %>

<% else %>   <% end if %>
<% Function ChkIsNew(dt) if lcase(strHotTopic) = "1" then if dt > Session(strCookieURL & "last_here_date") then if rs("T_REPLIES") >= intHotTopicNum Then ChkIsNew = "Discussione con più di " & intHotTopicNum & " messaggi" else ChkIsNew = "Nuova discussione" end if Else if rs("T_REPLIES") >= intHotTopicNum Then ChkIsNew = "Discussione con più di " & intHotTopicNum & " messaggi" else ChkIsNew = "" end if end if else if dt > Session(strCookieURL & "last_here_date") then ChkIsNew = "Nuova Discussione" Else ChkIsNew = "" end if end if End Function sub PostNewTopic() %> <% if rsCStatus("CAT_STATUS") = 0 or rsFStatus("F_STATUS") = 0 then if (AdminAllowed = 1) then %> &CAT_ID=<% =Request.QueryString("CAT_ID")%>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">Categoria chiusa &CAT_ID=<% =Request.QueryString("CAT_ID")%>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">Nuova discussione <% else %> Categoria chiusa Categoria chiusa <% end if else if rsFStatus("F_STATUS") <> 0 then %> &CAT_ID=<% =Request.QueryString("CAT_ID")%>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">Nuova discussione &CAT_ID=<% =Request.QueryString("CAT_ID")%>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">Nuova discussione <% else %> Forum Bloccato Forum chiuso <% end if end if %> <% end sub sub ForumAdminOptions() %> <% if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then if rsCStatus("CAT_STATUS") = 0 then if mlev = 4 then %> ')">Apri categoria <% else %> Category Locked <% end if else if rsFStatus("F_STATUS") <> 0 then %> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"JSurlpath") %>')">Chiudi Forum <% else %> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"JSurlpath") %>')">Apri Forum <% end if end if if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0) or (AdminAllowed = 1) then %> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"JSurlpath") %>&type=0">Modifica impostazioni del forum <% end if %> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"JSurlpath") %>')">Elimina Forum &CAT_ID=<% =Request.QueryString("CAT_ID")%>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"JSurlpath") %>">Nuova discussione <% end if %> <% end sub sub Paging() if maxpages > 1 then if mypage = "" then pge = 1 else pge = mypage end if scriptname = request.servervariables("script_name") Response.Write("") for counter = 1 to maxpages if counter <> cint(pge) then ref = "" Response.Write ref else Response.Write("") end if if counter mod strPageNumberSize = 0 then Response.Write("") end if next Response.Write("
" & " " & widenum(counter) & "" & counter & "" & " " & widenum(counter) & "" & counter & "
") end if end sub sub TopicPaging() mxpages = (rs("T_REPLIES") / strPageSize) if mxPages <> cint(mxPages) then mxpages = int(mxpages) + 1 end if if mxpages > 1 then Response.Write("") for counter = 1 to mxpages ref = "" Response.Write ref if counter mod strPageNumberSize = 0 then Response.Write("") end if next Response.Write("
" if ((mxpages > 9) and (mxpages > strPageNumberSize)) or ((counter > 9) and (mxpages < strPageNumberSize)) then ref = ref & " " end if ref = ref & widenum(counter) & "" & counter & "
 
") end if end sub %>