<%
on error resume next
dim connect, rs, sql
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\tempdb.mdb"))
sql = "drop table tempfile"
connect.execute(sql)
if connect.errors.count > 0 then 
  response.write("Table not found : error")
else
  response.write("Delete tempfile : ok")
end if
connect.close
set connect = nothing
%>