<%
dim fs
dim path
Set rs = server.CreateObject("ADODB.recordset")
Set DB = server.CreateObject("ADODB.Connection")
Set fs=Server.CreateObject("Scripting.FileSystemObject") 
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\audio.mdb")
archivo = Request.Form("archivo")
id = Request.Form("id")
path = "C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\web\imagenes\mp3\"
if fs.FileExists(path & "\" & archivo) and archivo <> "" then
	fs.DeleteFile(path & "\" & archivo)
end if
set fs=nothing
SQL = "UPDATE audioNotas "
SQL = SQL & "SET zstatus = 'C' "
SQL = SQL & "WHERE id = " & id & ";"
DB.Execute(SQL)
response.Write("SQL=" & SQL)
%>