<%@ LANGUAGE = JScript %>
<%  Response.Expires= -1 %>
<%
var Ccl,oConn,oRs,a,b="",c="",d="",e="",f,g,h,i,aa,ab,ac,ad,ae,af,ag,ah=0,ai,aj,ak,al,am,an,ao,ap,aq,ar,as;
if(Request.QueryString("LdFl")>""){ab=parseInt(Request.QueryString("LdFl"));}else{ab=1;}
ad=parseInt(Request.QueryString("PgNo"));ae=parseInt(Request.QueryString("PgSz"));
af=Request.QueryString("Pgs");ai=Request.QueryString("FNm");aj=Request.QueryString("FVl");
ak=Request.QueryString("FSt");al=Request.QueryString("FltTp");
if(Request.QueryString("FVl1")>""){am=Request.QueryString("FVl1");}else{am="";}
if(ao=Request.QueryString("FSt1")>""){ao=Request.QueryString("FSt1");}else{ao="";}
aq=Request.QueryString("FlF");ar=Request.QueryString("FlTo");as=Request.QueryString("Act");
oConn = Server.CreateObject("ADODB.Connection");
oConn.Open(as);
%>
<%
if(ab==1){a="Select CategoryID As [Category ID], CategoryName As [Category Name], Description From Categories";
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="CategoryID;";}}
%>
<%
if(ab==2){a="Select CustomerID As [Customer ID], CompanyName As [Company Name], ContactName As [Contact Name],";
a=a+"ContactTitle As [Contact Title], Address, City, iif(isnull(Region),'-',Region) As Region, PostalCode As [Postal Code], ";
a=a+"Country, Phone, iif(isnull(Fax),'-',Fax) As Fax From Customers";
if(ai=="Region"||ai=="Fax"){ai="iif(isnull("+ai+"),'-',"+ai+")";}
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="CustomerID;";}}
%>
<%
if(ab==3){a="Select Employees.EmployeeID As [Employee ID], iif(isnull(Employees_1.EmployeeID),'-',";
a=a+"Employees_1.FirstName&' '&Employees_1.LastName) As [Reports To], Format(Employees.HireDate,'dd/mm/yyyy') As HireDate, ";
a=a+"Employees.Title As Title, Employees.TitleOfCourtesy As [Title Of Courtesy], Employees.FirstName&' '&Employees.LastName ";
a=a+"As [Employee Name], Employees.Address As Address, Employees.City As City, iif(isnull(Employees.Region),'-',";
a=a+"Employees.Region) As Region, Employees.PostalCode, Employees.Country As Country, Employees.HomePhone as [Home Phone], ";
a=a+"Employees.Extension As Extension, Format(Employees.Birthdate,'dd/mm/yyyy') As Birthdate From Employees LEFT OUTER JOIN ";
a=a+"Employees AS Employees_1 ON Employees.ReportsTo=Employees_1.EmployeeID";
if(ai=="Region"){ai="iif(isnull(Employees."+ai+"),'-',Employees."+ai+")";}
if(ai=="Birthdate"||ai=="HireDate"){ai="Format(Employees."+ai+",'dd/mm/yyyy')";}
if(ai=="ReportsTo"){ai="iif(isnull(Employees_1.EmployeeID),'-',Employees_1.FirstName&' '&Employees_1.LastName)";}
if(ai=="EmployeeName"){ai="Employees.FirstName&' '&Employees.LastName";}
if(ai=="Title"||ai=="TitleOfCourtesy"||ai=="Country"||ai=="HomePhone"||ai=="Extension"||ai=="PostalCode"||ai=="Address"||ai=="City"||ai=="EmployeeID")
{ai="Employees."+ai;}
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak=="Title"||ak=="TitleOfCourtesy"||ak=="Country"||ak=="HomePhone"||ak=="Extension"||ak=="PostalCode"||ak=="Address"||ak=="City"||ai=="EmployeeID")
{ak="Employees."+ak;}
if(ak=="Birthdate"||ak=="HireDate"){ak="Format(Employees."+ak+",'dd/mm/yyyy')";}
if(ak=="Region"){ak="iif(isnull(Employees."+ak+"),'-',Employees."+ak+")";}
if(ak=="ReportsTo"){ak="iif(isnull(Employees_1.EmployeeID),'-',Employees_1.FirstName&' '&Employees_1.LastName)";}
if(ak=="EmployeeName"){ak="Employees.FirstName&' '&Employees.LastName";}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="Employees.EmployeeID;";}}
%>
<%
if(ab==4){a="SELECT OrderID, Format(OrderDate,'dd/mm/yyyy') As [Order Date], [Customers].[CustomerID] As [Customer ID], ";
a=a+"ShipName As [Ship Name], ContactName As [Contact Name],Customers.Phone As Phone, iif(isnull(ShipPostalCode),'-',";
a=a+"ShipPostalCode) As [Post Code], Shippers.CompanyName As [Ship Via], Format(RequiredDate,'dd/mm/yyyy') As ";
a=a+"[Required Date], Format(ShippedDate,'dd/mm/yyyy') AS [Shipped Date], Shippers.Phone As [Shipper Phone], FirstName";
a=a+"&' '&LastName AS [Employee Name] FROM Employees INNER JOIN (Shippers RIGHT JOIN (Customers INNER JOIN Orders ON Customers";
a=a+".CustomerID = Orders.CustomerID) ON Shippers.ShipperID = Orders.ShipVia) ON Employees.EmployeeID = Orders.EmployeeID";
if(ai=="ShipVia"){ai="Shippers.CompanyName";}if(ai=="CustomerID"){ai="Orders."+ai;}
if(ai=="EmployeeName"){ai="Employees.FirstName&' '&Employees.LastName";}if(ai=="ContactName"||ai=="Phone"){ai="Customers."+ai;}
if(ai=="RequiredDate"||ai=="ShippedDate"||ai=="OrderDate"){ai="Format("+ai+",'dd/mm/yyyy')";}
if(ai=="ShipperPhone"){ai="Shippers.Phone";}if(ai=="PostCode"){ai="iif(isnull(ShipPostalCode),'-',ShipPostalCode)";}
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak=="CustomerID"){ak="Orders."+ak;}if(ak=="ContactName"||ak=="Phone"){ak="Customers."+ak;}
if(ak=="EmployeeName"){ak="Employees.FirstName&' '&Employees.LastName";}if(ak=="PostCode"){ak="Orders.ShipPostalCode";}
if(ak=="ShipVia"){ak="Shippers.CompanyName";}if(ak=="ShipperPhone"){ak="Shippers.Phone";}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="OrderID;";}}
%>
<%
if(ab==5){a="SELECT ProductID As [Product ID], ProductName As [Product Name], Format(UnitPrice,'$#,###,##0.00') As";
a=a+" [Unit Price], QuantityPerUnit As [Quantity Per Unit], UnitsInStock AS [Units In Stock], UnitsOnOrder As ";
a=a+"[Units On Order], ReorderLevel AS [Reorder Level], Discontinued, CompanyName As [Company Name], ContactName As";
a=a+" [Contact Name], Phone FROM Products LEFT OUTER JOIN Suppliers ON Products.SupplierID=Suppliers.SupplierID";
if(ai=="SupplierID"){ai="Products."+ai;}if(ai=="CompanyName"||ai=="ContactName"||ai=="Phone"){ai="Suppliers."+ai;}
if(ai=="UnitPrice"){ai="Format("+ai+",'$#,###,##0.00')";}if(ai=="Discontinued"){if(aj==1){aj=-1;}else{aj=0;}}
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak=="SupplierID"){ak="Products."+ak;}if(ak=="CompanyName"||ak=="ContactName"||ak=="Phone"){ak="Suppliers."+ak;}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="ProductID;";}}
%>
<%
if(ab==6){a="Select CustomerID As [Customer ID], CompanyName As [Company Name], City, Country From [Quarterly Orders]";
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="CustomerID;";}}
%>
<%
if(ab==7){a="Select ProductName AS [Product Name], [CustomerID] As [Customer ID], OrderYear AS [Order Year], ";
a=a+"Format(iif(isnull([Qtr 1]),0,[Qtr 1]),'$#,###,##0.00') As [Qtr 1], ";
a=a+"Format(iif(isnull([Qtr 2]),0,[Qtr 2]),'$#,###,##0.00') As [Qtr 2], ";
a=a+"Format(iif(isnull([Qtr 3]),0,[Qtr 3]),'$#,###,##0.00') As [Qtr 3], ";
a=a+"Format(iif(isnull([Qtr 4]),0,[Qtr 4]),'$#,###,##0.00') As [Qtr 4] FROM [Quarterly Orders by Product]";
if(ai=="Qtr1"){ai="Format(iif(isnull([Qtr 1]),0,[Qtr 1]),'$#,###,##0.00')";}
if(ai=="Qtr2"){ai="Format(iif(isnull([Qtr 2]),0,[Qtr 2]),'$#,###,##0.00')";}
if(ai=="Qtr3"){ai="Format(iif(isnull([Qtr 3]),0,[Qtr 3]),'$#,###,##0.00')";}
if(ai=="Qtr4"){ai="Format(iif(isnull([Qtr 4]),0,[Qtr 4]),'$#,###,##0.00')";}
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak=="Qtr1"){ak="iif(isnull([Qtr 1]),0,[Qtr 1])";}
if(ak=="Qtr2"){ak="iif(isnull([Qtr 2]),0,[Qtr 2])";}
if(ak=="Qtr3"){ak="iif(isnull([Qtr 3]),0,[Qtr 3])";}
if(ak=="Qtr4"){ak="iif(isnull([Qtr 4]),0,[Qtr 4])";}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="ProductName";}}
%>
<%
if(ab==8){a="Select CategoryID As [Category ID], CategoryName As [Category Name], ProductName As [Product Name],";
a=a+" Format(ProductSales,'$#,###,###0.00') As [Product Sales] FROM [Sales by Category]";
if(ai=="ProductSales"){ai="Format("+ai+",'$#,###,##0.00')";}
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="Categories.CategoryID;";}}
%>
<%
if(ab==9){a="Select ShipperID As [Shipper ID], CompanyName As [Company Name], Phone From Shippers";
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="ShipperID;";}}
%>
<%
if(ab==10){a="Select SupplierID As [Supplier ID], CompanyName As [Company Name], ContactName As [Contact Name],";
a=a+"ContactTitle As [Contact Title], Address, City, iif(isnull(Region),'-',Region) As Region, PostalCode As [Postal Code], ";
a=a+"Country, Phone, iif(isnull(Fax),'-',Fax) As Fax From Suppliers";
if(ai=="Region"||ai=="Fax"){ai="iif(isnull("+ai+"),'-',"+ai+")";}
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="SupplierID;";}}
%>
<%
if(ab==11){a="Select TenMostExpensiveProducts AS [Ten Most Expensive Products], Format(UnitPrice,'$#,###,###0.00')";
a=a+" As [Unit Price] FROM [Ten Most Expensive Products]";
if(ai=="UnitPrice"){ai="Format("+ai+",'$#,###,##0.00')";}
if(ai>""&&al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="UnitPrice DESC;";}}
a=a+am+b;d=a+" Order By ";if(c>""){d=d+ao+c+";";}else if(ao>""){d=d+ao+";";}else{d=d+e;}
oRs=oConn.Execute(d);
am=am+b;ao=ao+c;aq="";ar="";
for(i=0;oRs.EOF!=1;i++){oRs.moveNext;}
%>
<HTML>
<HEAD>
<META content="IPI International,Microsoft,Access,Database,Northwind,Paul I Ighofose,IPI,Ighofose,Paul Ighofose,accounts,software,web access,asp,asp database access" 
name=Keywords><!-- CREATION DATE: 23/01/2006 -->
<META content="IPI International Microsoft Access and ASP Document Trials.  Web Page Design by Paul I Ighofose.  Further Projects using Access and ASP with JScript Pages." 
name=Description>
<META content="Paul I Ighofose - IPI International" name=Author>
<META content=all name=Robots>
<META http-equiv=Refresh content=430;url=http://www.ighofose.net>
<META content=designs@ipi2internation.free-online.co.uk name=Email>
<META content=http://www.ipi2internation.free-online.co.uk name=Website>
<META content="IPI International" name=Copyright>
<META content=en name=Language>
<META content=General name=Rating>
<META content=Global name=Distribution>
<META name=VI60_defaultClientScript content=JScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Northwind Database Lists</TITLE>
<LINK REL="STYLESHEET" HREF="./styles/screen.css" MEDIA="screen" TYPE="text/css">
<LINK REL="STYLESHEET" HREF="./styles/print.css" MEDIA="print" TYPE="text/css">
<SCRIPT LANGUAGE=JScript>
<!--
var s,t,u;
function AdRcs(a,b){MnFrm.WNm.value=t;c=MnFrm.WNm.createTextRange();for(i=0;c.findText(" ")!=false; i++){c.text = "";}
	a=MnFrm.WNm.value;b=MnFrm.LdFl.value;
	if(parseInt(u)>0){a="&"+a+"="+parseInt(u);}else if(u>""){a="&"+a+"="+u;}else{a="";}
	if(b=="1"){window.open("./access/Northwind - Categories.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=735,height=190,left=600");}
	if(b=="2"){window.open("./access/Northwind - Customers.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=735,height=290,left=600");}
	if(b=="3"){window.open("./access/Northwind - Employees.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=830,height=400,left=500");}
	if(b=="4"){window.open("./access/Northwind - Orders.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=815,height=600,left=500");}
	if(b=="5"){window.open("./access/Northwind - Products.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=730,height=210,left=510");}
	if(b=="9"){window.open("./access/Northwind - Shippers.asp?Act="+MnFrm.Act.value+"&#"+u,"","toolbar=0,menubar=0,resizable=1,scrollbars=1,width=600,height=600,left=510");}
	if(b=="10"){window.open("./access/Northwind - Suppliers.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=750,height=280,left=510");}}
