Har suttit och försökt att göra om delete funktionen som jag fick hjälp med här innan...
Hade tänkt att man skulle kunna söka i databasen, och få de olika posterna listade med sina ID nr, och sedan med hjälp av en länk kunna ta bort valfri...men det går inte....
Har fått massa med felmedelande, men nu får jag bara ett....
Har tre styck sidor.
En som skickar sök ordet, en sida som ska lista upp länken med delete funktionen och en som ska ta bort posten.
Alternativ.asp:
Väjl vilken post du vill ta bort och ur vilken tabell.
<form method="post" action="../delete/delete.asp" size="0">
<input type="text" name="Sok">
<BR>
<input type="Radio" name="band" value="filmer" checked size="10">Filmer</input>
<BR>
<input type="Radio" name="band" value="punk" size="10">Punk</input>
<BR>
<input type="Radio" name="band" value="metal" size="10">Metal</input>
<BR>
<input type="Radio" name="band" value="blandat" size="10">Blandat</input>
<BR>
<input type="submit" value="Sök">
<BR>
</FORM>
Delete.asp:
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\alternativ\databaser\allt.mdb"
set RS = DBConnection.Execute(SQLstring)
if Request.Form("band") = "filmer" Then
Response.Write "<a href=../filmer.asp?ID="& rs("ID") & ">"& rs("TITEL") & "</a> <a href=../delete/deleting.asp?action=DELETE&ID="& rs("ID") &"> Ta bort</a><BR>"
elseif Request.Form("band") = "punk" Then
SQL = "SELECT * From PUNK WHERE KEY_WORD LIKE '%" & Request.Form("Sok") & "%'"
elseif Request.Form("band") = "metal" Then
SQL = "SELECT * From METAL WHERE KEY_WORD LIKE '%" & Request.Form("Sok") & "%'"
elseif Request.Form("band") = "blandat" Then
SQL = "SELECT * From Blandat WHERE KEY_WORD LIKE '%" & Request.Form("Sok") & "%'"
end if
set rs = Connect.Execute(SQL)
if not rs.eof then
do until rs.eof
if Request.Form("band") = "filmer" Then
Response.Write "<a href=../allt.asp?ID="& rs("ID") & ">" & rs("TITEL") & "</a><BR>"
else
Response.Write "<a href=../allt.asp?ID="& rs("ID") & ">" & rs("BAND") & "</a><BR>"
end if
rs.movenext
loop
rs.close
Connect.close
else
end if
%>
Deleting.asp:
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\alternativ\databaser\allt.mdb"
Set rs = Connection.Execute("SELECT * From Filmer WHERE ID =" & Request.QueryString("ID"))
%>
<%
Do Until rs.EOF
Response.Write ("</FONT><B>Titel:</B><FONT COLOR=LIGHTBLACK>" & rs("TITEL") & "</FONT><B><BR>Medverkande:</B><FONT COLOR=LIGHTBLACK> " & rs("Medverkande") & "</FONT><B><BR>Utgivnings år:</B><FONT COLOR=LIGHTBLACK> " & rs("utgivnings_år") & "</FONT><BR><B>Betyg:</B> <FONT COLOR=LIGHTBLACK>" & rs("betyg"))
rs.MoveNext
loop
rs.Close
Set rs = Nothing
Connection.Close
Set Connection = Nothing
%>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\alternativ\databaser\allt.mdb"
If Request.QueryString("action") = "DELETE" Then
SQL = "DELETE FROM FILMER Where ID=" & Request.QueryString("ID")
connection.execute SQL,,128
Connection.close
End If
%>
och får följande fel:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
/delete/delete.asp, line 8
Man blir ju grå i skallen av dessa problem...
/Dwarfen