Slette billede med fso

Prøv sådan her:

<%
strSQL = "DELETE * FROM Avlshanner WHERE Hund_ID= " & Request.QueryString("id")

Conn.Execute(strSQL)
set fso = CreateObject("Scripting.FilesystemObject")
file= Server.MapPath("../billeder/hunde/") & Billedenavn
fso.DeleteFile file
%>

//>Rune

Sorry:

<%
strSQL = "DELETE * FROM Avlshanner WHERE Hund_ID= " & Request.QueryString("id")

Conn.Execute(strSQL)
set fso = CreateObject("Scripting.FilesystemObject")
file= Server.MapPath("../billeder/hunde/" & Billedenavn)
fso.DeleteFile file
%>

//>Rune

Den kommer ikke med nogen fejl nu, men den sletter ikke billedet?

Prøv lige med denne kode:

<%
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile(Server.MapPath("../billeder/hunde/" & Billedenavn)True)
if fs.FileExists(Server.MapPath("../billeder/hunde/" & Billedenavn)then
  fs.DeleteFile(Server.MapPath("../billeder/hunde/" & Billedenavn)
end if
set fs=nothing
%>

//>Rune

den kommer med denne fejl:

Tegnet ')' var ventet
/kenneljenager.dk/admin/slet_avlshanner.asp, line 12, column 68
fs.CreateTextFile(Server.MapPath("../billeder/hunde/" & Billedenavn)True)
-------------------------------------------------------------------^

<%
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile(Server.MapPath("../billeder/hunde/" & Billedenavn),True)
if fs.FileExists(Server.MapPath("../billeder/hunde/" & Billedenavn)then
  fs.DeleteFile(Server.MapPath("../billeder/hunde/" & Billedenavn)
end if
set fs=nothing
%>

//>Rune

sorry.....

Cannot use parentheses when calling a Sub

/admin/slet_avlshanner.asp, line 12

fs.CreateTextFile(Server.MapPath("../billeder/hunde/" & Billedenavn),True)
--------------------------------------------------------------------------^

<%
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
FileName=Server.MapPath("../billeder/hunde/" & Billedenavn)
fs.CreateTextFile(FileName,True)
if fs.FileExists(FileName)then
  fs.DeleteFile(FileName)
end if
set fs=nothing
%>

Cannot use parentheses when calling a Sub

/admin/slet_avlshanner.asp, line 13

fs.CreateTextFile(FileName,True)
--------------------------------^

hmm...

runes første svar burde godt nok virke..
Men du kan eventuelt prøve sådan her i stedet:

<%
strSQL = "DELETE * FROM Avlshanner WHERE Hund_ID= " & Request.QueryString("id")

Conn.Execute(strSQL)
Set fso = CreateObject("Scripting.FileSystemObject")
file= Server.MapPath("../billeder/hunde/" & Billedenavn)
fso.DeleteFile file,true
Set fso = Nothing
%>

Men hvor definere du din variabel Billednavn..?

den du lige har lavet kommer ikke med fejl, men slet ikke billedet!

øhhhh.....definerer.....det gør nok ikke, er som sagt ikke en haj! Men Billedenavn er navnet på den post i tabellen som indeholder filnavnet på billedet.

okay... Så skal det omformuleres lidt..

Så skal din kode nok nærmere være noget i stilen af:


<%
set rs = server.createobject("adodb.connection")
rs.open ***din forbindelse til databasen!!!
strSQL = "DELETE * FROM Avlshanner WHERE Hund_ID= " & Request.QueryString("id")
sql = "select Billedenavn from Avlshanner where Hund_ID = " & request.querystring("id")
set rs = Conn.execute(sql)
Conn.Execute(strSQL)
Set fso = CreateObject("Scripting.FileSystemObject")
file= Server.MapPath("../billeder/hunde/" & rs("Billedenavn"))
fso.DeleteFile file,true
Set fso = Nothing
rs.close
set rs = nothing
%>

der skal du så have en kolonne i tabellen der hedder billedenavn. Den henter du værdien ud af, og derefter sletter du..
HUSK:: at rette linien hvor du åbner den nye connection (rs.open)

Hovsa.. Lige en brøler fra min side.. Det her burde kunne gøre det:

<%
strSQL = "DELETE * FROM Avlshanner WHERE Hund_ID= " & Request.QueryString("id")
sql = "select Billedenavn from Avlshanner where Hund_ID = " & request.querystring("id")
set rs = Conn.execute(sql)
Conn.Execute(strSQL)
Set fso = CreateObject("Scripting.FileSystemObject")
file= Server.MapPath("../billeder/hunde/" & rs("Billedenavn"))
fso.DeleteFile file,true
Set fso = Nothing
set rs = nothing
%>

Er dette rigtigt med den nye connection?

set rs = server.createobject("adodb.connection")
rs.open "Avlshanner", conn, 2, 2
strSQL = "DELETE * FROM Avlshanner WHERE Hund_ID= " & Request.QueryString("id")
sql = "select Billedenavn from Avlshanner where Hund_ID = " & request.querystring("id")
set rs = Conn.execute(sql)
Conn.Execute(strSQL)
Set fso = CreateObject("Scripting.FileSystemObject")
file= Server.MapPath("../billeder/hunde/" & rs("Billedenavn"))
fso.DeleteFile file,true
Set fso = Nothing
rs.close
set rs = nothing

hvis det er, så kommer den med følgende fejl:
Undtagelse opstod.
/kenneljenager.dk/admin/slet_avlshanner.asp, line 17
linie 17 er: file= Server.MapPath("../billeder/hunde/" & rs("Billedenavn"))

du skal ikke lige tænkte på det jeg skrev før :-)

Havde som sagt lavet en brøler..

Se hellere: 09/07-2004 23:17:16

vi prøver igen....øjeblik!

ØV....den siger følgende:

Undtagelse opstod.
/kenneljenager.dk/admin/slet_avlshanner.asp, line 15
linie 15: file= Server.MapPath("../billeder/hunde/" & rs("Billedenavn"))

hmm...

prøv lige det her, og se om det er det rigtige billedenavn den skriver ud...

<%
strSQL = "DELETE * FROM Avlshanner WHERE Hund_ID= " & Request.QueryString("id")
sql = "select Billedenavn from Avlshanner where Hund_ID = " & request.querystring("id")
set rs = Conn.execute(sql)
response.write rs("billedenavn")
'Conn.Execute(strSQL)
'Set fso = CreateObject("Scripting.FileSystemObject")
'file= Server.MapPath("../billeder/hunde/" & rs("Billedenavn"))
'fso.DeleteFile file,true
'Set fso = Nothing
'set rs = nothing
%>

jo, den er go nok!

hmm...

prøv så:

<%
strSQL = "DELETE * FROM Avlshanner WHERE Hund_ID= " & Request.QueryString("id")
sql = "select Billedenavn from Avlshanner where Hund_ID = " & request.querystring("id")
set rs = Conn.execute(sql)
response.write rs("billedenavn")
'Conn.Execute(strSQL)
Set fso = CreateObject("Scripting.FileSystemObject")
file= Server.MapPath("../billeder/hunde/" & rs("Billedenavn"))
fso.DeleteFile file,true
Set fso = Nothing
'set rs = nothing
%>

Tilladelse nægtet
/kenneljenager.dk/admin/slet_avlshanner.asp, line 17

linie 17: fso.DeleteFile file,true

har givet tilladelse nu!

virker det når du har tilladelse..?

nu siger den:

Filen blev ikke fundet
/kenneljenager.dk/admin/slet_avlshanner.asp, line 17

er den slettet..?
Eller ligger den der stadig ?

ahhh......ellebaek, jeg tror lige du er blevet forfremmet til Gud!

hurra...

Er jeg så ikke længere Eriks højre hånd :-)
hvis det virker, så skal du blot lige tilføje de sidste linier..

Altså:

<%
strSQL = "DELETE * FROM Avlshanner WHERE Hund_ID= " & Request.QueryString("id")
sql = "select Billedenavn from Avlshanner where Hund_ID = " & request.querystring("id")
set rs = Conn.execute(sql)
Set fso = CreateObject("Scripting.FileSystemObject")
file= Server.MapPath("../billeder/hunde/" & rs("Billedenavn"))
fso.DeleteFile file,true
Conn.Execute(strSQL)
Set fso = Nothing
'set rs = nothing
%>

hehe....nope, ikke længere!

Top Nice, smid et svar så du kan få dine point! :)

Jeg smider et svar.. :-)
Og så vil jeg også hoppe over i min seng da...!

Men jeg har mokket Erik ned fra olympen...! Det er vigtigt :-)

Jeg kan godt forstå du er stolt af at få mokket ham ned - det er en stor ting *G* Sov godt!