<%@ LANGUAGE=JScript CodePage=1256%> <% var BN=Request.QueryString("BN"); if( Application("BooksDBOpen")!=1 ) { filePath = Server.MapPath("Books.mdb"); Application("BookConn") = Server.CreateObject("ADODB.Connection"); Application("BookConn").Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +filePath); Application("BooksDBOpen")=1; } oRs = Application("BookConn").Execute ("Select Id,Title,IsHead from [Text] where BookNo="+BN ); Nam = Application("BookConn").Execute ("Select BookName from [Info] where BookNo="+BN ); %>

<% bg=true; while (!oRs.EOF) { var Title=new String(""); var TmpStr=new String( oRs("Title") ); for (i=0; i") } else { Response.Write(" colspan=3>") Response.Write(""+Title); Response.Write("") } oRs.MoveNext(); bg=!bg; }//While %> <%Response.Write(Nam("BookName"));%> "+Title); Response.Write("