<%@ LANGUAGE = JScript %> <% Response.Expires= -1 %> <% var oConn, oRs, oRs1, a, b="", aa, ab, ac, ad, ae, af, ag, ah=0, ai, aj, ak,as; aa=parseInt(Request.QueryString("CompanyID"));ab=parseInt(Request.QueryString("COID")); ac=Request.QueryString("ShipAttn");ad=Request.QueryString("ShipAddress"); ae=Request.QueryString("ShipCity");af=Request.QueryString("ShipStateOrProvince");ag=Request.QueryString("ShipPostalCode"); ai=Request.QueryString("ShipRegion");aj=Request.QueryString("ShipCountry");ak=Request.QueryString("ShipNotes"); as=Request.QueryString("Act"); oConn = Server.CreateObject("ADODB.Connection"); oConn.Open(as); if(Request.QueryString("UpID")==1){ a=" Select Sum(IIf(CompanyID="+ab+",1,0)) FROM ShipTo;"; oRs = oConn.Execute(a); if(oRs.Fields.Item(0).Value>=1){ah=1;} else{a="insert into ShipTo (CompanyID, ShipAttn, ShipAddress, ShipCity, ShipStateOrProvince, ShipPostalCode,"; if(ai>""){a=a+" ShipRegion,";} a=a+"ShipCountry " if(ak>""){a=a+", ShipNotes";} a=a+") values ("+ab+",'"+ac+"','"+ad+"','"+ae+"','"+af+"','"+ag+"',"; if(ai>""){a=a+"'"+ai+"',";} a=a+"'"+aj+"'"; if(ak>""){a=a+",'"+ak+"'";} a=a+");"; oConn.Execute (a);}} if(Request.QueryString("UpID")==2){oConn.Execute("Delete CompanyID from ShipTo where CompanyID="+aa+";");} if(Request.QueryString("UpID")==3){a=" update ShipTo SET ShipAttn='"+ac+"',ShipAddress='"+ad+"',ShipCity='"+ae+"',"; a=a+" ShipStateOrProvince='"+af+"',ShipPostalCode='"+ag+"',"; if(ai>""){a=a+"ShipRegion='"+ai+"',";} a=a+" ShipCountry='"+aj+"'"; if(ak>""){a=a+", ShipNotes='"+ak+"'";} a=a+" Where CompanyID="+ab+";"; oConn.Execute(a);} %>

Company ID

<% if(Request.QueryString("UpID")!=2&&aa>0){Response.Write("SELECT FROM LIST\n");} else{Response.Write("SELECT FROM LIST\n");} oRs = oConn.Execute("Select * From ShipTo Order By ShipAttn;"); while(oRs("CompanyID")!=null&&oRs.EOF!=1){ b=b+"0&&aa==oRs("CompanyID")){b=b+" selected";} b=b+">"+oRs("ShipAttn")+" - "+oRs("ShipCity")+" - "+oRs("ShipStateOrProvince")+" - "+oRs("ShipPostalCode")+""; oRs.moveNext();b=b+"\n";} Response.Write(b); %>

For Deleting and Updating Only!!!               <% if(ah==1){Response.Write("Could not add Record, Record already exists!")}%>

---

Company ID	<% b=""; if(Request.QueryString("UpID")!=2&&aa>0){Response.Write("SELECT FROM LIST\n"); oRs = oConn.Execute("Select * From ShipTo where CompanyID="+aa+" Order By ShipAttn;");} else if(Request.QueryString("UpID")!=2&&ab>0){Response.Write("SELECT FROM LIST\n"); oRs = oConn.Execute("Select * From ShipTo where CompanyID="+ab+" Order By ShipAttn;");} else{Response.Write("SELECT FROM LIST\n");} oRs1 = oConn.Execute ( " Select * from Company ORDER BY CompanyName;"); while(oRs1("CompanyID")!=null&&oRs1.EOF!=1){ b=b+"0&&parseInt(oRs("CompanyID"))==oRs1("CompanyID")&&Request.QueryString("UpID")!=2){b=b+" SELECTED ";} else if(Request.QueryString("UpID")!=2&&ab>0){if(ab==oRs1("CompanyID")){b=b+" SELECTED ";}} b=b+"VALUE="+oRs1("CompanyID")+">"+oRs1("CompanyName")+" - "+oRs1("City")+""; oRs1.moveNext();b=b+"\n";} Response.Write(b); %>		Ship Name	""&&Request.QueryString("UpID")!=2){Response.Write(ac);} %> " size=38 style="WIDTH: 320px; HEIGHT: 22px">
Address	0&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs("ShipAddress")+"");} else if(ad>""&&Request.QueryString("UpID")!=2){Response.Write(">"+ad+"");} else {Response.Write(">");} %>
City	""&&Request.QueryString("UpID")!=2){Response.Write(ae);} %> " size=30>			State Or Province	""&&Request.QueryString("UpID")!=2){Response.Write(af);} %> " size=32>
Postal Code	""&&Request.QueryString("UpID")!=2){Response.Write(ag);} %> " size=10>	Region	""&&Request.QueryString("UpID")!=2){Response.Write(ai);} %> " size=25>		Country	""&&Request.QueryString("UpID")!=2){Response.Write(aj);} %> " size=25 style="WIDTH: 160px; HEIGHT: 22px">
Shipment Notes	0&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs("ShipNotes")+"");} else if(ak>""&&Request.QueryString("UpID")!=2){Response.Write(">"+ak+"");} else {Response.Write(">");} %>					ADD!     DELETE!     UPDATE!     CLEAR/REFRESH!