<% '################################################################################# ' # # 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("TOPIC_ID") = "" and Request.QueryString("mode") <> "getIP" and Request.Form("Method_Type") <> "login" and Request.Form("Method_Type") <> "logout" then Response.Redirect "default.asp" Response.End end if %> <% select case Request.QueryString("mode") case "getIP" %> <% DisplayIP IP = "" Title = "" %> <% Response.End case else '## Do Nothing - Continue end select Member_ID = getNewMemberNumber() 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") = "" then chkUser4() end if end if if (mLev = 4) or (chkForumModerator(Request.QueryString("FORUM_ID"), ChkString(STRdbntUserName, "decode"))= "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 Forum 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 - Find out if the Topic is Locked or Un-Locked and if it Exists strSql = "SELECT " & strTablePrefix & "TOPICS.T_STATUS " strSql = strSql & " FROM " & strTablePrefix & "TOPICS " strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID") set rsTStatus = my_Conn.Execute (StrSql) if rsCStatus.EOF or rsCStatus.BOF or rsFStatus.EOF or rsFStatus.BOF or rsTStatus.EOF or rsTStatus.BOF then Response.Redirect(strForumURL) else mypage = request("whichpage") if mypage = "" then mypage = 1 end if mySQL = request("strSql") if mySQL = "" then mySQL = SQLtemp end if '## Forum_SQL - Get all Forum Categories From DB strSql = "SELECT CAT_ID " strSql = strSql & " FROM " & strTablePrefix & "CATEGORY" set rsCat = my_Conn.Execute (StrSql) %> <% '## Forum_SQL strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_ICQ, " & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_Homepage, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, " & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " & strTablePrefix & "REPLY.REPLY_ID, " & strTablePrefix & "REPLY.R_AUTHOR, " & strTablePrefix & "REPLY.TOPIC_ID, " & strTablePrefix & "REPLY.R_MESSAGE, " & strTablePrefix & "REPLY.R_DATE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR " strSql = strSql & " AND TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " " strSql = strSql & " ORDER BY " & strTablePrefix & "REPLY.R_DATE" if strDBType = "mysql" then 'MySql specific code '## Forum_SQL - Get the total pagecount strSql2 = "SELECT COUNT(" & strTablePrefix & "REPLY.TOPIC_ID) AS REPLYCOUNT " strSql2 = strSql2 & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY " strSql2 = strSql2 & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR " strSql2 = strSql2 & " AND TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " " set rsCount = my_Conn.Execute(strSql2) if not rsCount.eof then maxpages = (rsCount("REPLYCOUNT") \ strPageSize ) if rsCount("REPLYCOUNT") mod strPageSize <> 0 then maxpages = maxpages + 1 end if else maxpages = 1 end if set rs = Server.CreateObject("ADODB.Recordset") ' rs.cachesize= strPageSize rs.open strSql, my_Conn, 3 if not(rs.EOF) then rs.movefirst end if else 'end MySql specific code set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize = strPageSize rs.open strSql, my_Conn, 3 If not (rs.EOF or rs.BOF) then '## No replies found in DB rs.movefirst rs.pagesize = strPageSize rs.absolutepage = mypage '** maxpages = cint(rs.pagecount) end if end if i = 0 %>   <% end if %>
 Elenco dei forum
 &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"><% =ChkString(Request.QueryString("FORUM_Title"),"display") %>
