<% '################################################################################# ' # # 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 ' # # '################################################################################# %> <% '## Do Cookie stuffs with reload nRefreshTime = Request.Cookies(strCookieURL & "Reload") if Request.form("cookie") = "1" then if strSetCookieToForum = 1 then Response.Cookies(strCookieURL & "Reload").Path = strCookieURL end if Response.Cookies(strCookieURL & "Reload") = Request.Form("RefreshTime") Response.Cookies(strCookieURL & "Reload").expires = strForumTimeAdjust + 365 nRefreshTime = Request.Form("RefreshTime") end if if nRefreshTime = "" then nRefreshTime = 0 end if ActiveSince = Request.Cookies(strCookieURL & "ActiveSince") '## Do Cookie stuffs with show last date if Request.form("cookie") = "2" then ActiveSince = Request.Form("ShowSinceDateTime") if strSetCookieToForum = 1 then Response.Cookies(strCookieURL & "ActiveSince").Path = strCookieURL end if Response.Cookies(strCookieURL & "ActiveSince") = ActiveSince end if Select Case ActiveSince Case "2" lastDate = "" Case "10" lastDate = DateToStr(DateAdd("h",-1,strForumTimeAdjust)) Case "1" lastDate = DateToStr(DateAdd("d",-1,strForumTimeAdjust)) Case "7" lastDate = DateToStr(DateAdd("ww",-1,strForumTimeAdjust)) Case "30" lastDate = DateToStr(DateAdd("m",-1,strForumTimeAdjust)) Case Else lastDate = "" End Select %> <% if IsEmpty(Session(strCookieURL & "last_here_date")) then Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName) end if if lastDate = "" then lastDate = Session(strCookieURL & "last_here_date") end if if Request.Form("AllRead") = "Y" then Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName) Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName) lastDate = Session(strCookieURL & "last_here_date") ActiveSince = "" end if '## Forum_SQL - Get all active topics from last visit strSql = "SELECT " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "TOPICS.T_STATUS, " strSql = strSql & strTablePrefix & "TOPICS.T_VIEW_COUNT, " & strTablePrefix & "TOPICS.FORUM_ID, " strSql = strSql & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.CAT_ID, " strSql = strSql & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_MAIL, " strSql = strSql & strTablePrefix & "TOPICS.T_AUTHOR, " & strTablePrefix & "TOPICS.T_REPLIES, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR, " strSql = strSql & strTablePrefix & "TOPICS.T_LAST_POST, " & strMemberTablePrefix & "MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME " strSql = strSql & "FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "FORUM, " strSql = strSql & strTablePrefix & "TOPICS, " & strMemberTablePrefix & "MEMBERS AS " & strMemberTablePrefix & "MEMBERS_1 " strSql = strSql & "WHERE " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR = " & strMemberTablePrefix & "MEMBERS_1.MEMBER_ID " strSql = strSql & "AND " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID " strSql = strSql & "AND " & strTablePrefix & "FORUM.CAT_ID = " & strTablePrefix & "TOPICS.CAT_ID " strSql = strSql & "AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR " strSql = strSql & "AND " & strTablePrefix & "TOPICS.T_LAST_POST > '" & lastDate & "'" strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.T_LAST_POST DESC;" set rs = my_Conn.Execute (strSql) %>
 Tutti i Forum
  Discussioni attive non visitate:
 

<% 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) or (lcase(strNoCookies) = "1") then %> <% end if %> <%else currForum = 0 fDisplayCount = 0 do until rs.EOF '## 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 = " & rs("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 = " & rs("FORUM_ID") set rsFStatus = my_Conn.Execute (StrSql) if ChkForumAccess(rs("FORUM_ID")) then if (mLev = 4) or ((chkForumModerator(rs("FORUM_ID"), Session(strCookieURL & "username"))= "1") and mLev = 3) or ((chkForumModerator(rs("FORUM_ID"), Request.Cookies(strCookieURL & "User")("Name")) = "1") and mlev = 3) or (lcase(strNoCookies) = "1") then AdminAllowed = 1 else AdminAllowed = 0 end if fDisplayCount = fDisplayCount + 1 if currForum <> rs("FORUM_ID") then %> <% if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then %> <%elseif (mLev = 3) then%> <% end if %> <% end if %> <% if IsNull(rs("T_LAST_POST_AUTHOR")) then strLastAuthor = "" else strLastAuthor = "
by: " if strUseExtendedProfile then strLastAuthor = strLastAuthor & "" else strLastAuthor = strLastAuthor & "" end if strLastAuthor = strLastAuthor & rs("LAST_POST_AUTHOR_NAME") & "" end if %> <% if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then %> <% elseif (mLev = 3) then%> <% end if %> <% end if currForum = rs("FORUM_ID") %> <% rs.MoveNext loop if fDisplayCount = 0 then %> <% if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then %> <% end if end if end if %>
<%If not(rs.EOF or rs.BOF) and (mLev > 0) then %>
<% else %>   <% end if %>
Argomento Autore Risposte Visite Ultimo messaggio 
Non ci sono Discussioni Attive 
"><% =ChkString(rs("F_SUBJECT"),"display") %><% ForumAdminOptions() %> 
<% if rsCStatus("CAT_STATUS") <> 0 and rsFstatus("F_STATUS") <> 0 and rs("T_STATUS") <> 0 then if lcase(strHotTopic) = "1" then if rs("T_REPLIES") >= intHotTopicNum Then %> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>">Discussione Calda <% else%> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>">Nuova Discussione <% end if end if else %> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<%=rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<%=ChkString(rs("F_SUBJECT"),"urlpath") %>">Discussione Bloccata> <% end if %> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"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 %> ')">Sblocca Categoria <% else if rsFStatus("F_STATUS") = 0 then %> &CAT_ID=<% =rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"JSurlpath")%>')">Sblocca Forum <% else if rs("T_STATUS") <> 0 then %> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"JSurlpath")%>')">Blocca discussione <% else %> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"JSurlpath")%>')">Sblocca 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=<% =rs("T_AUTHOR") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"urlpath") %>">Scrivi messaggio <% end if %> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(rs("T_SUBJECT"),"JSurlpath") %>')">Cancella Discussione &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>">Rispondi alla Discussione  
Non ci sono Discussioni attive 
 
<% sub ForumAdminOptions() if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then if rsCStatus("CAT_STATUS") = 0 then if mlev = 4 then %> ')">Sblocca Categoria <% else %> Categoria Bloccata <% end if else if rsFStatus("F_STATUS") <> 0 then %> &CAT_ID=<% =rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"JSurlpath")%>')">Blocca Forum <% else %> &CAT_ID=<% =rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"JSurlpath")%>')">Sblocca Forum <% end if end if if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0) or (AdminAllowed = 1) then %> &CAT_ID=<% =rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>&type=0">Proprieta del Forum <% end if %> &CAT_ID=<% =rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"JSurlpath") %>')">Cancella Forum &CAT_ID=<% =rs("CAT_ID")%>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>">Nuova Discussione <% 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 %>