| |
JenSomogyi
Posts: 1
Score: 0
Joined: 5/29/2005
From:
Status: offline
|
I am getting ::
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/Beta/Directory/Default.asp, line 15
The coode is ::
If rsCategory.EOF Then
'If there are no categories to display then display the appropriate error message
Response.Write (vbCrLf & "<tr><td colspan=""2"" class=""text"">There are no directories</td></tr>")
'Else there the are categories so write the HTML to display categories and the forum names and a discription
Else
'Create a recordset to get the forum details
Set rsForum = Server.CreateObject("ADODB.Recordset")
'Loop round to read in all the categories in the database
Do While NOT rsCategory.EOF
'Get the category name from the database
strCategory = rsCategory("Cat_name")
intCatID = CInt(rsCategory("Cat_ID"))
'Display the category name
Response.Write vbCrLf & "<tr><td bgcolor=""" & strTableTitleColour2 & """ colspan=""2""><a href=""default.asp?C=" & intCatID & """ target=""_self"" class=""cat"">" & strCategory & "</a></td></tr>"
'If there this is the cat to show then show it
If intCatShow = intCatID OR intCatShow = 0 Then
'Read the various forums from the database
'Initalise the strSQL variable with an SQL statement to query the database
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "ForumsAllWhereCatIs @intCatID = " & intCatID
Else
strSQL = "SELECT " & strDbTable & "Forum.* FROM " & strDbTable & "Forum WHERE " & strDbTable & "Forum.Cat_ID = " & intCatID & " ORDER BY " & strDbTable & "Forum.Forum_Order ASC;"
End If
'Query the database
rsForum.Open strSQL, adoCon
'Check there are forum's to display
If rsForum.EOF Then
'If there are no forum's to display then display the appropriate error message
Response.Write vbCrLf & "<tr><td colspan=""2"" class=""text"">" & strTxtNoForums & "</td></tr>"
'Else there the are forum's to write the HTML to display it the forum names and a discription
Else
'Loop round to read in all the forums in the database
Do While NOT rsForum.EOF
'Initialise variables
lngLastEntryTopicID = 0
strModeratorsList = ""
'Read in forum details from the database
intForumID = CInt(rsForum("Forum_ID"))
strForumName = rsForum("Forum_name")
strForumDiscription = rsForum("Forum_description")
dtmForumStartDate = CDate(rsForum("Date_Started"))
strForumPassword = rsForum("Password")
lngNumberOfPosts = CLng(rsForum("No_of_posts"))
lngNumberOfTopics = CLng(rsForum("No_of_topics"))
blnForumLocked = CBool(rsForum("Locked"))
intForumReadRights = CInt(rsForum("Read"))
intForumPostRights = CInt(rsForum("Post"))
intForumReplyRights = CInt(rsForum("Reply_posts"))
blnHideForum = CBool(rsForum("Hide"))
'Call the function to check the forum permissions
Call forumPermisisons(intForumID, intGroupID, intForumReadRights, intForumPostRights, intForumReplyRights, 0, 0, 0, 0, 0, 0, 0)
'Add all the posts and topics together to get the total number for the stats at the bottom of the page
lngTotalNumberOfPosts = lngTotalNumberOfPosts + lngNumberOfPosts
lngTotalNumberOfTopics = lngTotalNumberOfTopics + lngNumberOfTopics
'If this forum is to be hidden and but the user is allowed access to it set the hidden boolen back to false
If blnHideForum = True AND blnRead = True Then blnHideForum = False
'If the forum is to be hidden then don't show it
If blnHideForum = False Then
'Get the row number
intForumColourNumber = intForumColourNumber + 1
'Initilaise variables for the information required for each forum
dtmLastEntryDate = dtmForumStartDate
strLastEntryUser = strTxtForumAdministrator
lngLastEntryUserID = 1
'Get the List of Group Moderators for the Forum
If blnShowMod Then
'Initalise the strSQL variable with an SQL statement to query the database to get the moderators for this forum
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "ModeratorGroup @intForumID = " & intForumID
Else
strSQL = "SELECT " & strDbTable & "Group.Group_ID, " & strDbTable & "Group.Name "
strSQL = strSQL & "FROM " & strDbTable & "Group, " & strDbTable & "Permissions "
strSQL = strSQL & "WHERE " & strDbTable & "Group.Group_ID = " & strDbTable & "Permissions.Group_ID AND " & strDbTable & "Permissions.Moderate = True AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & ";"
End If
'Query the database
rsCommon.Open strSQL, adoCon
'Initlaise the Moderators List varible if there are records returned for the forum
If NOT rsCommon.EOF Then strModeratorsList = "<br /><span class=""smText"">" & strTxtModerators & ":</span>"
'Loop round to build a list of moderators, if there are any
Do While NOT rsCommon.EOF
'Place the moderators username into the string
strModeratorsList = strModeratorsList & " <a href=""members.asp?GID=" & rsCommon("Group_ID") & """ class=""smLink"">" & rsCommon("Name") & "</a>"
'Move to the next record
rsCommon.MoveNext
Loop
'Close the recordset
rsCommon.Close
'Initalise the strSQL variable with an SQL statement to query the database to get the moderators for this forum
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "Moderators @intForumID = " & intForumID
Else
strSQL = "SELECT " & strDbTable & "Author.Author_ID, " & strDbTable & "Author.Username "
strSQL = strSQL & "FROM " & strDbTable & "Permissions, " & strDbTable & "Author "
strSQL = strSQL & "WHERE " & strDbTable & "Author.Author_ID = " & strDbTable & "Permissions.Author_ID AND " & strDbTable & "Permissions.Moderate = True AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & ";"
End If
'Query the database
rsCommon.Open strSQL, adoCon
'Initlaise the Moderators List varible if there are records returned for the forum
If NOT rsCommon.EOF AND strModeratorsList = "" Then strModeratorsList = "<br /><span class=""smText"">" & strTxtModerators & ":</span>"
'Loop round to build a list of moderators, if there are any
Do While NOT rsCommon.EOF
'Place the moderators username into the string
strModeratorsList = strModeratorsList & " <a href=""JavaScript:openWin('pop_up_profile.asp?PF=" & rsCommon("Author_ID") & "','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"" class=""smLink"">" & rsCommon("Username") & "</a>"
'Move to the next record
rsCommon.MoveNext
Loop
'Close the recordset
rsCommon.Close
End If
'Initalise the strSQL variable with an SQL statement to query the database for the date of the last entry and the author for the thread
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "LastForumPostEntry @intForumID = " & intForumID
Else
strSQL = "SELECT Top 1 " & strDbTable & "Author.Username, " & strDbTable & "Author.Author_ID, " & strDbTable & "Thread.Topic_ID, " & strDbTable & "Thread.Thread_ID, " & strDbTable & "Thread.Message_date "
strSQL = strSQL & "FROM " & strDbTable & "Author, " & strDbTable & "Thread "
strSQL = strSQL & "WHERE " & strDbTable & "Author.Author_ID = " & strDbTable & "Thread.Author_ID AND " & strDbTable & "Thread.Topic_ID IN "
strSQL = strSQL & " (SELECT TOP 1 " & strDbTable & "Topic.Topic_ID "
strSQL = strSQL & " FROM " & strDbTable & "Topic "
strSQL = strSQL & " WHERE " & strDbTable & "Topic.Forum_ID = " & intForumID & " "
strSQL = strSQL & " ORDER BY " & strDbTable & "Topic.Last_entry_date DESC) "
strSQL = strSQL & "ORDER BY " & strDbTable & "Thread.Message_date DESC;"
End If
'Query the database
rsCommon.Open strSQL, adoCon
'If there are threads for topic then read in the date and author of the last entry
If NOT rsCommon.EOF Then
'Read in the deatils from the recorset of the last post details
lngLastEntryMeassgeID = CLng(rsCommon("Thread_ID"))
lngLastEntryTopicID = CLng(rsCommon("Topic_ID"))
dtmLastEntryDate = CDate(rsCommon("Message_date"))
strLastEntryUser = rsCommon("Username")
lngLastEntryUserID = CLng(rsCommon("Author_ID"))
End If
'Reset variables
rsCommon.Close
'Calculate the last forum entry across all forums for the statistics at the bottom of the forum
If dtmLastEntryDateAllForums < dtmLastEntryDate Then
dtmLastEntryDateAllForums = dtmLastEntryDate
strLastEntryUserAllForums = strLastEntryUser
lngLastEntryUserIDAllForums = lngLastEntryUserID
End If
'Write the HTML of the forum descriptions and hyperlinks to the forums
Response.Write(vbCrLf & " <tr>" & _
vbCrLf & " <td valign=""Top""")
If (intForumColourNumber MOD 2 = 0 ) Then Response.Write(strTableEvenRowColour) Else Response.Write(strTableOddRowColour)
Response.Write(""" background=""" & strTableBgImage & """ width=""1%"" class=""text"">")
'If the user has no access to a forum diplay a no access icon
If blnRead = False AND blnModerator = False AND blnAdmin = False Then
Response.Write (" <img src=""images/forum_no_entry_icon.gif"" alt=""" & strTxtNoAccess & """>")
'If the forum requires a password diplay the password icon
ElseIf strForumPassword <> "" Then
Response.Write (" <img src=""images/password_required_icon.gif"" alt=""" & strTxtPasswordRequired & """>")
'If the forum is read only and has new posts show the locked new posts icon
ElseIf CDate(Session("dtmLastVisit")) < dtmLastEntryDate AND (blnForumLocked = True) AND blnAdmin = False AND blnModerator = False Then
Response.Write (" <img src=""images/locked_new_posts_icon.gif"" alt=""" & strTxtReadOnlyNewReplies & """>")
'If the forum is read only show the locked new posts icon
ElseIf blnForumLocked Then
Response.Write (" <img src=""images/closed_topic_icon.gif"" alt=""" & strTxtReadOnly & """>")
'If the forum has new posts show the new posts icon
ElseIf CDate(Session("dtmLastVisit")) < dtmLastEntryDate Then
Response.Write (" <img src=""images/new_posts_icon.gif"">")
End If
Response.Write(vbCrLf & " </td>" & _
vbCrLf & " <td bgcolor=""")
If (intForumColourNumber MOD 2 = 0 ) Then Response.Write(strTableEvenRowColour) Else Response.Write(strTableOddRowColour)
Response.Write(""" background=""" & strTableBgImage & """ width=""400"" class=""text"">")
'If this is the forum admin then let them have access to the forum admin pop up window
If blnAdmin Then Response.Write(" <a href=""javascript:openWin('pop_up_forum_admin.asp?FID=" & intForumID & "','admin','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=325')""><img src=""" & strImagePath & "small_admin_icon.gif"" align=""absmiddle"" border=""0"" alt=""" & strTxtForumAdmin & """></a>")
Response.Write(vbCrLf & " <a href=""forum_topics.asp?FID=" & intForumID & """ target=""_self"">" & strForumName & "</a><br />" & strForumDiscription & strModeratorsList & "</td>" & _
vbCrLf & " </tr>")
End If
'Count the number of forums
intNumberofForums = intNumberofForums + 1
'Move to the next database record
rsForum.MoveNext
'Loop back round for next forum
Loop
End If
'Close recordsets
rsForum.Close
End If
'Move to the next database record
rsCategory.MoveNext
'Loop back round for next category
Loop
End If
'Release server variables
rsCategory.Close
Set rsCategory = Nothing
Set rsForum = Nothing
%>
Any ideas?
|
|
Printable Version
Microsoft VBScript runtime error '800a01a8' - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread