<form name="form2" action="newdisplay2.asp">
<input name="Button" type="button" class="button" onClick="location.href='?action=doDelete&amp;OrderID=<%=rs("OrderID")%>';GP_popupConfirmMsg('Warning!\r\rNo Undo For This Step !\r\rDelete <%=rs("pdf")%> ?');return document.MM_returnValue" value="Delete PDF file from Server">

<%

IF Request.QueryString("action")="doDelete" THEN
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("..\file\") &"\"& rs("pdf"))
fileObject.Delete
Set fileObject = Nothing
Set fso = Nothing
END IF
%>

</form>

-----
-----

I formen ovan vill jag få in detta oxå, som det är nu har jag 2 st form som är lika, bara olika filer den raderar från serven, pdf & img (bilder) jag skulle vilja att få det att funka så att den raderar bägge filerna pdf & img på ett klick, den lilla kod snutt jag har nedan vill jag ha hjälp att få in i koden ovan.


Set fileObject = fso.GetFile(Server.MapPath("..\file\") &"\"& rs("img"))

-----
-----

Skulle oxå om någon vet hur få detta att funka så att det raderas från databasen + filerna på serven pdf & img, på ett klick.


<form name="form4" method="post" action="newdisplay2.asp?action=tabort&OrderID=<%=rs("OrderID")%>">
<input name="Submit" type="submit" class="button" onClick="GP_popupConfirmMsg('Warning!\r\rNo Undo For This Step !\r\rDelete <%=rs("Model")%> ?');return document.MM_returnValue" value="Delete product">
</form>

-----
-----

Du stoppar ju in all delete kod på samma ställe, radera från databasen, tar sen bort den första filen och sen den andra. Koden har du ju redan, bara att plocka in det på samma ställe.


//Anna-Karin

okej, men jag vet inte vart jag skall lägga in den? får bara en massa fel ju :-( men var för sig så funkar det ju.

Det är bra om du skriver vilka fel som du får, det är lättare att hjälpa till då.
Jag har själv en funktion där jag först rensar från en databas och sen raderar en fil och den fungerar perfekt.


//Anna-Karin

Testa med detta.. vet inte om det funkar helt och hållet. Har nämligen inte testat det.

<code>
<%
IF Request.QueryString("action")="doDelete" THEN
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("..\file\") &"\"& rs("pdf"))
fileObject.Delete
Set fileObject = Nothing

Set fileObject = fso.GetFile(Server.MapPath("..\file\") &amp;"\"&amp; rs("img"))
fileObject.Delete
Set fileObject = Nothing
Set fso = Nothing

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source="& Server.MapPath("SÖKVÄGEN TILL DATABASEN")

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT * From TABELLNAMN WHERE OrderID="& Request("OrderID"), Connect, 1, 3
RecSet.Delete
RecSet.Update
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
END IF
%>
</form>
</code>

denna kod funkar

<code>
<%

IF Request.QueryString("action")="doDelete" THEN
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("..\file\") &"\"& rs("pdf"))
fileObject.Delete
Set fileObject = Nothing
Set fso = Nothing
END IF
%>
</code>

vill till denna kod få in

<code>
rs("img"))
</code>


så att både rs("img")) och rs("pdf")) (bild och pdf fil) raderas
som det är nu då jag testar så raderas bara den först "rs("pdf"))"

hoppas någon förstår.

/Tommy

Du gör ju på samma sätt som den fungerande koden bara det att du lägger till den och där stoppar in din
rs("img") istället för rs("pdf")


//Anna-Karin

jo det där vet jag, jag vill på ett klick (button) kuna radera rs("img") & rs("pdf") inte göra det där i 2 moment.

Vad är då problemet?

Du lägger ju in all radera kod i din delete funktion.

'
IF Request.QueryString("action")="doDelete" THEN 
  ' delete på din SQL sats först här
  'DELETE FROM osv

   Set fso = CreateObject("Scripting.FileSystemObject") 

'radera pdf filen
   Set fileObject = fso.GetFile(Server.MapPath("..\file\") &"\"& rs("pdf"))
   fileObject.Delete 
   Set fileObject = Nothing  

' radera rs("img")
   Set fileObject = fso.GetFile(Server.MapPath("..\file\") &"\"& rs("img"))
   fileObject.Delete 
   Set fileObject = Nothing 
 
' stäng snyggt och prydligt
   Set fso = Nothing 
END IF