ASP deletes data records and deletes file pictures at the same time

Id=request ("Id")
  If id= "" Then
  Response.Write ("<script>alert" delete operation failed: Please select the information you want to delete!) '); Hitory.go ( -1);</script> ")
  Else
  Id=split (Id,", ")   
  for i=0 to UBound (Id)   
  Set Ors=server.createobject ("Adodb.recordset")
  sSQL = "Select D_ Savepathfilename from ' &data& WHERE id= ' &id (i) & ""
  oRS.Open sSQL, Conn, 0, 1
  If not Ors.eof Then
  assavepathfilename = ORs ("D_savepathfilename")
  Else
  Assavepathfilename= ""
  End If
  ors.close 
  Set ors=nothing 

Dim Asavepathfilename
If Len (asavepathfilename) >0 Then
Asavepathfilename = Split (assavepathfilename, "|")
Dim N
For n = 0 to UBound (asavepathfilename)
' Delete file by path filename
Call Dodelfile (Asavepathfilename (n))
Next
' Delete Article www.111cn.net
Conn.execute ("Delete from Article where id=" &id (i) & "")
Next
End If

Sub Dodelfile (Spathfile)
' On Error Resume Next
Dim oFSO
Set oFSO = Server.CreateObject ("Scripting.FileSystemObject")
If Objfso.fileexists (Server.MapPath (spathfile)) Then
Ofso.deletefile (Server.MapPath (spathfile))
End If

Set oFSO = Nothing
End Sub