|
<% 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 %> |