La copia del código es la siguiente:
<%
db = "Market.asp" 'Cámbielo a la dirección de su base de datos
setconn = server.createObject ("ADODB.Connection")
Connstr = "Provider = Microsoft.Jet.OLEDB.4.0; DataSource =" & Server.Mappath (DB)
Conn.openconnstr
conn.execute ("CreateTableNoTdownload (noTdownLeObject)")
setrs = server.createObject ("ADODB.Recordset")
sql = "Seleccionar*FromNotDownload"
Rs.opensql, Conn, 1,3
Rs.addnew
RS ("Notdown"). AppendChunk (CHRB (ASC ("<")) y CHRB (ASC ("%"))))
rs.
rs.
SETRS = nada
Conn.clar
setConn = nada
%>