Hallo ich möchte einen Datensatz löschen und habe bereits etwas Programmiert, leider ergibt es einen Fehler: Microsoft VBScript runtime error '800a01a8'
Object required: ''
Hier ist der Code:
<%@ Language=VBScript %>
<!--#include file="adovbs.inc" -->
<%
'Variablen Deklarieren
dim db
dim objRS
dim strSQL
set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "BSPMapis"
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\BSPMapis.mdb")
'SQL Ausführen
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = adUseClient
objRS.Open "SELECT * FROM T_BUDGET", objConn, adOpenDynamic, adLockPessimistic
if Request.Form("delete") <> "" then
objRS.AbsolutePosition = Cint(Request.Form("delete"))
objRS.Delete
end if
if not objRS.EOF then objRS.MoveFirst
%>
<Table border=1>
<tr>
<th>ID</th><th>Rubrik</th><th>Kanton</th><th>Jahr</th><th>BetragKont</th><th>Bearbeitet</th><th>Vollzogen</th><th>löschen?</th>
</tr>
<%
while not objRS.EOF
Response.Write "<tr>"
Response.Write "<td>" & objRS("MBT_ID") & "</td>"
Response.Write "<td>" & objRS("MBT_N_Rubrik") & "</td>"
Response.Write "<td>" & objRS("MBT_C_Kanton")& "</td>"
Response.Write "<td>" & objRS("MBT_Jahr")& "</td>"
Response.Write "<td>" & objRS("MBT_BetragKont")& "</td>"
Response.Write "<td>" & objRS("MBT_Bearbeitet")& "</td>"
Response.Write "<td>" & objRS("MBT_Vollzogen")& "</td>"
Resposne.Write "<td><input type=radio name=delete value=" & objRS.AbsolutePosition
Response.Write "></td>"
Response.Write "</tr>"
objRS.MoveNext
wend
set objRS = nothing
%>
</table>
</body>
</html>