function ClRc(a){MnFrm.FNm.value="";MnFrm.FltTp.value="";MnFrm.FSt.value="";MnFrm.FVl.value="";if(a>"")
	{MnFrm.FSt1.value="";MnFrm.FVl1.value="";}FPg();}
function Fld(a,b,c){s=a;t=c;MnFrm.FNm.value=a;c=MnFrm.FNm.createTextRange();
	for(i=0;c.findText(" ")!=false; i++){c.text = "";}MnFrm.FVl.value=b;c=MnFrm.FVl.createTextRange();
	for (i=0;c.findText("'")!=false; i++){c.text = "''";}}
function FlFt(a,b){if(a==1){if(parseInt(b)!=b){if(b.substring(0,1)!="'"){MnFrm.FlF.value="'"+b+"'";}}}
	else{if(parseInt(b)!=b){if(b.substring(0,1)!="'"){MnFrm.FlTo.value="'"+b+"'";}}}MnFrm.FltTp.value="";}
function Flt(a){if(a==1){MnFrm.FltTp.value=1;}else if(a==2){MnFrm.FltTp.value=2;}MnFrm.FSt.value="";FPg();}
function FPg(){MnFrm.PgNo.value=1;Upd();}
function LPg(){MnFrm.PgNo.value=MnFrm.Pgs.value;Upd();}
function OFld(a){u=a;}
function Pg(a){if((parseInt(MnFrm.PgNo.value)+a)>0&&(parseInt(MnFrm.PgNo.value)+a)<=parseInt(MnFrm.Pgs.value)){
	MnFrm.PgNo.value=parseInt(MnFrm.PgNo.value)+a;MnFrm.FNm.value="";MnFrm.FSt.value="";MnFrm.FltTp.value="";Upd();}}
