<%@ LANGUAGE = JScript %> <% Response.Expires= -1 %> <% var oConn, oRs, oRs1, a, b="", ba, bb; var aa, ab, ac, ad, ae, af, ag, ah, ai, aj, ak, al, am, an, ao, ap, aq, ar, as, at, au, av, aw, ax, ay, az; aa=parseInt(Request.QueryString("ContactID"));ab=parseInt(Request.QueryString("CID")); ac=parseInt(Request.QueryString("CompanyID"));ad=Request.QueryString("Title");ae=Request.QueryString("FirstName"); af=Request.QueryString("LastName");ag=Request.QueryString("Dear");ah=Request.QueryString("WorkPhone"); ai=Request.QueryString("WorkExtension");aj=Request.QueryString("HomePhone");ak=Request.QueryString("MobilePhone"); al=Request.QueryString("FaxNumber");am=Request.QueryString("PagerNumber");an=Request.QueryString("EmailName"); ao=Request.QueryString("Birthdate");ap=Request.QueryString("LastMeetingDate"); aq=parseInt(Request.QueryString("ContactTypeID"));ar=Request.QueryString("ReferredBy");as=Request.QueryString("Notes"); at=Request.QueryString("MaritalStatus");au=Request.QueryString("SpouseName");av=Request.QueryString("SpousesInterests"); aw=Request.QueryString("ChildrenNames");ax=Request.QueryString("Hometown");ay=Request.QueryString("ContactsInterests"); az=Request.QueryString("PrintFlag");if(az==1||az=="on"){az=-1;}else{az=0;}bb=Request.QueryString("Act"); oConn = Server.CreateObject("ADODB.Connection"); oConn.Open(bb); if(Request.QueryString("UpID")==1){ a=" Select Sum(IIf(FirstName='"+ae+"' And LastName='"+af+"' And ContactTypeID="+aq; a=a+" And WorkPhone='"+ah+"',1,0)) FROM Contacts;"; oRs = oConn.Execute(a); if(oRs.Fields.Item(0).Value>=1){ba=1;} else{a="insert into Contacts (CompanyID, Title, FirstName, LastName, Dear, WorkPhone, WorkExtension, HomePhone,"; a=a+" MobilePhone, FaxNumber, PagerNumber, EmailName, Birthdate, LastMeetingDate, ContactTypeID, ReferredBy,"; a=a+" Notes, MaritalStatus, SpouseName, SpousesInterests, ChildrenNames, Hometown, ContactsInterests, PrintFlag)"; a=a+" values ("+ac+",'"+ad+"','"+ae+"','"+af+"','"+ag+"','"+ah+"','"+ai+"','"+aj+"','"+ak+"','"+al+"','"+am+"','"; a=a+an+"',"; if(ao>""&&ao!=null){a=a+"format(format('"+ao+"','dd/mm/yyyy'),'mm/dd/yyyy'),";}else{a=a+"null,";} if(ap>""&&ap!=null){a=a+"format(format('"+ap+"','dd/mm/yyyy'),'mm/dd/yyyy'),";}else{a=a+"null,";} a=a+aq+",'"+ar+"',"; if(as>""&&as!=null){a=a+"'"+as+"',";}else{a=a+".,";} a=a+"'"+at+"','"+au+"','"+av+"','"+aw+"','"+ax+"','"+ay+"',"+az+");"; oConn.Execute(a);}} if(Request.QueryString("UpID")==2){oConn.Execute("Delete ContactID from Contacts where ContactID="+ab+";");} if(Request.QueryString("UpID")==3){a=" update Contacts SET CompanyID="+ac+",Title='"+ad+"',FirstName='"+ae+"'"; a=a+",LastName='"+af+"',Dear='"+ag+"',WorkPhone='"+ah+"',WorkExtension='"+ai+"',HomePhone='"+aj+"'"; a=a+",MobilePhone='"+ak+"',FaxNumber='"+al+"',PagerNumber='"+am+"',EmailName='"+an+"',"; if(ao!=null&&ao>""){a=a+"Birthdate=format(format('"+ao+"','dd/mm/yyyy'),'mm/dd/yyyy')";}else{a=a+"Birthdate=null";} if(ap!=null&&ap>""){a=a+",LastMeetingDate=format(format('"+ap+"','dd/mm/yyyy'),'mm/dd/yyyy')";}else{a=a+",LastMeetingDate=null";} a=a+",ContactTypeID="+aq+",ReferredBy='"+ar+"',"; if(as!=null&&as>""){a=a+"Notes='"+as+"'";}else{a=a+"Notes=.";} a=a+",MaritalStatus='"+at+"',SpouseName='"+au+"',SpousesInterests='"+av+"',ChildrenNames='"+aw+"'"; a=a+",Hometown='"+ax+"',ContactsInterests='"+ay+"',PrintFlag="+az+" where ContactID="+ab+";"; oConn.Execute(a);} %>

