tronezMedlem sedan juli 2001728 inlägg 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
------------------
aka Lexmarc
@ndersMedlem sedan juni 200032 969 inlägg Jag gissar på att du glömt att inkludera adovbs.inc på sidan.
Mvh,
------------------
"Jag är en pojkspoling! Jag är 25 år gammal!"
tronezMedlem sedan juli 2001728 inlägg =)
hehe.. man tackar
märkte inte det
------------------
aka Lexmarc
@ndersMedlem sedan juni 200032 969 inlägg 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,
------------------
"Jag är en pojkspoling! Jag är 25 år gammal!"
