Jag försöker ta bort poster i en databas men jag får det inte att fungera. Så här vill jag att det ska fungera:
Först väljer jag en bildgrupp från en rullist. När jag gjort detta kommer alla de bilder som finns i den aktuella bildgruppen upp i en ny rullist. I denna nya rullisten väljer jag sedan vilken bild som ska raderas. Så långt allt väl.
Problemet tror jag är att jag inte lyckas skicka bildgrupp och bild till ta-bort-koden. Jag klistrar in min blaj-kod här och om det är nån som är SNÄÄÄÄLL så får han/hon gärna komma med förslag på en lösning. :)
Välja-bild-filen:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "db\vvKameror.mdb;Jet OLEDB:Database Password='miguel'"
selectedGroup = Request.QueryString("id")
if selectedGroup = null or selectedGroup = "" then
selectedGroup = 1
end if
selectedDirection = Request.QueryString("riktning")
%>
<html>
<head>
<title>administration</title>
<script language="JavaScript">
<!--
function gotoGruppURL() {
var Current = document.kamera.selectGrupp.selectedIndex;
//var CurrentDirection = document.kamera.selectRiktning.selectedIndex;
location.href = "delete.asp?id=" + document.kamera.selectGrupp.options[Current].value //+ "&riktning=" + document.kamera.selectRiktning.options[CurrentDirection].value;
return false;
}
function gotoRiktningURL() {
var Current = document.kamera.selectGrupp.selectedIndex;
var CurrentDirection = document.kamera.selectRiktning.selectedIndex;
location.href = "delete.asp?id=" + document.kamera.selectGrupp.options[Current].value + "&riktning=" + document.kamera.selectRiktning.options[CurrentDirection].value;
return false;
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF">
<table width="600" cellspacing="10">
<tr><td>
<form name="kamera" action="deleteit.asp" method=post>
<br><br>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT DISTINCT BildGrupp, Rubrik FROM bilder", Connect
%>
<select NAME="selectGrupp" onchange="gotoGruppURL()" size="1">
<%Do Until RecSet.EOF
if RecSet("BildGrupp") + 1 = selectedGroup + 1 then %>
<option SELECTED value="<% =RecSet("BildGrupp") %>">
<% selectedGroup =RecSet("BildGrupp")%>
<% else %>
<option value="<% =RecSet("BildGrupp") %>">
<% end if %>
<% =RecSet("BildGrupp")%>. <% =RecSet("Rubrik") %>
</Option>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
</select>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.open
RecSet.Open "SELECT Riktning FROM bilder WHERE BildGrupp =" & selectedGroup, Connect
%>
<select NAME="selectRiktning" onchange="gotoRiktningURL()" size="1">
<% Do Until RecSet.EOF
if selectedDirection = null or selectedDirection = "" then
selectedDirection = RecSet("Riktning")
end if
if RecSet("Riktning") = selectedDirection then %>
<option SELECTED value="<% =RecSet("Riktning") %>">
<% else %>
<option value="<% =RecSet("Riktning") %>">
<% end if %>
<% =RecSet("Riktning") %>
</Option>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
</select>
<input type=submit value="Ta bort">
</form>
</body>
</html>
Ta bort-filen
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "db\vvKameror.mdb;Jet OLEDB:Database Password='miguel'"
selectedGroup = Request.QueryString("id")
if selectedGroup = null or selectedGroup = "" then
selectedGroup = 1
end if
selectedDirection = Request.QueryString("Riktning")
Delete = "DELETE FROM Bilder " &_
"WHERE BildGrupp =" & selectedGroup & " AND " &_
"Riktning = '" & selectedDirection & "'"
'Connect.Execute Deleteasdf
Connect.Close
%>
<%=Request.QueryString("selectGrupp")%>
------------------
Jag vill inte ha någon signatur.