<%@ 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,as; 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"); if(am!=am||am==""){am="null";}if(ah!=ah||ah==""){ah="null";}as=Request.QueryString("Act"); oConn = Server.CreateObject("ADODB.Connection"); oConn.Open(as); if(Request.QueryString("UpID")==1){ a="Select Sum(IIf(CustomerID='"+ac+"' And EmployeeID="+ad+" And OrderDate=format(format('"+ae+"','dd/mm/yyyy'),'mm/dd/yyyy') And RequiredDate=format(format('"+af+"','dd/mm/yyyy'),'mm/dd/yyyy')"; a=a+"And ShipVia="+ah+" And ShipName='"+aj+"' And ShipAddress='"+ak+"' And ShipPostalCode='"+an+"',1,0)) 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+"format(format('"+ae+"','dd/mm/yyyy'),'mm/dd/yyyy'),";}else{a=a+"null,";} if(af>""){a=a+"format(format('"+af+"','dd/mm/yyyy'),'mm/dd/yyyy'),";}else{a=a+"null,";} if(ag>""){a=a+"format(format('"+ag+"','dd/mm/yyyy'),'mm/dd/yyyy'),";}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 OrderID from Orders where OrderID="+ab+";");} if(Request.QueryString("UpID")==3){a=" update Orders SET CustomerID='"+ac+"',EmployeeID="+ad+","; if(ae>""){a=a+"OrderDate=format(format('"+ae+"','dd/mm/yyyy'),'mm/dd/yyyy'),";}else{a=a+"OrderDate=null,";} if(af>""){a=a+"RequiredDate=format(format('"+af+"','dd/mm/yyyy'),'mm/dd/yyyy'),";}else{a=a+"RequiredDate=null,";} if(ag>""){a=a+"ShippedDate=format(format('"+ag+"','dd/mm/yyyy'),'mm/dd/yyyy'),";}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, Format(OrderDate,'dd/mm/yyyy') As OrderDate, Format(RequiredDate,'dd/mm/yyyy')"; a=a+" As RequiredDate, Format(ShippedDate,'dd/mm/yyyy') AS ShippedDate , ShipVia, Format(Freight,'$#,###,##0.00') As "; a=a+"Freight, Freight As Frt, ShipName, ShipAddress, ShipCity, ShipRegion, ShipPostalCode, ShipCountry FROM Orders Where "; a=a+"CustomerID='"+ac+"' And EmployeeID="+ad+" And "; if(ae>""){a=a+"OrderDate=format('"+ae+"','dd/mm/yyyy') And ";} if(af>""){a=a+"RequiredDate=format('"+af+"','dd/mm/yyyy') And ";} if(ag>""){a=a+"ShippedDate=format(format('"+ag+"','dd/mm/yyyy'),'mm/dd/yyyy') 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!