Contact ID

<% if(Request.QueryString("UpID")!=2&&aa>0){Response.Write("SELECT FROM LIST\n");} else{Response.Write("SELECT FROM LIST\n");} a="Select ContactID, FirstName, LastName, Title, Contacts.CompanyID As CompanyID, CompanyName, City from Contacts"; a=a+" INNER JOIN Company ON Company.CompanyID=Contacts.CompanyID ORDER BY FirstName, LastName, CompanyName, City;" oRs = oConn.Execute(a); while(oRs("CompanyID")!=null&&oRs.EOF!=1){ b=b+"0&&aa==oRs("ContactID")){b=b+"selected ";} b=b+"VALUE="+oRs("ContactID")+">"+oRs("FirstName")+" "+oRs("LastName")+" - "; b=b+oRs("Title")+" - "+oRs("CompanyName")+" - "+oRs("City")+""; oRs.moveNext();b=b+"\n";} Response.Write(b); %>

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

---

");} else if(Request.QueryString("UpID")!=2&&as>""){Response.Write(">"+as+"");} else{Response.Write(">.");} %> ");} else if(av>""&&Request.QueryString("UpID")!=2){Response.Write(">"+av+"");} else{Response.Write(">");} %> ");} else if(aw>""&&Request.QueryString("UpID")!=2){Response.Write(">"+aw+"");} else{Response.Write(">");} %> ");} else if(ay>""&&Request.QueryString("UpID")!=2){Response.Write(">"+ay+"");} else{Response.Write(">");} %>

