Ok the error came up once on your latest post at the bottom of the default page but when I hit refresh i didn't got the error anymore but the latest posts still didn't show up...
I guess you're using a mod with it's own db connection string, so open your default.asp (or whater file the mod is) and make sure the connection string is the same for the forum, or a much better idea would be to mod the mod to use the same connection objects as the forum...., here's the code I used for that mod on my default.asp:
Dim PostCountInfo
Dim strTopicSubjectInfo
Set rsCommon = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT " & strDbTable & "Topic.Topic_ID, " & strDbTable & "Topic.Subject, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.[Read] "
strSQL = strSQL & "FROM " & strDbTable & "Forum INNER JOIN " & strDbTable & "Topic ON " & strDbTable & "Forum.Forum_ID = " & strDbTable & "Topic.Forum_ID "
strSQL = strSQL & "WHERE ((" & strDbTable & "Forum.Password) Is Null) "
strSQL = strSQL & "ORDER BY " & strDbTable & "Topic.Last_entry_date DESC;"
rsCommon.Open strSQL, adoCon
If rsCommon.EOF Then
Response.Write "<span class=""smltext"">No Forum Posts Made</span>"
Else
Do while NOT rsCommon.EOF AND PostCountInfo < 6
intForumID = CInt(rsCommon("Forum_ID"))
intForumReadRights = CInt(rsCommon("Read"))
Call forumPermisisons(intForumID, intGroupID, intForumReadRights, 0, 0, 0, 0, 0, 0, 0, 0, 0)
If blnRead Then
PostCountInfo = PostCountInfo + 1
strTopicSubjectInfo = rsCommon("Subject")
Response.Write(vbCrLf & "<a href=""/forum/forum_posts.asp?TID=" & rsCommon("Topic_ID") & "&PN=1"" class=""smLink"">" & strTopicSubjectInfo & "</a>")
If NOT rsCommon.EOF Then Response.Write("<br />")
End If
rsCommon.MoveNext
Loop
End If
rsCommon.Close
|
Topic Options
Post Options
Thanks(0)
