<%@ Language=JScript%> <% var oConn, oRs, oRs1, a, b="", aa, ab, ac, ad, ae=0,as; aa=parseInt(Request.QueryString("CategoryID"));ab=parseInt(Request.QueryString("CatID"));ac=Request.QueryString("CatName"); ad=Request.QueryString("CatDsc");as=Request.QueryString("Act"); oConn = Server.CreateObject("ADODB.Connection"); oConn.Open(as); if(Request.QueryString("UpID")==1){oRs = oConn.Execute("Select Sum(IIf(CategoryName='"+ac+"',1,0)) FROM Categories;"); if(oRs.Fields.Item(0).Value==1){ae=1;} else{oConn.Execute ("insert into Categories (CategoryName, Description) values ('"+ac+"','"+ad+"');");}} if(Request.QueryString("UpID")==2){oConn.Execute("Delete from Categories where CategoryID="+ab+";");} if(Request.QueryString("UpID")==3){ oConn.Execute("update Categories SET CategoryName='"+ac+"',Description='"+ad+"' where CategoryID="+ab+";");} %>

Category 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 Categories Order By CategoryName, Description;"); while(oRs("CategoryID")!=null&&oRs.EOF!=1){ b=b+"0&&aa==oRs("CategoryID")){b=b+" selected";} b=b+">"+oRs("CategoryName")+" - "+oRs("Description")+""; oRs.moveNext();b=b+"\n";} Response.Write(b); %>

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

---

Category ID	0&&Request.QueryString("UpID")!=2){Response.Write(ab);} else if(Request.QueryString("UpID")==1){oRs = oConn.Execute ( " Select * FROM Categories Where CategoryName='"+ac+"';"); Response.Write(oRs("CategoryID"));} %> " TITLE="If Adding Record, Leave Blank">	Category Name	""&&Request.QueryString("UpID")!=2){Response.Write(ac);} %> ">
Description	0&&Request.QueryString("UpID")!=2){ Response.Write(">"+oRs("Description")+"");} else if(ad>""&&Request.QueryString("UpID")!=2){Response.Write(">"+ad+"");} else {Response.Write(">");} %>
ADD!     DELETE!     UPDATE!     CLEAR/REFRESH!