Undantag inträffade!

Hej!
Sitter med denn kodsnutten och får inte rätt på det!

Felmed:
Feltyp:
(0x80020009)
Undantag inträffade.
/skold/Default.asp, line 185

185 -->response.write "<td class=""halva"">" & "<div class=""rubrik_ruta"">" & RS("rubrik") & "</div>"

<%
			rootname = server.mappath("bilder/")& "/"
			Dirfolder = request.querystring("dir")
			
			Set FSO = Server.CreateObject("Scripting.FileSystemObject")
			Set Folder = FSO.GetFolder(rootname & Dirfolder)
			set Files = Folder.Files
			
			'ParentFolderName = FSO.GetParentFolderName(rootname & Dirfolder)
			%>
			
					
			
			<%
			For each Item In Files
				If right( Item.Name, 3 ) = "jpg" then
				
				bild = Item.name
				
				Set RS = Server.CreateObject("Adodb.RecordSet")
				sql = "Select * from bilder where Bild = '" & bild & "'"
				Set RS = Connect.Execute(Sql)
				if RS.eof then
				response.Write "ingen information inlagd"
				end if
							
				
				Response.Write "<img border=""1"" height=""510"" width=""680"" src=""bilder/" & Dirfolder & "/" & Item.Name & """>"
				response.write "<div class=""bild_info"">"
				response.write "<table class=""info_table"">" 
				response.write "<tr>"
				response.write "<td class=""halva"">" & "<div class=""rubrik_ruta"">" & RS("rubrik") & "</div>" 
				
				response.write "<td>" & "</tr>" & "</table>"
				response.write "<a href='" & Item.path & "'>" & Item.Name & "</a>"
				response.write "</div>"
				
				
				end if
			
				
				t=t+1
			Next
			
			
			
			set Folder = nothing
			set FSO = nothing
			set Files = nothing
			RS.close
			set RS = nothing
			
			%>

Hittar ni något...?????