function Srt(){MnFrm.FSt.value=s;c=MnFrm.FSt.createTextRange();
	for(i=0;c.findText(" ")!=false; i++){c.text = "";}MnFrm.FNm.value="";MnFrm.FltTp.value="";Upd();Upd();}
function Upd(){MnFrm.submit();}
//-->
</SCRIPT>
</HEAD>
<FORM method=get action="MS Access - Northwind.asp" id=MnFrm>
<BODY>
<TABLE cols=2><TD align=right width=60%>
<SELECT id=LdFl name=LdFl onchange="ClRc(1);" title="Selecting Item from list will update Page!">
<OPTION value="1"<%if(ab==1){Response.Write(" selected");}else{Response.Write(" ");}%>>Category List</OPTION>
<OPTION value="2"<%if(ab==2){Response.Write(" selected");}else{Response.Write(" ");}%>>Customer List</OPTION>
<OPTION value="3"<%if(ab==3){Response.Write(" selected");}else{Response.Write(" ");}%>>Employee List</OPTION>
<OPTION value="4"<%if(ab==4){Response.Write(" selected");}else{Response.Write(" ");}%>>Orders List</OPTION>
<OPTION value="5"<%if(ab==5){Response.Write(" selected");}else{Response.Write(" ");}%>>Products List</OPTION>
<OPTION value="6"<%if(ab==6){Response.Write(" selected");}else{Response.Write(" ");}%>>Quarterly Orders</OPTION>
<OPTION value="7"<%if(ab==7){Response.Write(" selected");}else{Response.Write(" ");}%>>Quarterly Orders by Product</OPTION>
<OPTION value="8"<%if(ab==8){Response.Write(" selected");}else{Response.Write(" ");}%>>Sales by Category</OPTION>
<OPTION value="9"<%if(ab==9){Response.Write(" selected");}else{Response.Write(" ");}%>>Shippers List</OPTION>
<OPTION value="10"<%if(ab==10){Response.Write(" selected");}else{Response.Write(" ");}%>>Suppliers List</OPTION>
<OPTION value="11"<%if(ab==11){Response.Write(" selected");}else{Response.Write(" ");}%>>Ten Most Expensive Products</OPTION>
</SELECT></TD>
<TD align=right>
Page <INPUT ID=PgNo NAME=PgNo VALUE="<%if(ad>1){Response.Write(ad);}else{Response.Write(1);}%>" size=3></INPUT>
 &nbsp;of&nbsp; <INPUT ID=Pgs NAME=Pgs VALUE="<%if(i>0&&ae>0){Response.Write(parseInt((i/ae)+.99));}
