Access database prevents downloading programs

access| Program | data | database | Download <%
' Access data prevents downloading programs
db= "Access.mdb" ' Database address
Setconn=server.createobject ("Adodb.connection")
Connstr= "provider=microsoft.jet.oledb.4.0;datasource=" &server.mappath (db)
Conn.openconnstr
' Add Notdownload Table
Conn.execute ("Createtablenotdownload (notdownoleobject)")
' Write <% data
Setrs=server.createobject ("Adodb.recordset")
Sql= "Select*fromnotdownload"
rs.opensql,conn,1,3
Rs.addnew
RS ("Notdown"). AppendChunk (ChrB (ASC ("<")) &CHRB (ASC ("%"))
Rs.update
Rs.close
Setrs=nothing
' Close the connection
Conn.close
Setconn=nothing
%>
Write Data Complete!
1. Please do not run this program repeatedly
2. You can now delete this program.