hej.. har en sida där man ska söka lägenheter så klickar man då på knappen "sök lägenheter" så kommer det fram en tabell med lägenheter sedan när jag klickar på lägenheten så får jag detta fel !

ADODB.Field (0x800A0BCD)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/lagenhetinfo.asp, line 34

när jag ska lägga till lägenheter + lokaler m.m så får jag samma fel. Det är en accessdatabas. Fler frågor så skriv till mig jag skickar med ca 70 rader från den lagenhetsinfo om det går. men folk som jag pratat med säger att det är fel på databasen. Att den är tom men det är den inte!

<%@ Language=VBScript %>
<% Option Explicit %>
<!-- #include file="adovbs.inc" -->
<%

Session("page") = "lagenheter"

Sub Info()
Dim objDB
Dim objRS
Dim strSQLL
Dim strSQLF
Dim strObjekt

strObjekt = Trim(Request("objekt"))

'strSQL = "SELECT * FROM LAGENHET L, FASTIGHET F WHERE "
'strSQL = strSQL & "L.Fastighetsbeteckning = F.Fastighetsbeteckning AND "
'strSQL = strSQL & "L.OBJEKTNUMMER = '" & strObjekt & "'"

strSQLL = "SELECT * FROM Lagenhet WHERE objektnummer = '" & strObjekt & "'"

Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open "DSN= kan inte visa detta namn..."



Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQLL, objDB, adOpenKeyset, adLockReadOnly, AdCmdText

Dim lagenhetsnummer, rum,area,vaning,hyra,hiss,balkong,kabeltv,tillkommerhyra
Dim ovrigt,Lbild,Lritning,id

id = objRS("fastighetsbeteckning")
lagenhetsnummer = objRS("lagenhetsnummer")
rum = objRS("rum")
area = objRS("area")
vaning = objRS("vaning")
hyra = objRS("hyra")
hiss = objRS("hiss")
balkong = objRS("balkong")
kabeltv = objRS("kabeltv")
tillkommerhyra = objRS("tillkommerhyra")
ovrigt = objRS("ovrigt")
Lbild = objRS("bild")
Lritning = objRS("ritning")

objRS.Close

strSQLF = "SELECT * FROM Fastighet WHERE fastighetsbeteckning = '" & id & "'"

objRS.Open strSQLF, objDB, adOpenKeyset, adLockReadOnly, AdCmdText

Dim kommunikationer,service,adress,ort,omrade,ar,fbild,fritning

adress = objRS("adress")
Ort = objRS("ort")
Omrade = objRS("omrade")
Ar = objRS("byggnadsar")
kommunikationer = objRS("kommunikationer")
service = objRS("service")
Fbild = objRS("bild")
Fritning = objRS("ritning")

objRS.Close
Set objRS = Nothing

objDB.Close
Set objDB = Nothing

%>

Jag antar att du anv. dig av ett formulär.
när du skapar strObjekt borde det isf vara så här:

strObjekt = Trim(Request.Form("objekt"))


Är variablerna strObjekt och id strängar eller numeriska?
Om de är numeriska borde det vara så här:
strSQLL = "SELECT * FROM Lagenhet WHERE objektnummer = " & strObjekt
strSQLF = "SELECT * FROM Fastighet WHERE fastighetsbeteckning = " & id

måste även tillägga att det har funkat ända till denna vecka. så koden kan ju inte ha ändrat sig själv så måste vara databasen eller hur? så säg mig vad ska /kan jag pröva att ändra..