problem med att ta bort post

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

iMedlem sedan jan. 200231 inlägg

Trådstart26 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")& "' "

iMedlem sedan jan. 200231 inlägg

26 jan. 2002 14:46#3

cyprys, tack!

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?

<% 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