Har et underligt problem med et sletscript
Hej Eksperten.Det virkede først, da jeg lige prøvede det. Men så pludselig virkede det ikke mere.
:\
Jeg har vel bare stirret mig blind, og håber derfor at I kan hjælpe mig. :)
Venlig hilsen
Jakob
Scriptet kan ses her:
http://www.humanslair.dk/scripts/tagwall/slet.asp
Kilden:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Slet</title>
</head>
<body>
<%
'Bestemmer databasens sti
database = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "../db/database.mdb"
'Tager kontakt til databasens tabel "tagwall"
Set tagwall = Server.CreateObject("ADODB.Recordset")
tagwall.Open "SELECT * FROM tagwall ORDER by id DESC", database
While NOT tagwall.EOF
%>
<a href="rediger.asp?id=<% = sider.Fields("id") %>&action=slet" onClick="java script:return confirm('Er du sikker?')">Slet</a>
<br />
<%
tagwall.MoveNext
Wend
tagwall.Close
If Request("action") = "slet" Then
'Bestemmer databasens sti
database = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "../db/database.mdb"
'Tager kontakt til databasens tabel "tagwall"
Set tagwall = Server.CreateObject("ADODB.Recordset")
tagwall.Open "SELECT * FROM tagwall ORDER by id DESC", database, 2, 2
Set tagwall = Server.CreateObject("ADODB.Recordset")
tagwall.Open "SELECT * FROM tagwall WHERE id = " & Request.QueryString("id"), database, 2, 2
tagwall.Delete
Response.Redirect("rediger.asp")
End If
%>
</body>
</html>
