:( Kan ej radera

Jag har problem koden

<!-- #include file="adovbs.inc" -->

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From message Where ID=" &Request.QueryString("delID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.Delete

	RecSet.Update
	RecSet.Close
	Set RecSet = nothing
	Set Connect = nothing

Connect.close

Response.Redirect "read_mess.asp"

%>

Får följand felmeddelande:

Körningsfel i Microsoft VBScript fel '800a01a8'

Objekt krävs.: 'Connect'

/izig/do_delete.asp, rad 19

:( :( Får de inte att funka

Pröva med det här:

	RecSet.Delete

	RecSet.Update
	RecSet.Close
	Set RecSet = Nothing
                
                Connect.Close
	Set Connect = Nothing

Response.Redirect "read_mess.asp"

%>

Är inte säker men du kan pröva iallafall :)

Sen tycker jag att du borde köra delete satsen i din SQL sträng istället! Det är mycket mer effektivare :)

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("messages.mdb")

SQL = "DELETE FROM message WHERE id=" & Request.QueryString("delID") & ""
Connect.execute(SQL),,128
set connect = nothing

Response.Redirect "read_mess.asp"
%>

På det här sättet ökar du prestandan på många sätt, plus att det kommer fungera. :)