%>
<!--#include file="inc_simple_slash.asp"-->
<%

quote:

---

I know this has been covered a million times. I have done many searches and read many threads on this and I am still fairly lost for a good answer.
I would like to display recent posts on my front page. I really like the way it is done here: www.snowmobilefanatics.com/" target="_blank">http://www.snowmobilefanatics.com/

I was told they use the Slash mod. I have not confirmed that but I did email. The Slash mod I have not been able to find. I have checked the threads here but I did not find a working link for the code. I also read that this mod is outdated for the current version of Snitz.

I looked at Content Display. But I do not want to install the Avatar or Message Icons mods and Content Display seems dependent on these two. Also, in reading the readme file, it appears that you must specify which forums or categories to draw the posts from. That counts out Front Pages News mod also. I was leaning more towards the last 5 topics.

I am using Doramoon's Syndicate.asp . It works great but it will not display content from the body of a post. After using this one and seeing that it uses javascript to query the db and display the info, it seems that what I am wanting should be very simple (just not for me).

So could anybody help this slow Snitzer and show me what and where I can find what I need? Also, with all informative answers to this thread maybe the amount of posts asking about this subject will diminish

---

<!--#include file="config.asp"-->
<!--#include file="inc_func_common.asp" -->
<%
'---------------------------------------------------
' Gremlins Simple Slash MOD
' Simply displays the last intTopicCount topics
' From ForumID (Use ForumID = "ANY" for all Forums)
'---------------------------------------------------

Const intTopicCount = 5
Const ForumID = "ANY"
Const CharsToDisplay = 2000

'------------
' Get Topics
'------------
strSql = "SELECT TOP " & intTopicCount & " "
strSql = strSql & strTablePrefix & "TOPICS.TOPIC_ID, "
strSql = strSql & strTablePrefix & "TOPICS.T_SUBJECT, "
strSql = strSql & strTablePrefix & "TOPICS.T_MESSAGE, "
strSql = strSql & strTablePrefix & "TOPICS.T_DATE, "	
strSql = strSql & strTablePrefix & "TOPICS.T_AUTHOR, "
strSql = strSql & strTablePrefix & "MEMBERS.MEMBER_ID, "
strSql = strSql & strTablePrefix & "MEMBERS.M_NAME "
strSql = strSql & " FROM ((" & strTablePrefix & "FORUM " 
strSql = strSql & "INNER JOIN " & strTablePrefix & "TOPICS ON " 
strSql = strSql & strTablePrefix & "FORUM.FORUM_ID = " 
strSql = strSql & strTablePrefix & "TOPICS.FORUM_ID) " 
strSql = strSql & "INNER JOIN " & strTablePrefix & "MEMBERS ON "
strSql = strSql & strTablePrefix & "TOPICS.T_AUTHOR = " 
strSql = strSql & strTablePrefix & "MEMBERS.MEMBER_ID) "
If ForumID <> "ANY" Then strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.FORUM_ID = " & ForumID
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_DATE DESC "
  
Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnString
Set objRS = objConn.Execute(strSQL)

While Not objRS.EOF
  Response.Write "Posted by: " & objRS("M_NAME") & " on " & strToDate(objRS("T_DATE")) & "<BR>"
  Response.Write ChkString(objRS("T_SUBJECT"),"title") & "<BR>"
  Response.Write Left(RemoveHTML(FormatStr(objRS("T_MESSAGE"))),CharsToDisplay) & "<BR>"
  Response.Write "<a href='topic.asp?TOPIC_ID=" & objRS("TOPIC_ID") & "'>more »</a>"
  Response.Write "<HR SIZE='1' NOSHADE>"
  objRS.MoveNext()
Wend

objRS.Close()
Set objRS = Nothing
objConn.Close()
Set objConn = Nothing

Response.End

Function RemoveHTML( strText )
  Dim TAGLIST
  TAGLIST=";A;B;IMG;CENTER;FONT;PRE;"
    
  Dim nPos1
  Dim nPos2
  Dim nPos3
  Dim strResult
  Dim strTagName
  Dim bRemove
  Dim bSearchForBlock
  
  nPos1 = InStr(strText, "<")
  Do While nPos1 > 0
    nPos2 = InStr(nPos1 + 1, strText, ">")
    If nPos2 > 0 Then
      strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1)
      strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ")
      nPos3 = InStr(strTagName, " ")
      If nPos3 > 0 Then
        strTagName = Left(strTagName, nPos3 - 1)
      End If
         
      If Left(strTagName, 1) = "/" Then
        strTagName = Mid(strTagName, 2)
        bSearchForBlock = False
      Else
        bSearchForBlock = True
      End If
           
      If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
        bRemove = True
        
        If bSearchForBlock Then
        
          If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
            nPos2 = Len(strText)
            nPos3 = InStr(nPos1 + 1, strText, "</" & strTagName, vbTextCompare)
        
            If nPos3 > 0 Then
              nPos3 = InStr(nPos3 + 1, strText, ">")
            End If
                      
            If nPos3 > 0 Then
              nPos2 = nPos3
            End If
            
          End If
          
        End If
        
      Else
        bRemove = False
      End If
          
      If bRemove Then
        strResult = strResult & Left(strText, nPos1 - 1)
        strText = Mid(strText, nPos2 + 1)
      Else
        strResult = strResult & Left(strText, nPos1)
        strText = Mid(strText, nPos1 + 1)
      End If
    Else
      strResult = strResult & strText
      strText = ""
    End If
      
    nPos1 = InStr(strText, "<")
  Loop
  strResult = strResult & strText    
  RemoveHTML = strResult
End Function  
%>

quote:

---

Originally posted by Cliff

Both Crash and ServerHacker offer this in their packages. You might want to take a look at theirs.

---

Item cannot be found in the collection corresponding to the requested name or ordinal. 
/forum/gremlinslash.asp, line 43