<% if rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0 then %>  <% =ChkString(Request.QueryString("Topic_Title"),"display") %> <% else %>  <% =ChkString(Request.QueryString("Topic_Title"),"display") %> <% end if %> 		<% call PostingOptions() %>
<% if maxpages > 1 then %>
Pagine: <% Call Paging() %>
<% else %> 		 
<% if (AdminAllowed = 1) then %> <% else %> <% end if %> <% if mypage = 1 then Call GetFirst() end if %> <% '## Forum_SQL - Get all topicsFrom DB strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_ICQ, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_YAHOO, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_AIM, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_TITLE, " strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_Homepage, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_LEVEL, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_POSTS, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " strSql = strSql & strTablePrefix & "REPLY.REPLY_ID, " strSql = strSql & strTablePrefix & "REPLY.R_AUTHOR, " strSql = strSql & strTablePrefix & "REPLY.TOPIC_ID, " strSql = strSql & strTablePrefix & "REPLY.R_MESSAGE, " strSql = strSql & strTablePrefix & "REPLY.R_DATE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR " strSql = strSql & " AND TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " " strSql = strSql & " ORDER BY " & strTablePrefix & "REPLY.R_DATE" if strDBType = "mysql" then 'MySql specific code if mypage > 1 then intOffSet = CInt((mypage - 1) * strPageSize) - 1 strSql = strSql & " LIMIT " & intOffSet & ", " & CInt(strPageSize) & " " end if '## Forum_SQL - Get the total pagecount strSql2 = "SELECT COUNT(" & strTablePrefix & "REPLY.TOPIC_ID) AS REPLYCOUNT " strSql2 = strSql2 & " FROM " & strTablePrefix & "REPLY " strSql2 = strSql2 & " WHERE TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " " set rsCount = my_Conn.Execute(strSql2) if not rsCount.eof then maxpages = (rsCount("REPLYCOUNT") \ strPageSize ) if rsCount("REPLYCOUNT") mod strPageSize <> 0 then maxpages = maxpages + 1 end if else maxpages = 1 end if set rs = Server.CreateObject("ADODB.Recordset") ' rs.cachesize = strPageSize rs.open strSql, my_Conn, 3 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 '## Replies found in DB rs.movefirst rs.pagesize = strPageSize maxpages = cint(rs.pagecount) rs.absolutepage = mypage end if end if if rs.EOF or rs.BOF then '## No replies found in DB Response.Write "" else 'rs.movefirst intI = 0 howmanyrecs = 0 rec = 1 do until rs.EOF or (mypage = 1 and rec > strPageSize) or (mypage > 1 and rec > strPageSize) '** if intI = 0 then CColor = strAltForumCellColor else CColor = strForumCellColor end if %> <% rs.MoveNext intI = intI + 1 if intI = 2 then intI = 0 end if rec = rec + 1 loop end if %>
>Autore ><% if strShowTopicNav = "1" then Call Topic_nav() else Response.Write("Discussione") end if%><% call AdminOptions() %> 
<% if strUseExtendedProfile then %> "> <% else %> ')"> <% end if %> <% =ChkString(rs("M_NAME"),"display") %> <% if strShowRank = 1 or strShowRank = 3 then %>
<% = ChkString(getMember_Level(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")),"display") %> <% end if %> <% if strShowRank = 2 or strShowRank = 3 then %>
<% = getStar_Level(rs("M_LEVEL"), rs("M_POSTS")) %> <% end if %>

<% =rs("M_COUNTRY") %>
<% =rs("M_POSTS") %> messaggi		 colspan="3" valign="top" <% else %>colspan="2" <% end if %>>Inserito il - <% =ChkDate(rs("R_DATE")) %> : <% =ChkTime(rs("R_DATE")) %> <% if strUseExtendedProfile then %>  ">Visualizza profilo <% else %>  ')">Visualizza profilo <% end if %> <% if (lcase(strEmail) = "1") then if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then %>  ')">Scrivi all'autore <% end if else %>  ')">Scrivi all'autore <% end if %> <% if strHomepage = "1" then %> <% if rs("M_Homepage") <> " " then %>  " target="_blank">Visita l'homepage di <% = ChkString(rs(" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %> <% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (AdminAllowed = 1) then %>  &TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&auth=<% =ChkString(rs("R_AUTHOR"),"urlpath") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">Modifica il messaggio <% end if %> <% end if %> <% if strICQ = "1" then %> <% if Trim(rs("M_ICQ")) <> "" then %>  &M_NAME=<% =ChkString(rs("M_NAME"),"JSurlpath") %>')">&img=5" alt="Manda un messaggio ICQ a <% = ChkString(rs("M_NAME"),"display") %>" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if strYAHOO = "1" then %> <% if Trim(rs("M_YAHOO")) <> "" then %>  &.src=pg')">Manda un messaggio Yahoo! a <% =ChkString(rs(" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (strAIM = "1") then %> <% if Trim(rs("M_AIM")) <> "" then %>  &M_NAME=<% =ChkString(rs("M_NAME"),"urlpath") %>')">Manda a <% =ChkString(rs( un instant message" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (AdminAllowed = 1) then %>  &TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>&M=<% =Request.QueryString("M") %>">Rispondi citando <% end if %> <% if (strIPLogging = "1") then %> <% if (AdminAllowed = 1) or (strNoCookies = "1") then %>  &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')">Visualizza l'indirizzo IP dell'utente <% end if %> <% end if %> <% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %> <% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (AdminAllowed = 1) then %>  &TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')">Elimina risposta <% end if %> <% end if %>
<% =formatStr(rs("R_MESSAGE")) %>Torna all'inizio della pagina
<% end if %>
<% if maxpages > 1 then %>
Discussione lunga <% =maxpages %> pagine: <% Call Paging() %>
<% else %> 		  <% if (AdminAllowed = 1) then %> <% call AdminOptions() %> <% else %>   <% end if %>
<% Call PostingOptions() %>
<% end if sub GetFirst() '## Forum_SQL - Get Origional Posting strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_ICQ, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE, " strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, " strSql = strSql & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " strSql = strSql & strTablePrefix & "TOPICS.T_DATE, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, " strSql = strSql & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_MESSAGE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "TOPICS " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR " strSql = strSql & " AND " & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID") set rs = my_Conn.Execute (strSql) if rs.EOF or rs.BOF then '## No categories found in DB Response.Write " " & vbCrLf Response.Write " Non ci sono Discussioni" & vbCrLf Response.Write " " & vbCrLf else %> <% if strUseExtendedProfile then %> "> <% else %> ')"> <% end if %> <% =ChkString(rs("M_NAME"),"display") %> <% if strShowRank = 1 or strShowRank = 3 then %>
<% = ChkString(getMember_Level(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")),"display") %> <% end if %> <% if strShowRank = 2 or strShowRank = 3 then %>
<% = getStar_Level(rs("M_LEVEL"), rs("M_POSTS")) %> <% end if %>

<% =rs("M_COUNTRY") %>
<% =rs("M_POSTS") %> messaggi colspan="3" valign="top" <% else %>colspan="2" <% end if %>>Inserito il - <% =ChkDate(rs("T_DATE")) %> : <% =ChkTime(rs("T_DATE")) %> <% if strUseExtendedProfile then %>  ">Visualizza profilo <% else %>  ')">Visualizza profilo <% end if %> <% if (lcase(strEmail) = "1") then if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then %>  ')">Scrivi all'autore <% end if else %>  ')">Scrivi all'autore <% end if %> <% if (strHomepage = "1") then %> <% if rs("M_Homepage") <> " " then %>  " target="_blank">Visita l'homepage di <% =ChkString(rs(" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %> <% if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (AdminAllowed = 1) then %>  &TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&auth=<% =rs("T_AUTHOR") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">Modifica messaggio <% end if %> <% end if %> <% if (strICQ = "1") then %> <% if Trim(rs("M_ICQ")) <> "" then %>  &M_NAME=<% =ChkString(rs("M_NAME"), "JSurlpath") %>')">&img=5" alt="Manda un messaggio ICQ a <% =ChkString(rs("M_NAME"),"display") %>" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (strYAHOO = "1") then %> <% if Trim(rs("M_YAHOO")) <> "" then %>  &.src=pg')">Manda un messaggio Yahoo! a <% =ChkString(rs(" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (strAIM = "1") then %> <% if Trim(rs("M_AIM")) <> "" then %>  &M_NAME=<% =ChkString(rs("M_NAME"), "JSurlpath") %>')">Manda un instant message a <% =ChkString(rs(" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (AdminAllowed = 1) then %>  &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">Rispondi citando <% end if %> <% if (strIPLogging = "1") then %> <% if (AdminAllowed = 1) or (strNoCookies = "1") then %>  &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')">Visualizza l'indirizzo IP dell'utente <% end if %> <% end if %>
<% =formatStr(rs("T_MESSAGE")) %> <% end if '## Forum_SQL strSql = "UPDATE " & strTablePrefix & "TOPICS " strSql = strSql & " SET " & strTablePrefix & "TOPICS.T_VIEW_COUNT = (" & strTablePrefix & "TOPICS.T_VIEW_COUNT + 1) " strSql = strSql & " WHERE (" & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID") & ");" my_conn.Execute (strSql) set rs = nothing End Sub sub DisplayIP() usr = (chkForumModerator(Request.QueryString("FORUM_ID"), STRdbntUserName)) if (chkUser((STRdbntUserName), (Request.Cookies(strUniqueID & "User")("Pword"))) = 4) then usr = 1 end if if usr then if Request.QueryString("TOPIC_ID") <> "" then '## Forum_SQL strSql = "SELECT " & strTablePrefix & "TOPICS.T_IP, " & strTablePrefix & "TOPICS.T_SUBJECT " strSql = strSql & " FROM " & strTablePrefix & "TOPICS " strSql = strSql & " WHERE TOPIC_ID = " & Request.QueryString("TOPIC_ID") rsIP = my_Conn.Execute(strSql) IP = rsIP("T_IP") Title = rsIP("T_Subject") else if Request.QueryString("REPLY_ID") <> "" then '## Forum_SQL strSql = "SELECT " & strTablePrefix & "REPLY.R_IP " strSql = strSql & " FROM " & strTablePrefix & "REPLY " strSql = strSql & " WHERE REPLY_ID = " & Request.QueryString("REPLY_ID") rsIP = my_Conn.Execute(strSql) IP = rsIP("R_IP") end if end if set rsIP = nothing %>

Indirizzo IP dell'utente:
<% =ip %>

<% else %>

Questa azione e permessa solo ad amministratori e moderatori.

<% end If end sub sub PostingOptions() %> <% if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (STRdbntUserName = "") then if ((rsCStatus("CAT_STATUS") = 1) and (rsFStatus("F_STATUS") = 1)) then %> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">Nuova discussione <% else if (AdminAllowed = 1) then %> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>"> &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">Nuova discussione <% else %>  Forum chiuso <% end if end if if (rsCStatus("CAT_STATUS") = 1) and (rsFStatus("F_STATUS") = 1) and (rsTStatus("T_STATUS") = 1) then %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">Rispondi <% Else if (AdminAllowed = 1) then %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">Rispondi <% Else %>  Discussione chiusa <% end if end if if (lcase(strEmail) = "1") then if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then %>
')"> ')">Segnala la discussione ad un amico <% end if end if %> <% end if %>
')"> ')">Versione stampabile
 <% end sub sub AdminOptions() %> <% if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then if (rsCStatus("CAT_STATUS") = 0) then if (mlev = 4) then %> ')">Apri Categoria <% else %> Categoria chiusa <% end if 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 (rsTStatus("T_STATUS") <> 0) then %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"JSurlpath") %>')">Chiudi discussione <% else %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"JSurlpath") %>')">Apri discussione <% end if end if end if %> <% if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (AdminAllowed = 1) then %> &TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">Modifica discussione <% end if %> &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"JSurlpath") %>')">Elimina discussione &CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>">Nuova discussione &FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>">Rispondi alla discussione <% end if %> <% end sub sub Paging() if maxpages > 1 then if Request.QueryString("whichpage") = "" then pge = 1 else pge = Request.QueryString("whichpage") end if scriptname = request.servervariables("script_name") Response.Write("") for counter = 1 to maxpages if counter <> cint(pge) then ref = "" Response.Write ref else ref = ref & "'>" & counter & "" Response.Write ref end if else Response.Write("") end if if counter mod strPageNumberSize = 0 then Response.Write("") end if next Response.Write("
" & " " & widenum(counter) & "" ref = ref & "" & counter & "" & " " & widenum(counter) & "" & counter & "
") end if top = "0" end sub Sub Topic_nav() set rsLastPost = Server.CreateObject("ADODB.Recordset") strSql = "SELECT T_LAST_POST FROM " & strTablePrefix & "TOPICS " strSql = strSql & "WHERE TOPIC_ID = " & Request.QueryString("TOPIC_ID") set rsLastPost = my_Conn.Execute (StrSql) T_LAST_POST = rsLastPost("T_LAST_POST") strSQL = "SELECT T_SUBJECT, TOPIC_ID " strSql = strSql & "FROM " & strTablePrefix & "TOPICS " strSql = strSql & "WHERE T_LAST_POST > '" & T_LAST_POST strSql = strSql & "' AND FORUM_ID=" & Request.QueryString("Forum_ID") strSql = strSql & " ORDER BY T_LAST_POST;" set rsPrevTopic = my_conn.Execute (strSQL) strSQL = "SELECT T_SUBJECT, TOPIC_ID " strSql = strSql & "FROM " & strTablePrefix & "TOPICS " strSql = strSql & "WHERE T_LAST_POST < '" & T_LAST_POST strSql = strSql & "' AND FORUM_ID=" & Request.QueryString("Forum_ID") strSql = strSql & " ORDER BY T_LAST_POST DESC;" set rsNextTopic = my_conn.Execute (strSQL) if rsPrevTopic.EOF then prevTopic = "" else prevTopic = "" end if if rsNextTopic.EOF then NextTopic = "" else NextTopic = "" end if Response.Write (prevTopic & " Discussioni " & nextTopic) rsLastPost.close rsPrevTopic.close rsNextTopic.close set rsLastPost = nothing set rsPrevTopic = nothing set rsNextTopic = nothing end sub %>