Fattar inte felet

Här är min kod:

		If Request.Querystring("vad") = "intervjuadd" Then

		
		Set Connect = Server.CreateObject("ADODB.Connection") 
		Set RecSet = server.createobject("ADODB.Recordset")
		Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/formular.mdb")

		
		Addera = "Select * from bannerbyte WHERE id ="& Request.Querystring("id")
		RecSet.Open Addera, Connect, adOpenDynamic, adLockOptimistic	
		
[b]		RecSet("besvarat") = "besvarat"[/b]
		
		
		

		recset.update
		
		

		RecSet.Close
		Set Connect = Nothing
		Connect.Close

		Set Connect = Server.CreateObject("ADODB.Connection") 
		Set RecSet = server.createobject("ADODB.Recordset")
		Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/intervjuer.mdb")

	
		sql = "SELECT * FROM intervjuer WHERE id = "&request.querystring("id")
		recset.open sql, connect, adopenstatic, adlockoptimistic
		
		recset("namn") = request.form("namn")
		recset("hemsida") = request.form("hemsida")
		recset("laupp") = request.form("laupp")
		recset("besokareperdag") = request.form("besokareperdag")
		recset("programmeringssprak") = request.form("programmeringssprak")
		recset("lartdigav") = request.form("lartdigav")
		recset("favoritsida") = request.form("favoritsida")
		recset("webmastersjukan") = request.form("webmastersjukan")
		recset("favoritmat") = request.form("favoritmat")
		recset("dator") = request.form("dator")
		recset("bredband") = request.form("bredband")
		recset("onskar") = request.form("onskar")
		recset("datum") = Now
			

		recset.update
		
		Response.Redirect "inloggad.asp?vad=intervjuer"

		RecSet.Close
		Connect.Close
		Set Connect = Nothing
	
		End If

Detta är mitt felmeddelande:

ADODB.Recordset fel '800a0bcd' 

Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post. 

/ampy/ampymail/inloggad.asp, line 56

Rad 56 är skriven med fet stil. Jag har kolumnen besvarat i databasen men jag fattar inte vad problemet är, någon som vet?

------------------
Ampy.cjb.net

Det betyder att det inte finns någon post som uppfyller ditt sökvillkor. Du bör lägga till en kontroll om du får någon träff.

Addera = "Select * from bannerbyte WHERE id ="& Request.Querystring("id")
RecSet.Open Addera, Connect, adOpenDynamic, adLockOptimistic 

if not recset.eof then
RecSet("besvarat") = "besvarat"
recset.update
else
response.write "Det finns ingen post med id " & Request.Querystring("id")
end if
RecSet.Close
Set Connect = Nothing
Connect.Close

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 18 jan 2002]

Du får tillbaka ett tomt recordset och då kan man inte använda sig av det.

Kolla så att querystringen i sql-frågan är rätt eller om det ens kommer med ett värde

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

Prova med den här koden istället och kolla om det fungerar.

SQL = "UPDATE besvarat SET besvarat = "besvarat" WHERE ID = " & Request.QueryString("id") & "
Connect.Execute(SQL)

Kör sedan en ifsats på denna kod för att se om det fungerar.

Vaför inte köra med en True eller False istället för besvarat och obesvarat(eller vad du använder)? :q
Det skulle bli lite lättare då.

/Mika3l

------------------
Det stora datatestet:

Ok, då börjar vi!
För att börja testet tryck alt+F4.

mk-studios.dot.nu - Min första sida gjord i Flash!

[Redigerat av Mika3l den 18 jan 2002]

Jag kom på felet, jag hade skrivit fel namn till tabellen.

------------------
Ampy.cjb.net