<%@ LANGUAGE = JScript %> <% Response.Expires= -1 %> <% var oConn, oRs, oRs1, a, b="", g, aa, ab, ac, ad, ae, af, ag, ah, ai, aj, ak, al, am, an=0,as; aa=parseInt(Request.QueryString("SupplierID"));ab=parseInt(Request.QueryString("SID")); ac=Request.QueryString("CompanyName");ad=Request.QueryString("ContactTitle");ae=Request.QueryString("ContactName"); af=Request.QueryString("Address");ag=Request.QueryString("City");ah=Request.QueryString("Region"); ai=Request.QueryString("PostalCode");aj=Request.QueryString("Country");ak=Request.QueryString("Phone"); al=Request.QueryString("Fax");am=Request.QueryString("HomePage");as=Request.QueryString("Act"); oConn = Server.CreateObject("ADODB.Connection"); oConn.Open(as); if(Request.QueryString("UpID")==1){ a=" Select max(case when CompanyName='"+ac+"' And Address='"+af+"' And City='"+ag+"' And PostalCode='"+ai+"' then '1' "; a=a+"else '0' end) FROM Suppliers;"; oRs = oConn.Execute(a); if(oRs.Fields.Item(0).Value>=1){an=1;} else{a="insert into Suppliers (CompanyName, ContactTitle, ContactName,Address, City, Region, PostalCode, Country, Phone, "; a=a+"Fax, HomePage) values ('"+ac+"','"+ad+"','"+ae+"','"+af+"','"+ag+"',"; if(ah>""){a=a+"'"+ah+"',"}else{a=a+"null,"}; a=a+"'"+ai+"','"+aj+"','"+ak+"',"; if(al>""){a=a+"'"+al+"',"}else{a=a+"null,"}; if(am>""){a=a+"'"+am+"');"}else{a=a+"null);"}; oConn.Execute (a);}} if(Request.QueryString("UpID")==2){oConn.Execute("Delete from Suppliers where SupplierID="+aa+";");} if(Request.QueryString("UpID")==3){a=" update Suppliers SET CompanyName='"+ac+"',ContactTitle='"+ad+"',ContactName='"+ae+"',"; a=a+"Address='"+af+"',City='"+ag+"', Region=" if(ah>""){a=a+"'"+ah+"'"}else{a=a+"null"}; a=a+",PostalCode='"+ai+"', Country='"+aj+"',Phone='"+ak+"',"; a=a+"Fax="; if(al>""){a=a+"'"+al+"'"}else{a=a+"null"}; a=a+",HomePage="; if(am>""){a=a+"'"+am+"'"}else{a=a+"null"}; a=a+" Where SupplierID="+ab+";"; oConn.Execute(a);} %> <%if(g>""||g>=-1){Response.Write(""+g+"");}%>

Supplier 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 Suppliers Order By CompanyName;"); while(oRs("SupplierID")!=null&&oRs.EOF!=1){ b=b+"0&&aa==oRs("SupplierID")){b=b+" selected";} b=b+">"+oRs("CompanyName")+" - "+oRs("City")+" - "+oRs("Region")+" - "+oRs("PostalCode")+""; oRs.moveNext();b=b+"\n";} Response.Write(b); %>

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

---

Supplier ID   0&&Request.QueryString("UpID")!=2){Response.Write(ab);} else if(Request.QueryString("UpID")==1){ a="Select * FROM Suppliers Where CompanyName='"+ac+"' And ContactTitle='"+ad+"' And ContactName='"+ae+"' And Address='"+af; a=a+"' And City='"+ag+"'"; if(ah>""){a=a+" And Region='"+ah+"'"}; a=a+" And PostalCode='"+ai+"' And Country='"+aj+"' And Phone='"+ak+"'"; if(al>""){a=a+" And Fax='"+al+"'"}; if(am>""){a=a+" And HomePage='"+am+"';"} oRs1 = oConn.Execute (a); Response.Write(oRs1("SupplierID"));} %> " size=7>		Company Name   ""&&Request.QueryString("UpID")!=2){Response.Write(ac);} %> " size=60>
Company Title	""&&Request.QueryString("UpID")!=2){Response.Write(ad);} %> " size=40>		Contact Name   ""&&Request.QueryString("UpID")!=2){Response.Write(ae);} %> " size=35>
Address	0&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs("Address")+"");} else if(af>""&&Request.QueryString("UpID")!=2){Response.Write(">"+af+"");} else {Response.Write(">");} %>
City	""&&Request.QueryString("UpID")!=2){Response.Write(ag);} %> " size=30>		Region   ""&&Request.QueryString("UpID")!=2){Response.Write(ah);} %> " size=25>			Postal Code ""&&Request.QueryString("UpID")!=2){Response.Write(ai);} %> " size=10>
Country	""&&Request.QueryString("UpID")!=2){Response.Write(aj);} %> " size=35>		Phone  ""&&Request.QueryString("UpID")!=2){Response.Write(ak);} %> ">		Fax   ""&&Request.QueryString("UpID")!=2){Response.Write(al);} %> " size=25>
Home Page	""&&Request.QueryString("UpID")!=2){Response.Write(am);} %> " size=105 ondblclick="if(value>''){Wb(value);}" TITLE="Double Click to visit Site! You can also use "#" at beginning and end of Web Address (e.g. My Site#http://www.home.pg#)!">

ADD!     DELETE!     UPDATE!     CLEAR/REFRESH!