Smiley vil ikke slettes
HejJeg har problem med en kode som jeg har lavet.
Denne kode vil ikke helt virke:
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
response.buffer = true
if session("status") <> "ok" then response.redirect "login.asp"
x_id = request.querystring("id")
a=request.form("a")
if a="" then a="I"
Select Case a
Case "I":
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../db/db.mdb")
strsql = "SELECT * FROM [smilies] WHERE [Id]=" & x_id
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
x_smiley = rs("smiley")
rs.Close
Set rs = Nothing
Case "D":
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../db/db.mdb")
strsql = "DELETE FROM [smilies] WHERE [Id]=" & x_id
set rs = conn.Execute(strsql)
conn.Close
Set conn = Nothing
set x_smiley = CreateObject ("Scripting.FileSystemObject")
set x_smiley = filesys.CreateTextFile ("../smiles/" & x_smiley & "", true)
set x_smiley = filesys.GetFile("../smiles/" & x_smiley & "")
x_smiley.Delete
Response.Redirect "smiley.asp"
End Select
%>
<HTML>
<HEAD>
</HEAD>
<BODY bgcolor="#FFFFFF">
<span style="position: absolute; top:6px;left: 8px;letter-spacing: +0px;font: 20px Verdana, Arial;font-weight: bold;">Slet Smiley</span>
<form action="delete_smiley.asp?id=<%= x_Id %>" method="post">
<input type="hidden" name="a" value="D"><br><br>
<table bgcolor="#FFFFFF" border="0" cellspacing="0" cellpadding="0" style="position: absolute; top:+150px;left: +10px">
<tr>
<td><font face='Verdana' size='2'><b>Smiley: <img src="../smiles/<%= x_smiley %>"></b> </font></td>
<td><font face='Verdana' size='1'>
</font> </td>
</tr>
<tr>
<td>
<br>
<a href='smiley.asp'>TILBAGE</a>
<input type='submit' name='Action' value='UDFØR'>
</td>
</tr>
<tr>
<td>
<font color="red"><BR><BR><BR>Hvis du trykker udfør bliver denne smiley slettet helt!!!</font>
</td>
</tr>
</form>
<tr>
<td>
<p> </p>
<!--#include file="../copyright.asp" -->
</td>
</tr>
</table>
</BODY>
</HTML>
Når jeg trykker på udfør kommer denne fejl:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method
/nyhedsscript/admin/delete_smiley.asp, line 32
Denne kode skulle gør at når man trykker på udfør, bliver smileyen slettet fra databasen og billede filen.
