<%pagecount=request.form ("pagecount")%>       
       <%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 = "textes"
               objRs.Open strSQL, objCn, 3, 3
 
        objRs.Addnew
          objRs(1) = request.form ("number")        
	  objRs(2) = request.Form("part")
	  objRs(3) = request.Form("name")
	  objRs(4) = request.Form("author")
	  objRs(5) = request.Form("fnt")
  	  objRs(6) = request.Form("videoq")
  	  objRs(7) = request.Form("soundq")
  	  objRs(8) = request.Form("ident")
  	    for i=0 to pagecount-1
  	      objRs(i+9)= "Пока пусто"
  	    next  
       objRs.Update
        Set objRs = Nothing
        objCn.Close
        Set objCn = Nothing
                                response.redirect ("admin.asp")
%>