<%@ 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], Convert(varchar(255),Description) As Description";
a=a+" From Categories";
if(ai=="Description"){ai="Convert(varchar(255),"+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="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, isnull(Region,'-') As Region, isnull(PostalCode,'-') As [Postal Code], ";
a=a+"Country, Phone, isnull(Fax,'-') As Fax From Customers";
if(ai=="Region"||ai=="Fax"||ai=="PostalCode"){ai="isnull("+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], isnull(Employees_1.FirstName+' '+Employees_1.LastName,'-') As ";
a=a+"[Reports To], case when day(Employees.HireDate)<=9 then '0'+convert(char(1),day(Employees.HireDate)) ";
a=a+"else convert(char(2),day(Employees.HireDate)) end +'/'+case when month(Employees.HireDate)<=9 then '0'+"
a=a+"convert(char(1),month(Employees.HireDate)) else convert(char(2),month(Employees.HireDate)) end +'/'+";
a=a+"convert(char(4),Year(Employees.HireDate)) As HireDate, Employees.Title As Title, Employees.TitleOfCourtesy As ";
a=a+"[Title Of Courtesy], Employees.FirstName+' '+Employees.LastName As [Employee Name], Employees.Address As Address, ";
a=a+"Employees.City As City, isnull(Employees.Region,'-') As Region, Employees.PostalCode, Employees.Country As Country, ";
a=a+"Employees.HomePhone as [Home Phone], Employees.Extension As Extension, case when day(Employees.Birthdate)<=9 then ";
a=a+"'0'+convert(char(1),day(Employees.Birthdate)) else convert(char(2),day(Employees.Birthdate)) end +'/'";
a=a+"+case when month(Employees.Birthdate)<=9 then '0'+convert(char(1),month(Employees.Birthdate)) ";
a=a+"else convert(char(2),month(Employees.Birthdate)) end +'/'+convert(char(4),Year(Employees.Birthdate))";
a=a+" As Birthdate From Employees LEFT OUTER JOIN Employees AS Employees_1 ON Employees.ReportsTo=Employees_1.EmployeeID";
if(ai=="Region"){ai="isnull(Employees."+ai+",'-')";}
if(ai=="Birthdate"||ai=="HireDate"){h="case when day(Employees."+ai+")<=9 then '0'+convert(char(1),day(Employees."+ai+")) ";
h=h+"else convert(char(2),day(Employees."+ai+")) end +'/'+ "
h=h+"case when month(Employees."+ai+")<=9 then '0'+convert(char(1),month(Employees."+ai+")) ";
h=h+"else convert(char(2),month(Employees."+ai+")) end +'/'+convert(char(4),Year(Employees."+ai+"))";ai=h;}
if(ai=="ReportsTo"){ai="isnull(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")
{ak="Employees."+ak;}
if(ak=="Birthdate"||ak=="HireDate"){ak="Year(Employees."+ak+"),Month(Employees."+ak+"),Day(Employees."+ak+")";}
if(ak=="ReportsTo"){ak="isnull(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, case when day(OrderDate)<=9 then '0'+convert(char(1),day(OrderDate)) else ";
a=a+"convert(char(2),day(OrderDate)) end +'/'+case when month(OrderDate)<=9 then '0'+convert(char(1),month(OrderDate)) ";
a=a+"else convert(char(2),month(OrderDate)) end +'/'+convert(char(4),Year(OrderDate)) As [Order Date], [Customers].[CustomerID]";
a=a+" As [Customer ID], ShipName As [Ship Name], ContactName As [Contact Name],Customers.Phone As Phone, ";
a=a+"isnull(ShipPostalCode,'-') As [Post Code], Shippers.CompanyName As [Ship Via], isnull(case when day(RequiredDate)<=9 then '0'+";
a=a+"convert(char(1),day(RequiredDate)) else convert(char(2),day(RequiredDate)) end +'/'+case when month(RequiredDate)<=9 ";
a=a+"then '0'+convert(char(1),month(RequiredDate)) else convert(char(2),month(RequiredDate)) end +'/'+";
a=a+"convert(char(4),Year(RequiredDate)),'-') As [Required Date], isnull(case when day(ShippedDate)<=9 then '0'+";
a=a+"convert(char(1),day(ShippedDate)) else convert(char(2),day(ShippedDate)) end +'/'+case when month(ShippedDate)<=9 then ";
a=a+"'0'+convert(char(1),month(ShippedDate)) else convert(char(2),month(ShippedDate)) end +'/'+";
a=a+"convert(char(4),Year(ShippedDate)),'-') AS [Shipped Date], Shippers.Phone As [Shipper Phone], FirstName+' '+LastName AS ";
a=a+"[Employee Name] FROM Employees INNER JOIN (Shippers RIGHT JOIN (Customers INNER JOIN Orders ON Customers.CustomerID=";
a=a+"Orders.CustomerID) ON Shippers.ShipperID=Orders.ShipVia) ON Employees.EmployeeID = Orders.EmployeeID";
if(ai=="OrderDate"||ai=="RequiredDate"||ai=="ShippedDate"){h="isnull(case when day("+ai+")<=9 then '0'+";
h=h+"convert(char(1),day("+ai+")) else convert(char(2),day("+ai+")) end +'/'+ "
h=h+"case when month("+ai+")<=9 then '0'+convert(char(1),month("+ai+")) ";
h=h+"else convert(char(2),month("+ai+")) end +'/'+convert(char(4),Year("+ai+")),'-')";ai=h;}
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=="ShipperPhone"){ai="Shippers.Phone";}if(ai=="PostCode"){ai="isnull(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], '$'+Convert(varchar,UnitPrice) 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=="Discontinued"){if(aj==1){aj=-1;}else{aj=0;}}
if(aq==""&&ar==""){if(ai=="UnitPrice"){ai="'$'+Convert(varchar,UnitPrice)";}}
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], Year(OrderDate) AS [Order Year], ";
a=a+"'$'+Convert(varchar,sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'0101' And convert(varchar,Year(";
a=a+"OrderDate))+'0331' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end)) As [Qtr 1]";
a=a+" ,'$'+Convert(varchar,sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'0401' And convert(varchar,Year(";
a=a+"OrderDate))+'0630' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end)) As [Qtr 2]";
a=a+" ,'$'+Convert(varchar,sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'0701' And convert(varchar,Year(";
a=a+"OrderDate))+'0930' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end)) As [Qtr 3]";
a=a+" ,'$'+Convert(varchar,sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'1001' And convert(varchar,Year(";
a=a+"OrderDate))+'1231' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end)) As [Qtr 4]";
a=a+" FROM ([Order Details] inner join Orders on Orders.OrderID=[Order Details].OrderID) Left Outer Join Products on Products";
a=a+".ProductID=[Order Details].ProductID Group By ProductName, CustomerID, Year(OrderDate)";
if(aq>""||ar>""){
if(ai=="Qtr1"){ai="sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'0101' And convert(varchar,Year(";
ai=ai+"OrderDate))+'0331' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end)";}
if(ai=="Qtr2"){ai="sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'0401' And convert(varchar,Year(";
ai=ai+"OrderDate))+'0630' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end)";}
if(ai=="Qtr3"){ai="sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'0701' And convert(varchar,Year(";
ai=ai+"OrderDate))+'0930' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end)";}
if(ai=="Qtr4"){ai="sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'1001' And convert(varchar,Year(";
ai=ai+"OrderDate))+'1231' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end)";}}
else{
if(ai=="Qtr1"){ai="'$'+Convert(varchar,sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'0101' And convert(varchar,Year(";
ai=ai+"OrderDate))+'0331' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end))";}
if(ai=="Qtr2"){ai="'$'+Convert(varchar,sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'0401' And convert(varchar,Year(";
ai=ai+"OrderDate))+'0630' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end))";}
if(ai=="Qtr3"){ai="'$'+Convert(varchar,sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'0701' And convert(varchar,Year(";
ai=ai+"OrderDate))+'0930' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end))";}
if(ai=="Qtr4"){ai="'$'+Convert(varchar,sum(case when OrderDate Between convert(varchar,Year(OrderDate))+'1001' And convert(varchar,Year(";
ai=ai+"OrderDate))+'1231' then isnull(convert(decimal(9,2),([Order Details].UnitPrice*Quantity*(1-Discount)/100))*100,0) else '0' end))";}}
if(ai=="OrderYear"){ai="Year(OrderDate)";}
if(ai>""||al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" Having "+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="[Qtr 1]";}if(ak=="Qtr2"){ak="[Qtr 2]";}if(ak=="Qtr3"){ak="[Qtr 3]";}if(ak=="Qtr4"){ak="[Qtr 4]";}
if(ak=="OrderYear"){ak="[Order Year]";}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="ProductName";}}
%>
<%
if(ab==8){a="Select RegionID As [Region ID], convert(nvarchar,RegionDescription) As [Region Description] From Region";
if(ai=="RegionDescription"){ai="convert(varchar,RegionDescription)";}
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="RegionID;";}}
%>
<%
if(ab==9){a="Select CategoryID As [Category ID], CategoryName As [Category Name], ProductName As [Product Name],";
a=a+" '$'+Convert(varchar,ProductSales) As [Product Sales] FROM [Sales by Category]";
if(aq==""&&ar==""){if(ai=="ProductSales"){ai="'$'+Convert(varchar,"+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="CategoryID;";}}
%>
<%
if(ab==10){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==11){a="Select SupplierID As [Supplier ID], CompanyName As [Company Name], ContactName As [Contact Name],";
a=a+"ContactTitle As [Contact Title], Address, City, isnull(Region,'-') As Region, PostalCode As [Postal Code], ";
a=a+"Country, Phone, isnull(Fax,'-') As Fax From Suppliers";
if(ai=="Region"||ai=="Fax"){ai="isnull("+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==12){h=oConn.Execute("Set Rowcount 10 Select UnitPrice As Lwr From Products Order By Lwr Desc;");h.move(9);h=h("Lwr");
a="SET ROWCOUNT 10 Select ProductName AS [Ten Most Expensive Products], '$'+Convert(varchar,UnitPrice)";
a=a+" As [Unit Price] FROM Products where UnitPrice>="+h;
if(ai=="TenMostExpensiveProducts"){ai="ProductName";}
if(aq==""&&ar==""){if(ai=="UnitPrice"){ai="'$'+Convert(varchar,UnitPrice)";}}
if(ai>""||al>""){b=" And "+ai;if(al==1){b=b+" Like '"+aj+"'";}
else{b=b+" Not Like '"+aj+"' ";}}
if(ai>""||al>""||aq>""||ar>""){b=" And "+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=="TenMostExpensiveProducts"){ak="ProductName";}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="UnitPrice DESC;";}}
%>
<%
if(ab==13){a="Select TerritoryID As [Territory ID], TerritoryDescription As [Territory Description], Territories.RegionID As";
a=a+" [Region ID], RegionDescription As [Region Description] From Territories inner join Region on  Territories.RegionID=";
a=a+"Region.RegionID";
if(ai=="RegionID"){ai="Territories."+ai;}
if(ai=="TerritoryDescription"||ai=="RegionDescription"){ai="convert(varchar,"+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="TerritoryID;";}}
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,SQL,Database,Northwind,Paul I Ighofose,IPI,Ighofose,Paul Ighofose,accounts,software,web access,asp,sql asp access" 
name=Keywords><!-- CREATION DATE: 23/01/2006 -->
<META content="IPI International Microsoft SQL and ASP Document Trials.Web Page Design by Paul I Ighofose.Further Projects using SQL 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>SQL 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("./sql/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("./sql/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("./sql/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("./sql/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("./sql/Northwind - Products.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=730,height=210,left=510");}
	if(b=="8"){window.open("./sql/Northwind - Region.asp?RegionID="+u+"&Act="+MnFrm.Act.value,"","toolbar=0,menubar=0,resizable=1,scrollbars=1,width=480,height=600,left=510");}
	if(b=="10"){window.open("./sql/Northwind - Shippers.asp?ShipperID="+u+"&Act="+MnFrm.Act.value,"","toolbar=0,menubar=0,resizable=1,scrollbars=1,width=620,height=600,left=510");}
	if(b=="11"){window.open("./sql/Northwind - Suppliers.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=750,height=280,left=510");}
	if(b=="13"){window.open("./sql/Northwind - Territories.asp?TerritoryID="+u+"&Act="+MnFrm.Act.value,"","toolbar=0,menubar=0,resizable=1,scrollbars=0,width=620,height=600,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="";MnFrm.FSt.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();}
function Upd(){MnFrm.submit();}
//-->
</SCRIPT>
</HEAD>
<FORM method=get action="MS SQL - Northwind.asp" id=MnFrm>
<BODY>
<TABLE cols=2><TD align=right width=60%>
<%if(g>""||g>=-1){Response.Write("<B style='color:red;'>"+g+"</B>");}%>
<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(" ");}%>>Region List</OPTION>
<OPTION value="9"<%if(ab==9){Response.Write(" selected");}else{Response.Write(" ");}%>>Sales by Category</OPTION>
<OPTION value="10"<%if(ab==10){Response.Write(" selected");}else{Response.Write(" ");}%>>Shippers List</OPTION>
<OPTION value="11"<%if(ab==11){Response.Write(" selected");}else{Response.Write(" ");}%>>Suppliers List</OPTION>
<OPTION value="12"<%if(ab==12){Response.Write(" selected");}else{Response.Write(" ");}%>>Ten Most Expensive Products</OPTION>
<OPTION value="13"<%if(ab==13){Response.Write(" selected");}else{Response.Write(" ");}%>>Territories</OPTION>
</SELECT></TD>
<TD align=right>
Page <INPUT ID=PgNo NAME=PgNo size=3 VALUE="<%if(ad>1){Response.Write(ad);}else{Response.Write(1);}%>"></INPUT> 
of <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==8||ab==10||ab==11||ab==13){
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.
Click Field to Filter first!&#13;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 id=List cellspacing=2.5>
<THEAD id=THd name=THd><TR><%for(pi=0;pi<oRs.Fields.Count;pi++){
Response.Write("<TH>"+oRs.Fields.Item(pi).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(pi=0;pi<oRs.Fields.Count;pi++){
Response.Write("<TD><SPAN ID="+pi);
Response.Write(" TITLE='"+oRs.Fields.Item(pi).Name+"' DATASRC='"+oRs.Fields.Item(0).Name+"'");
Response.Write(" onclick='Fld(title,innerText,dataSrc);'>"+oRs.Fields.Item(pi).Value);
Response.Write("</SPAN>\n&nbsp;<SPAN CLASS='EnG_Form' STYLE='color: white'>&nbsp;|&nbsp;&nbsp;");
if(pi+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>