fso

Hej igen
Efter en lång sökning efter hjälp måste jag fråga er om ni kan hjälpa mig med fso

Jag tänkte såhär att när jag raderar ett inlägg då ska jag tar bort bilden också som tillhör inlägget men bilden ligger i en annan mapp så...
Jag vill infoga en en litet fso i min delet script som tar bort bilder i en mapp
försökte men jag behöver hjälp.

kod: delet.asp
--------------------------------------------------------------
<%

if session("login") <> "" Then
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("omnis.mdb") & ";pwd=;"

SQL="Delete * From files2 Where ID=" & Request.Querystring("id")
'Response.Write SQL
Conn.Execute(SQL)

Conn.Close
Set Conn = Nothing
End if
Response.Redirect "admin.asp"

%>
----------------------------------------------------------

kod: admin.sap
-----------------------------------------------------------
<%'===========================

'Set fso = CreateObject("Scripting.FileSystemObject")
'Set fil = fso.GetFile(" uploaded " &filename)
'fil.delete
'fil.Close

'===================================%>
<%
Response.Write "<table width='400' align='center'><tr><td width='400' align='center'><b>Ta bort !</b></td></tr>"
Response.Write "<tr><td width='400' align='center'></td></tr></table>"

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Dim Recset
Set Recset = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("omnis.mdb") & ";pwd=;"
Dim SQL
SQL = "SELECT * From files2 Order By Datum DESC"
Recset.Open SQL, Conn, 1, 2
If RecSet.EOF Then
Response.Write "<table width='400' align='center'><tr><td align='center'>Ingen har skrivit annonserat!</td></tr>"
Response.Write "<tr><td width='400' align='right'><form action='loggaut.asp' method='post'><input type='image' src='pix/knapp_loggaut.gif' border='0'></form></td></tr></table>"
Else
Do While Not Recset.EOF
Response.Write "<table width='800' align='center'><td width='700'>"
Response.Write " <b>"& Server.HTMLEncode(Left(RecSet("datum"),40)) &"</b>"
Response.Write "....... "& Server.HTMLEncode(Left(RecSet("rubrik2k"),40)) &""
Response.Write"....... "& Server.HTMLEncode(Left(RecSet("id"),40)) &"</td>"
Response.Write "<td align='right'>"
Response.Write "<a href='delete.asp?id=" & Recset("ID") & " ' onfocus='this.blur()'>Ta bort</a>"
Response.Write "</td></table>"
Response.Write "<hr Size=1 NOSHADE Color='#000000'>"
Recset.MoveNext
Loop
Recset.Close
Conn.Close
Set Recset = Nothing
Set Conn = Nothing
Response.Write "<br><table width='400' align='center'><tr><td width='400' align='right'>"
Response.Write "<tr><td width='400' align='right'><form action='loggaut.asp' method='post'><input type='image' src='pix/knapp_loggaut.gif' border='0'></form>"
Response.Write "</td></tr></table>"
End If
%>
<%
Else
Response.Write "<table align='center'><font color='red'><b>Fel lösenord!</b></font>   <a href='loggain.asp'>Tillbaka</a></table>"
End If
%>
____________________________________________________
MVH/cupy

någon?

Har du nån aning om vad filen heter och var den ligger? Annars blir det svårt! En delete av en fil ser ut så här:

<%
dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject") 
filesys.CreateTextFile "c:\somefile.txt", True 
If filesys.FileExists("c:\somefile.txt") Then
   filesys.DeleteFile "c:\somefile.txt" 
   Response.Write("File deleted")
End If 
%>

visst jag vet var filen ligger
Men alltså jag har redan en fso i admin script längst upp om du tittar och om det är rätt kodad hoppas jag detta vill jag sätta in i delet.asp på någotsätt För att, när jag vill tar bort allt skräp från databasen jag vill ta bort bilden oxå som tillhör länken Hoppas du förstår. MVH/cupy