Contact ID	0&&Request.QueryString("UpID")!=2){Response.Write(ab);} else if(Request.QueryString("UpID")==1){ a="Select * FROM Contacts Where FirstName='"+ae+"' And LastName='"+af+"' And WorkPhone='"+ah+"';"; oRs = oConn.Execute (a); Response.Write(oRs("ContactID"));} %> ">	Title	0){a="Select CompanyID, Dear, Title From Contacts where ContactID="+aa+";"; oRs1 = oConn.Execute(a); Response.Write(oRs1("Title"));} else if(ad>""&&Request.QueryString("UpID")!=2){Response.Write(ad);} %> ">
Company ID	<% b=""; if(Request.QueryString("UpID")!=2&&ac!=null&&ac>0||aa>0){Response.Write("SELECT FROM LIST\n");} else{Response.Write("SELECT FROM LIST\n");} oRs = oConn.Execute ( " Select * from Company ORDER BY CompanyName;"); while(oRs("CompanyID")!=null&&oRs.EOF!=1){ b=b+"0&&parseInt(oRs1("CompanyID"))==oRs("CompanyID")&&Request.QueryString("UpID")!=2){b=b+" SELECTED ";} else if(Request.QueryString("UpID")!=2&&ac!=null&&ac>0){if(ac==oRs("CompanyID")){b=b+" SELECTED ";}} b=b+"VALUE="+oRs("CompanyID")+">"+oRs("CompanyName")+" - "+oRs("City")+""; oRs.moveNext();b=b+"\n";} Response.Write(b); %>			Dear	""&&Request.QueryString("UpID")!=2){Response.Write(ag);} %> ">
Contact Type ID	<% b=""; if(Request.QueryString("UpID")!=2&&aq!=null&&aq>0||aa>0){ Response.Write("SELECT FROM LIST\n");} else{Response.Write("SELECT FROM LIST\n");} oRs = oConn.Execute ( " Select * from ContactTypes ORDER BY ContactType;"); while(oRs("ContactTypeID")!=null&&oRs.EOF!=1){ b=b+"0){a="Select ContactID,CompanyID,ContactTypeID,Dear,Title,FirstName,LastName,"; a=a+"WorkPhone,WorkExtension,HomePhone,MobilePhone,FaxNumber,PagerNumber,EmailName,Format(Birthdate,'dd/mm/yyyy')"; a=a+"As Birthdate,Format(LastMeetingDate,'dd/mm/yyyy') As LastMeetingDate,ReferredBy,Notes,Hometown,MaritalStatus,"; a=a+"SpouseName,SpousesInterests,ChildrenNames,ContactsInterests,PrintFlag from Contacts where ContactID="+aa+";"; oRs1 = oConn.Execute(a); if(parseInt(oRs1("ContactTypeID"))==oRs("ContactTypeID")){b=b+" SELECTED ";}} else if(Request.QueryString("UpID")!=2&&aq!=null&&aq>0){if(aq==oRs("ContactTypeID")){b=b+" SELECTED ";}} b=b+"VALUE="+oRs("ContactTypeID")+">"+oRs("ContactType")+""; oRs.moveNext();b=b+"\n";} Response.Write(b); %>		Print Flag   0&&Request.QueryString("UpID")!=2&&oRs1("PrintFlag")==1){Response.Write("checked");} else if(aa>0&&Request.QueryString("UpID")!=2&&oRs1("PrintFlag")==0){Response.Write(0);} else if(az!=0&&Request.QueryString("UpID")!=2){Response.Write("checked");} %> onclick="if(checked==1){value=1;}">	Last Meeting Date	""&&Request.QueryString("UpID")!=2){Response.Write(ap);} %> ">
First Name	""&&Request.QueryString("UpID")!=2){Response.Write(ae);} %> ">	Last Name	""&&Request.QueryString("UpID")!=2){Response.Write(af);} %> ">	Hometown	""&&Request.QueryString("UpID")!=2){Response.Write(aj);} %> ">
Work Phone	0&&Request.QueryString("UpID")!=2){Response.Write(oRs1("WorkPhone"));} else if(ah!="null"&&ah>""&&Request.QueryString("UpID")!=2){Response.Write(ah);} %> ">	Work Extension	0&&Request.QueryString("UpID")!=2){Response.Write(oRs1("WorkExtension"));} else if(ai!="null"&&ai>""&&Request.QueryString("UpID")!=2){Response.Write(ai);} %> ">	Home Phone	0&&Request.QueryString("UpID")!=2){Response.Write(oRs1("HomePhone"));} else if(aj!="null"&&aj>""&&Request.QueryString("UpID")!=2){Response.Write(aj);} %> ">
Mobile Phone	""&&Request.QueryString("UpID")!=2){Response.Write(ak);} %> ">	Fax Number	""&&Request.QueryString("UpID")!=2){Response.Write(al);} %> ">	Pager Number	""&&Request.QueryString("UpID")!=2){Response.Write(am);} %> ">
Email Name	""&&Request.QueryString("UpID")!=2){Response.Write(an);} %> ">			Birthdate	""&&Request.QueryString("UpID")!=2){Response.Write(ao);} %> ">
Notes	0&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs1("Notes")+"
Referred By	""&&Request.QueryString("UpID")!=2){Response.Write(ar);} %> ">	Marital Status	0&&Request.QueryString("UpID")!=2){Response.Write(oRs1("MaritalStatus"));} else if(at>""&&Request.QueryString("UpID")!=2){Response.Write(at);} %> ">	Spouse Name	""&&Request.QueryString("UpID")!=2){Response.Write(au);} %> ">
Spouses Interests	0&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs1("SpousesInterests")+"			Children Names	0){Response.Write(">"+oRs1("ChildrenNames")+"
Contacts Interests	0){Response.Write(">"+oRs1("ContactsInterests")+"			ADD!     DELETE!     UPDATE!     CLEAR/REFRESH!