Segnalibro Aggiunto!
" & vbNewLine & _ "Potete leggere i vostri SegnaLibri in qualsiasi momento
selezionando l'icona Segnalibro, in alto nel forum. Questa vi porterą alle discussioni da voi inserite in:
Aggiungi al tuo SegnalibroPer vedere questo SegnaLibro clicca QUI." & vbNewLine & _
"
" & vbNewLine
Case "delete"
delBookmark = split(Request.Form("delBookmark"), ",")
for i = 0 to ubound(delBookmark)
' Delete selected topic bookmarks
delSQL = "Delete From "& strTablePrefix & "BOOKMARKS where BOOKMARK_ID = " & cint(delBookmark(i))
my_conn.Execute delSQL
next
response.write "
UserName o Password non validi
" & vbNewLine & _ "" & vbNewLine Response.end end if if strDBType = "mysql" then strSql="SELECT B.BOOKMARK_ID, C.CAT_NAME, F.F_SUBJECT, T.TOPIC_ID, T.T_SUBJECT, T.T_REPLIES, T.T_DATE, T.T_LAST_POST, M.M_NAME, T.FORUM_ID, T.CAT_ID, T.T_LAST_POST_AUTHOR, B.B_TOPICID, B.B_MEMBERID, M.MEMBER_ID, T.T_AUTHOR, F.FORUM_ID, C.CAT_ID, F.CAT_ID" strsql2=" FROM " & strTablePrefix & "FORUM AS F INNER JOIN " & strTablePrefix & "TOPICS AS T ON F.FORUM_ID = T.FORUM_ID INNER JOIN " & strMemberTablePrefix & "MEMBERS AS M ON M.MEMBER_ID = T.T_AUTHOR INNER JOIN " & strTablePrefix & "BOOKMARKS AS B ON B.B_TOPICID = T.TOPIC_ID INNER JOIN " & strTablePrefix & "CATEGORY AS C ON C.CAT_ID = F.CAT_ID WHERE B.B_MEMBERID = " & getmemberID(strDBNTUserName) if lastDate <> "All" then strsql3 = " AND T.T_LAST_POST > '" & lastDate & "'" else strsql3 = "" end if else strSql = "SELECT B.Bookmark_ID, C.Cat_Name, F.F_SUBJECT, T.Topic_ID, T.T_subject, T.T_Replies, T.T_date, T.T_Last_Post, M.M_NAME,T.FORUM_ID, T.CAT_ID, T.T_LAST_POST_AUTHOR FROM ("& strTablePrefix & "Category C INNER JOIN "& strTablePrefix & "Forum F ON C.Cat_ID = F.CAT_ID) INNER JOIN ("& strMemberTablePrefix & "Members M INNER JOIN ("& strTablePrefix & "Bookmarks B INNER JOIN "& strTablePrefix & "Topics T ON B.B_TopicID = T.Topic_ID) ON M.Member_id = T.T_AUTHOR) ON F.Forum_ID = T.Forum_id WHERE (B.B_MemberID=" & getmemberID(strDBNTUserName) & ")" if lastDate <> "All" then strsql = strsql & " AND T.T_LAST_POST > '" & lastDate & "'" end if iPage = CLng(request("iPage")) if strDBType = "mysql" then 'MySql specific code mypage=iPage if mypage > 1 then OffSet = cLng((mypage - 1) * bkMarkPageSize) strSql5 = " LIMIT " & OffSet & ", " & bkMarkPageSize & " " end if '## Forum_SQL - Get the total pagecount strSql1 = "SELECT COUNT(MEMBER_ID) AS PAGECOUNT " set rsCount = my_Conn.Execute(strSql1 & strSql2 & strsql3) iPageTotal = rsCount(0).value rsCount.close set rsCount = nothing if iPageTotal > 0 then maxpages = (iPageTotal \ bkMarkPageSize ) if iPageTotal mod bkMarkPageSize <> 0 then maxpages = maxpages + 1 end if if iPageTotal < (bkMarkPageSize + 1) then intGetRows = iPageTotal elseif (mypage * bkMarkPageSize) > iPageTotal then intGetRows = bkMarkPageSize - ((mypage * bkMarkPageSize) - iPageTotal) else intGetRows = bkMarkPageSize end if else iPageTotal = 0 maxpages = 0 end if rs.open strSql & strSql2 & strSql3 & strsql5, my_Conn, 3 iPage=mypage iPageCount=maxpages Else rs.Open strSQL, my_Conn, 3 rs.PageSize = bkMarkPageSize iPageCount = cInt(rs.PageCount) End if if iPage < 1 then iPage = 1 end if if iPageCount < 1 then iPageCount = 1 end if Response.Write "| " & vbNewLine & _
"" & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " Tutti i Forum " & vbNewLine & _ "" & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " Segnalibri attivi " & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ " | " & vbNewLine & _
"" & vbNewLine & _ "" & vbNewLine & _ " | " & vbNewLine & _ "