4 svar · 204 visningar · startad av ampy
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?
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
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
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)? 
Det skulle bli lite lättare då.
/Mika3l
Jag kom på felet, jag hade skrivit fel namn till tabellen.