<%@ LANGUAGE = JScript %> <% Response.Expires= -1 %> <% var oConn,oRs,oRs1,a,b="",aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an,ao,ap=0,aq,ar,as,at; aa=parseInt(Request.QueryString("OrderID"));ab=parseInt(Request.QueryString("OID")); ac=Request.QueryString("CustomerID");ad=parseInt(Request.QueryString("EmployeeID")); ae=Request.QueryString("OrderDate");af=Request.QueryString("RequiredDate");ag=Request.QueryString("ShippedDate"); ah=parseInt(Request.QueryString("ShipVia"));ai=parseFloat(Request.QueryString("Freight"));if(ai!=ai){ai=0} aj=Request.QueryString("ShipName");ak=Request.QueryString("ShipAddress");al=Request.QueryString("ShipCity"); am=Request.QueryString("ShipRegion");an=Request.QueryString("ShipPostalCode");ao=Request.QueryString("ShipCountry"); aq=Request.QueryString("ODt");ar=Request.QueryString("RDt");as=Request.QueryString("SDt"); if(am!=am||am==""){am="null";}if(ah!=ah||ah==""){ah="null";}at=Request.QueryString("Act"); oConn = Server.CreateObject("ADODB.Connection"); oConn.Open(at); if(Request.QueryString("UpID")==1){a="Select max(case when CustomerID='"+ac+"' And EmployeeID="+ad+" And OrderDate='"+aq+"' "; a=a+"And RequiredDate='"+ar+"' And ShipVia="+ah+" And ShipName='"+aj+"' And ShipAddress='"+ak+"' And ShipPostalCode="; a=a+"'"+an+"' then '1' else '0' end) FROM Orders;"; oRs = oConn.Execute(a); if(oRs.Fields.Item(0).Value>=1){ap=1;} else{a="insert into Orders (CustomerID, EmployeeID, OrderDate, RequiredDate, ShippedDate, ShipVia, Freight, ShipName, "; a=a+"ShipAddress, ShipCity, ShipRegion, ShipPostalCode, ShipCountry) values ('"+ac+"',"+ad+","; if(ae>""){a=a+"'"+aq+"',";}else{a=a+"null,";} if(af>""){a=a+"'"+ar+"',";}else{a=a+"null,";} if(ag>""){a=a+"'"+as+"',";}else{a=a+"null,";} a=a+"'"+ah+"',"+ai+",'"+aj+"','"+ak+"','"+al+"','"+am+"','"+an+"','"; a=a+ao+"')"; oConn.Execute (a);}} if(Request.QueryString("UpID")==2){oConn.Execute("Delete from [Order Details] where OrderID="+ab+";"); oConn.Execute("Delete from Orders where OrderID="+ab+";");} if(Request.QueryString("UpID")==3){a=" update Orders SET CustomerID='"+ac+"',EmployeeID="+ad+","; if(ae>""){a=a+"OrderDate='"+aq+"',";}else{a=a+"OrderDate=null,";} if(af>""){a=a+"RequiredDate='"+ar+"',";}else{a=a+"RequiredDate=null,";} if(ag>""){a=a+"ShippedDate='"+as+"',";}else{a=a+"ShippedDate=null,";} a=a+"ShipVia="+ah+",Freight="+ai+",ShipName='"+aj+"',ShipAddress='"+ak+"'"; a=a+",ShipCity='"+al+"',ShipRegion='"+am+"',ShipPostalCode='"+an+"',ShipCountry='"+ao+"' where OrderID="+ab+";"; oConn.Execute(a);} %>

<% if(ap==1){Response.Write("Could not add Record, Record already exists!")}%>

