Hej udvikleren.dk
Jeg 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>
Denne kode skulle gør så at når man trykker på udfør så at den sletter informationerne af smileyen fra databasen og at den sletter billede filen men det virker ikke helt :´(
Jeg håber at der er nogen fra udvikleren.dk som kan hjælpe mig, fordi jeg ikke ved så meget igen om asp hehe...