problem med att ta bort post

3 svar · 178 visningar · startad av i 26 jan. 2002

iMedlem sedan jan. 200231 inlägg

Frågan26 jan. 2002 14:33#1

Nån som kan hjälpa mig med det här?

Jag har en länk som om man klickar på den går den vidare till en sida som ska radera den posten i en tabell.

http://localhost/x/gb/admin_action.asp?action=deleteAdmin&ID=Håkan

När man sen skickas vidare till admin_action.asp får jag detta felet:

Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.
/x/gb/admin_action.asp, line 82

Koden i admin_action.asp är följande:

<%
'---------------------
'TA BORT ADMIN
'---------------------
%>
<%ElseIf Request.Querystring("action") = "deleteAdmin" Then%>
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("dbases/db1.mdb")

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

Addera = "Select * From Admins Where adminUser=" & Request.QueryString("ID")

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.Delete

RecSet.Update
	
RecSet.Close
Set RecSet = nothing

Connect.Close
Set Connect = nothing

Response.Redirect "admin.asp"

%>
<%
'---------------------
'SLUT PÅ TA BORT ADMIN
'---------------------
%>

Rad 82 är den här kodsnutten:

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Kan nån hjälpa mig lösa det här felet? Har slitit sönder håret...

redigerat:
filen adovbs.inc korrekt inkluderad också...

mvh,
i

[Redigerat av i den 26 jan 2002]

cyprysMedlem sedan dec. 20003 563 inlägg

26 jan. 2002 14:35#2

Addera = "Select * From Admins Where adminUser='" & Request.QueryString("ID")& "' "

------------------
MVH // Cyprys
Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.

iMedlem sedan jan. 200231 inlägg

26 jan. 2002 14:46#3

cyprys, tack! :D

Mika3lMedlem sedan nov. 20018 492 inlägg

26 jan. 2002 15:30#4

Det var en del kod du hade, varför inte köra med lite mindre kod? :q

<% ElseIf Request.Querystring("action") = "deleteAdmin" Then

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("dbases/db1.mdb")
SQL = "DELETE * FROM Admins WHERE adminUser = " & Request.QueryString("id") & ""
Connect.Execute(SQL)
Connect.Close
Set Connect = Nothing
Response.Redirect"admin.asp"
%>

Något mindre kod.
Sen ett litet tips:
Använd inte så många <% och %>. Det slöar ner laddningen.
Istället för att skriva

<%
'######TA BORT MEDLEM
%>
<% If Request.QueryString("bla") = "bla" Then %>
<%
Response.Redirect"bla.asp"
%>
<%
Else
Response.Redirect"bla2.asp"
End If
%>

kan du skriva

<%
'######TA BORT MEDLEM

If Request.QueryString("bla") = "bla" Then

Response.Redirect"bla.asp"

Else
Response.Redirect"bla2.asp"
End If
%>

Det går något snabbare att ladda då. Jag vet inte riktigt hur snabbt men ju snabbare desto bättre.

/Mika3l

------------------
Det stora datatestet:

Ok, då börjar vi!
För att börja testet tryck alt+F4.

mk-studios.dot.nu - Min första sida gjord i Flash!