Order ID	Order Date	Employee Responsible		Ship Name
""&&Request.QueryString("UpID")!=2){Response.Write(ab);} else if(Request.QueryString("UpID")==1){ a="Select OrderID, CustomerID, EmployeeID, 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 OrderDate, case when day"; a=a+"(RequiredDate)<=9 then '0'+convert(char(1),day(RequiredDate)) else convert(char(2),day(RequiredDate)) end +'/'+case "; a=a+"when month(RequiredDate)<=9 then '0'+convert(char(1),month(RequiredDate)) else convert(char(2),month(RequiredDate)) "; a=a+"end +'/'+convert(char(4),Year(RequiredDate)) As RequiredDate, case when day(ShippedDate)<=9 then '0'+convert(char(1),"; a=a+"day(ShippedDate)) else convert(char(2),day(ShippedDate)) end +'/'+case when month(ShippedDate)<=9 then '0'+convert"; a=a+"(char(1),month(ShippedDate)) else convert(char(2),month(ShippedDate)) end +'/'+convert(char(4),Year(ShippedDate)) AS "; a=a+"ShippedDate , ShipVia, '$'+convert(varchar,Freight) As Freight, convert(decimal(9,2),Freight) As Frt, ShipName, ShipAddress, ShipCity, "; a=a+"ShipRegion, ShipPostalCode, ShipCountry FROM Orders Where CustomerID='"+ac+"' And EmployeeID="+ad+" And "; if(ae>""){a=a+"OrderDate='"+aq+"' And ";} if(af>""){a=a+"RequiredDate='"+ar+"' And ";} if(ag>""){a=a+"ShippedDate='"+ag+"' And ";} if(ah>""){a=a+"ShipVia="+ah+" And ";} a=a+"Freight="+ai+" And ShipName='"+aj+"' And ShipAddress='"+ak+"' And "; a=a+"ShipCity='"+al+"' And ShipPostalCode='"+an+"' And ShipCountry='"+ao+"'"; if(am>""){a=a+" And ShipRegion='"+am+"';";} oRs = oConn.Execute (a); Response.Write(oRs("OrderID"));} %> " onchange="MnFrm.OrderID.value=value;MnFrm.OrderID.onchange();">
""&&Request.QueryString("UpID")!=2){Response.Write(ae);} %> ">	<% b=""; if(Request.QueryString("UpID")!=2&&aa>0||ad>0){Response.Write("SELECT FROM LIST\n");} else{Response.Write("SELECT FROM LIST\n");} oRs1 = oConn.Execute("Select * from Employees ORDER BY FirstName, LastName;"); while(oRs1("EmployeeID")!=null&&oRs1.EOF!=1){b=b+"0&&parseInt(oRs("EmployeeID"))==oRs1("EmployeeID")){b=b+"selected ";} else if(Request.QueryString("UpID")!=2&&ad==oRs1("EmployeeID")&&aa!=aa){b=b+"selected ";} b=b+"VALUE="+oRs1("EmployeeID")+">"+oRs1("TitleOfCourtesy")+" - "+oRs1("FirstName")+" "+oRs1("LastName")+""; oRs1.moveNext();b=b+"\n";} Response.Write(b); %>		""&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs("ShipName")+"");} else if(aj>""&&Request.QueryString("UpID")!=2){Response.Write(">"+aj+"");} else{Response.Write(">");} %>
Customer Company Name			Address    ""&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs("ShipAddress")+"");} else if(ak>""&&Request.QueryString("UpID")!=2){Response.Write(">"+ak+"");} else{Response.Write(">");} %>  City            ""&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs("ShipCity")+"");} else if(al>""&&Request.QueryString("UpID")!=2){Response.Write(">"+al+"");} else{Response.Write(">");} %>  Region      ""&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs("ShipRegion")+"");} else if(am>""&&Request.QueryString("UpID")!=2){Response.Write(">"+am+"");} else{Response.Write(">");} %>  PostCode  ""&&Request.QueryString("UpID")!=2){Response.Write(an);} %> ">  Country    ""&&Request.QueryString("UpID")!=2){Response.Write(ao);} %> ">
<% b=""; if(Request.QueryString("UpID")!=2&&aa>""||ac>""){Response.Write("SELECT FROM LIST\n");} else{Response.Write("SELECT FROM LIST\n");} oRs1 = oConn.Execute("Select * From Customers Order By CompanyName;"); while(oRs1("CustomerID")!=null&&oRs1.EOF!=1){ b=b+"0&&oRs("CustomerID").Value==oRs1("CustomerID").Value){b=b+" selected";} else if(Request.QueryString("UpID")!=2&&ac==oRs1("CustomerID").value&&aa!=aa){b=b+" selected";} b=b+">"+oRs1("CustomerID")+" - "+oRs1("CompanyName")+" - "+oRs1("Phone")+""; oRs1.moveNext();b=b+"\n";} Response.Write(b); %>
Shipper
<% b=""; if(Request.QueryString("UpID")!=2&&aa>""||ah>0){Response.Write("SELECT FROM LIST\n");} else{Response.Write("SELECT FROM LIST\n");} oRs1 = oConn.Execute("Select * From Shippers Order By CompanyName;"); while(oRs1("ShipperID")!=null&&oRs1.EOF!=1){ b=b+"0&&oRs("ShipVia").Value==oRs1("ShipperID").Value){b=b+" selected";} else if(Request.QueryString("UpID")!=2&&ah==oRs1("ShipperID").Value&&aa!=aa){b=b+" selected";} b=b+">"+oRs1("CompanyName")+" - "+oRs1("Phone")+""; oRs1.moveNext();b=b+"\n";} Response.Write(b); %>
Required	Shipped	Freight Cost        Total Cost
""&&Request.QueryString("UpID")!=2){Response.Write(af);} %> ">	""&&Request.QueryString("UpID")!=2){Response.Write(ag);} %> ">	""&&Request.QueryString("UpID")!=2){Response.Write("$"+ai);} %> " Frt=" <% if(aa>""&&Request.QueryString("UpID")!=2){Response.Write(oRs("Frt"));} else if(ai>""&&Request.QueryString("UpID")!=2){Response.Write(ai);} %> "> ">
ADD!     DELETE!     UPDATE!     CLEAR!     REFRESH!