La copie de code est la suivante:
<%
db = "Market.asp" 'Changez-le dans votre adresse de base de données
setConn = server.createObject ("adodb.connection")
Connstr = "Provider = Microsoft.jet.oledb.4.0; DataSource =" & Server.Mappath (DB)
Conn.OpenConstr
Conn.execute ("CreateTableNotDownload (NotdownLeObject)")
setrs = server.createObject ("adodb.recordSet")
sql = "select * fromNotDownload"
Rs.OpenSQL, Conn, 1,3
Rs.Addnew
RS ("Notdown"). APPENDE (CHRB (ASC ("<")) & Chrb (ASC ("%")))
Rs.Update
Rs.Close
setrs = rien
Conn.Close
setConn = rien
%>