ADODB.Recordset
error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/debug/forum/includes/Forum_Permissions.inc.asp, line 46
I am having a problem, I cant find out what the problem is. The items exist in the database
'Create ADODB Database Connection Object
Set PadoCon = Server.CreateObject("ADODB.Connection")
'Open database using ADODB Database Connection
PadoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strDBname
'Create database record object
Set rsPermissions = Server.CreateObject("ADODB.Recordset")
If CLng(lngSSID) = 0 Then
'There is no user so set lngSSID to unregistered
lngSSID = "UNREGISTERED"
Else
t1 = CLng(lngSSID)
lngSSID = t1
End If
'Define database query
PstrSQL = "SELECT tblPermissions.* FROM tblPermissions WHERE (StblPermissions.Group_ID=" & CLng(lngDBGroupID) & "OR tblPermissions.Member_ID=" & lngSSID & ") AND tblPermissions.Forum_ID=" & CLng(FID)
response.write lngDBGroupID & "*" & CLng(lngDBGroupID) & "*" & lngSSID
'Open database connection using query
rsPermissions.Open strSQL, PadoCon
If NOT rsPermissions.EOF Then
'Get permissions
response.write rsPermissions.RecordCount & FID
strView = rsPermissions("View")
strPost = rsPermissions("Post")
End If
'Close database connections
Set rsPermissions = Nothing
PadoCon.Close
Set PadoCon = Nothing
%>
Edited by VBScript
Topic Options
Post Options
Thanks(0)
