            <%Set objCn = Server.CreateObject("ADODB.Connection")
	Set objRs = Server.CreateObject("ADODB.Recordset")
	objCn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &server.mappath("../base/magazines.mdb") & ";"
	strSQL = "numbers"
               objRs.Open strSQL, objCn, 3, 3
 
        objRs.Addnew
                  objRs(1) = request.form ("number")        
                  objRs(2) = request.form ("anons")                          
                  objRs(3) = request.form ("authorword")                                            
       objRs.Update
        Set objRs = Nothing
        objCn.Close
        Set objCn = Nothing
                                response.redirect ("admin.asp")
%>