<%@ LANGUAGE = JScript %> <% Response.Expires= -1 %> <% var oConn, oRs, oRs1, a, b="", aa, ab, ac, ad, ae, af, ag, ah=0,as; aa=parseInt(Request.QueryString("CallID"));ab=parseInt(Request.QueryString("CallsID")); ac=parseInt(Request.QueryString("ContactID"));ad=Request.QueryString("CallDate"); ae=Request.QueryString("CallTime");af=Request.QueryString("Subject");ag=Request.QueryString("Notes"); as=Request.QueryString("Act"); oConn = Server.CreateObject("ADODB.Connection"); oConn.Open(as); if(Request.QueryString("UpID")==1){ a=" Select Sum(IIf(ContactID="+ac+" And CallDate=format(format('"+ad+"','dd/mm/yyyy'),'mm/dd/yyyy') "; a=a+"And Format(CallTime,'Short Time')='"+ae+"' And Subject='"+af+"' And Notes='"+ag+"',1,0)) FROM Calls;"; oRs = oConn.Execute(a); if(oRs.Fields.Item(0).Value>=1){ah=1;} else{a="insert into Calls (ContactID, CallDate, CallTime, Subject, Notes) values ("; a=a+ac+",format(format('"+ad+"','dd/mm/yyyy'),'mm/dd/yyyy'),'"+ae+"','"+af+"','"+ag+"');"; oConn.Execute (a);}} if(Request.QueryString("UpID")==2){oConn.Execute("Delete CallID from Calls where CallID="+ab+";");} if(Request.QueryString("UpID")==3){a=" update Calls SET ContactID="+ac+","; if(ad!=null&&ad>""){a=a+"CallDate=format(format('"+ad+"','dd/mm/yyyy'),'mm/dd/yyyy')";}else{a=a+"CallDate=null";} if(ae!=null&&ae>""){a=a+",CallTime='"+ae+"'";}else{a=a+",CallTime=null";} a=a+",Subject='"+af+"',Notes='"+ag+"' where CallID="+ab+";"; oConn.Execute(a);} %>

Call ID

<% if(Request.QueryString("UpID")!=2&&aa>0){Response.Write("SELECT FROM LIST\n");} else{Response.Write("SELECT FROM LIST\n");} a=" Select CallID, Format(CallDate,'dd/mm/yyyy') As CallDate, Format(CallTime,'Short Time') As CallTime,"; a=a+" Subject, Calls.ContactID As ContactID, FirstName, LastName from Calls INNER JOIN Contacts ON Contacts.ContactID="; a=a+"Calls.ContactID Order By CallDate, CallTime, Subject, FirstName, LastName;"; oRs = oConn.Execute(a); while(oRs("ContactID")!=null&&oRs.EOF!=1){ b=b+"0&&aa==oRs("CallID")){b=b+" selected";} b=b+">"+oRs("CallDate")+" - "+oRs("CallTime")+" - "+oRs("Subject")+" - "+oRs("FirstName")+" "+oRs("LastName")+""; 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!")}%>

---

Call ID	0&&Request.QueryString("UpID")!=2){Response.Write(ab);} else if(Request.QueryString("UpID")==1){ a="Select * FROM Calls Where ContactID="+ac+" And CallDate=format(format('"+ad+"','dd/mm/yyyy'),'mm/dd/yyyy') And "; a=a+"Format(CallTime,'Short Time')='"+ae+"' And Subject='"+af+"' And Notes='"+ag+"';"; oRs = oConn.Execute (a); Response.Write(oRs("CallID"));} %> " size=7>	Contact 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 Contacts ORDER BY FirstName, LastName;"); while(oRs("ContactID")!=null&&oRs.EOF!=1){ b=b+"0){a="Select ContactID, Format(CallDate,'dd/mm/yyyy') As CallDate, "; a=a+"Format(CallTime,'Short Time') As CallTime, Subject, Notes from Calls where CallID="+aa+";"; oRs1 = oConn.Execute(a); if(parseInt(oRs1("ContactID"))==oRs("ContactID")){b=b+" SELECTED ";}} else if(Request.QueryString("UpID")!=2&&ac!=null&&ac>0){if(ac==oRs("ContactID")){b=b+" SELECTED ";}} b=b+"VALUE="+oRs("ContactID")+">"+oRs("FirstName")+" "+oRs("LastName")+""; oRs.moveNext();b=b+"\n";} Response.Write(b); %>	Call Date	""&&Request.QueryString("UpID")!=2){Response.Write(ad);} %> " size=10>	Call Time	""&&Request.QueryString("UpID")!=2){Response.Write(ae);} %> " TITLE="When adding New Records - Only enter Hours and minutes in 24Hr format... (e.g 09:30 or 22:03)" size=5>
Subject	0&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs1("Subject")+"");} else if(af>""&&Request.QueryString("UpID")!=2){Response.Write(">"+af+"");} else {Response.Write(">");} %>
Notes	0&&Request.QueryString("UpID")!=2){Response.Write(">"+oRs1("Notes")+"");} else if(ag>""&&Request.QueryString("UpID")!=2){Response.Write(">"+ag+"");} else {Response.Write(">");} %>
ADD!     DELETE!     UPDATE!     CLEAR/REFRESH!