else{Response.Write(1);}%>" size=3></INPUT></TD>
</TABLE>
<H5 class=EnG_Form align=center>
<SPAN ID=AdRc onclick="AdRcs();"><%if(ab==1||ab==2||ab==3||ab==4||ab==5||ab==9||ab==10){
Response.Write("<A class=EnG_Form>Edit Records</A>");}else{Response.Write(" ");}%></SPAN> &nbsp;&nbsp;
Records to show &nbsp;<INPUT class=EnG_Form type="text" id=PgSz name=PgSz VALUE="<%if(ae>=1){Response.Write(ae);}
else{Response.Write(25);}%>" onchange="ClRc();" ondblclick="ClRc();" size=4 
title="Double Click or leave field to action"></INPUT> &nbsp;&nbsp;
<SPAN ID=FulPg onclick="ClRc(1);">Show All Records</SPAN> &nbsp;&nbsp;
<SPAN ID=FlPb onclick="Flt(1)" title="Double Click Entry to Select for filtering, then click here!">Filter by</SPAN> &nbsp;&nbsp;
<SPAN ID=FlPe onclick="Flt(2)" title="Double Click Entry to Select for filtering, then click here!">Filter Excluding</SPAN> &nbsp;&nbsp;
Filter From &nbsp;<INPUT class=EnG_Form type="text" id=FlF name=FlF VALUE="<%if(aq>=""){Response.Write(aq);}%>" 
ondblclick="FlFt(1,value);Upd();" size=12 title="Surround Text in single Quots for Text Fields.&#13;Click Field to Filter first!
Double Click to action" onchange="FlFt(1,value);"></INPUT> &nbsp;&nbsp;
to &nbsp;<INPUT class=EnG_Form type="text" id=FlTo name=FlTo VALUE="<%if(ar>=""){Response.Write(ar);}%>" onchange="FlFt(2,value);Upd();" 
ondblclick="FlFt(2,value);Upd();" size=12 title="Surround Text in single Quots for Text Fields.&#13;Click Field to Filter first!
Double Click or leave field to action"></INPUT> &nbsp;&nbsp;
<SPAN ID=FltRm onclick="Srt();">Sort By</SPAN> &nbsp;&nbsp;
<SPAN ID=FstPg onclick="FPg();">First</SPAN> &nbsp;&nbsp;
<SPAN ID=NextPg onclick="Pg(1);" >Next</SPAN> &nbsp;&nbsp;
<SPAN ID=PrevPg onclick="Pg(-1);">Previous</SPAN> &nbsp;&nbsp;
<SPAN ID=LstPg onclick="LPg();">Last</SPAN> &nbsp;&nbsp;&nbsp;
</H5>
<TABLE datapagesize=100 id=List cellspacing=2.5>
<THEAD id=THd><TR><%for(ab=0;ab<oRs.Fields.Count;ab++){
Response.Write("<TH>"+oRs.Fields.Item(ab).Name+"&nbsp;<SPAN STYLE='color: white'>&nbsp;|&nbsp;&nbsp;</SPAN></TH>\n");}%>
</TR></THEAD>
<TBODY>
<%
if(i==null||i==""){Ccl=1;}
if(Ccl==1){Response.Write("<B style='color:red;'>No Records</B>");}
else{
if(ad!=ad&&ae!=ae){ac=i;}
else if((ad*ae)>i){ac=i;}
else{ac=ad*ae;}
if(ad>1&&ad==af){ag=((ad-1)*ae);}
else{ag=ac-ae;}
if(ag!=ag){ag=0;}
if(oRs.EOF==1){oRs.moveFirst();}
for(aa=0;aa<ac;aa++){
if(aa>=ag){
Response.Write("<TR onclick='OFld(firstChild.firstChild.firstChild.nodeValue)'>\n");
for(ab=0;ab<oRs.Fields.Count;ab++){
Response.Write("<TD><SPAN ID="+ab);
Response.Write(" TITLE='"+oRs.Fields.Item(ab).Name+"' DATASRC='"+oRs.Fields.Item(0).Name+"'");
Response.Write(" onclick='Fld(title,innerText,dataSrc);'>"+oRs.Fields.Item(ab).Value);
Response.Write("</SPAN>\n&nbsp;<SPAN CLASS='EnG_Form' STYLE='color: white'>&nbsp;|&nbsp;&nbsp;");
if(ab+1==oRs.Fields.Count){Response.Write("</SPAN>\n<SPAN CLASS='EnG_Form' STYLE='color: white'>�</SPAN></TD>\n</TR>\n");}
else{Response.Write("</SPAN></TD>\n");}}}
oRs.moveNext();}}
%>
</TBODY>
</TABLE>
<INPUT ID=Act NAME=Act size=0 style="visibility:hidden;width:0;border:0;" value="<%Response.Write(as)%>"></INPUT>
<INPUT ID=WNm NAME=WNm size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE=""></INPUT>
<INPUT ID=FNm NAME=FNm size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(ai>""){Response.Write(ai);}
else{Response.Write("");}%>"></INPUT>
<INPUT ID=FVl NAME=FVl size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(aj>""){Response.Write(aj);}
else{Response.Write("");}%>"></INPUT>
<INPUT ID=FVl1 NAME=FVl1 size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(am>""){Response.Write(am);}
else{Response.Write("");}%>"></INPUT>
<INPUT ID=FltTp NAME=FltTp size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(al>0){Response.Write(al);}
else{Response.Write("");}%>"></INPUT>
<INPUT ID=FSt NAME=FSt size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(ak>""){Response.Write(ak);}
else{Response.Write("");}%>"></INPUT>
<INPUT ID=FSt1 NAME=FSt1 size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(ao>""){Response.Write(ao);}
else{Response.Write("");}%>"></INPUT>
</FORM>
</BODY>
</HTML>