% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("base/magazines.MDB") & ";" if request.QueryString ("page")="" then page=1 else page=request.QueryString ("page") end if SQL = "SELECT * From textes where id="&request.QueryString("id") Set rst = Conn.Execute(SQL) if rst("page1")<>" " then pagecount=pagecount+1 end if if rst("page2")<>" " then pagecount=pagecount+1 end if if rst("page3")<>" " then pagecount=pagecount+1 end if if rst("page4")<>" " then pagecount=pagecount+1 end if if rst("page5")<>" " then pagecount=pagecount+1 end if partNumber = rst("part") textnumber=request.QueryString("id") number = rst("number") author = rst("author") pagetxt = rst("page"&page) name = rst("name") partnum=rst("part") txtnum = rst("id") fnttxt = rst("fonts") videoq =rst("videoq") soundq =rst("soundq") if rst("videoq")>0 then videoVis="