fel?

3 svar · 208 visningar · startad av tronez 25 dec. 2001

tronezMedlem sedan juli 2001728 inlägg

Trådstart25 dec. 2001 21:16#1

vad är det för fel på den här koden?

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

Set RecSet = Server.CreateObject("ADODB.Recordset")
Radera = "SELECT * FROM gbook WHERE ID = " & Request.Querystring("delID") & " "

RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic

RecSet.Delete

RecSet.Close
Connect.Close

response.redirect("admin.asp")
%>

jag får felmeddelandet

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/rd/delete.asp, rad 22

Det är den här biten det är fel på.

RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic

tack på förhand

@ndersMedlem sedan juni 200032 967 inlägg

25 dec. 2001 21:17#2

Jag gissar på att du glömt att inkludera adovbs.inc på sidan.

Mvh,

tronezMedlem sedan juli 2001728 inlägg

25 dec. 2001 21:20#3

=)
hehe.. man tackar
märkte inte det

@ndersMedlem sedan juni 200032 967 inlägg

25 dec. 2001 21:20#4

Jag skulle dock vilja förkorta, och förbättra din kod till:

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("gastbok_2000.mdb")&";"
Radera = "DELETE * FROM gbook WHERE ID = " & Request.Querystring("delID")
Connect.execute Radera,,128
Connect.Close
set Connect = nothing

response.redirect("admin.asp")
%>

Du slipper då dessutom inkludera adovbs.inc på sidan.

Mvh,