<%@ LANGUAGE = JScript %>
<%  Response.Expires= -1 %>
<%
var Ccl,oConn,oRs,a,b="",c="",d="",e="",f,g,aa,ab,ac,ad,ae,af,ag,ah=0,ai,aj,ak,al,am,an,ao,ap,aq,ar,as;
if(Request.QueryString("LdFl")>""){ab=parseInt(Request.QueryString("LdFl"));}else{ab=1;}
ad=parseInt(Request.QueryString("PgNo"));ae=parseInt(Request.QueryString("PgSz"));
af=Request.QueryString("Pgs");ai=Request.QueryString("FNm");aj=Request.QueryString("FVl");
ak=Request.QueryString("FSt");al=Request.QueryString("FltTp");
if(Request.QueryString("FVl1")>""){am=Request.QueryString("FVl1");}else{am="";}
if(ao=Request.QueryString("FSt1")>""){ao=Request.QueryString("FSt1");}else{ao="";}
aq=Request.QueryString("FlF");ar=Request.QueryString("FlTo");as=Request.QueryString("Act");
oConn = Server.CreateObject("ADODB.Connection");
oConn.Open(as);
%>
<%
if(ab==1){a="Select CallID As [Call ID], iif(isnull(CallDate),'-',Format(CallDate,'dd/mm/yyyy')) As [Call Date], ";
a=a+"iif(isnull(CallTime),'-',Format(CallTime,'Short Time')) As [Call Time], Subject, Calls.Notes As Notes, ";
a=a+"FirstName&' '&LastName As [Contact Name], CompanyName As [Company Name], WorkPhone As [Work Phone], ";
a=a+"iif(isnull(WorkExtension) or WorkExtension='','-',WorkExtension) As [Work Extension], MobilePhone As [Mobile Phone]";
a=a+", iif(isnull(FaxNumber),'-',FaxNumber) As [Fax Number], EmailName As [Email Name] From Calls LEFT OUTER JOIN ";
a=a+"ContactList ON Calls.ContactID=ContactList.ContactID";
if(ai=="WorkExtension"||ai=="FaxNumber"){ai="iif(isnull("+ai+") or "+ai+"='','-',"+ai+")";}
if(ai=="Notes"){ai="Calls."+ai;}if(ai=="ContactName"){ai="FirstName&' '&LastName";}
if(ai=="CallDate"){ai="iif(isnull(CallDate),'-',Format(CallDate,'dd/mm/yyyy'))";}
if(ai=="CallTime"){ai="iif(isnull(CallTime),'-',Format(CallTime,'Short Time'))";}
if(ai=="CallID"||ai=="ContactID"&&ai>""&&al>""){ai="Calls."+ai;}
if(ai>""||al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak=="CallID"||ak=="ContactID"||ak=="Notes"){ak="Calls."+ak;}if(ak=="ContactName"){ak="FirstName&' '&LastName";}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="CallID;";}}
%>
<%
if(ab==2){a="Select CompanyID AS [Company ID], CompanyName As [Company Name], Address, City, iif(isnull(StateOrProvince)";
a=a+"or StateOrProvince='','-',StateOrProvince) As [State Or Province], PostalCode As [Postal Code], iif(isnull(Region) ";
a=a+"or Region='','-',Region) As Region, Country, iif(isnull(WebSite) or WebSite='','-',WebSite) As [Web Site] FROM Company";
if(ai=="Region"||ai=="WebSite"||ai=="StateOrProvince"){ai="iif(isnull("+ai+") or "+ai+"='','-',"+ai+")";}
if(ai>""||al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="CompanyID;";}}
%>
<%
if(ab==3){a="Select ContactID AS [Contact ID], FirstName&' '&LastName AS [Contact Name], iif(isnull(Title) or Title='',";
a=a+"'-',Title) As Title, CompanyName As [Company Name], Address, City, StateOrProvince As [State Or Province], ";
a=a+"PostalCode As [Postal Code], iif(isnull(Region) or Region='','-',Region) As Region, Country, WorkPhone As ";
a=a+"[Work Phone], iif(isnull(WorkExtension) or WorkExtension='','-',WorkExtension) As [Work Extension], ";
a=a+"iif(isnull(MobilePhone) or MobilePhone='','-',MobilePhone) As [Mobile Phone], iif(isnull(HomePhone) or HomePhone=''";
a=a+",'-',HomePhone) As [Home Phone], EmailName As [Email Name] FROM ContactList";
if(ai=="HomePhone"||ai=="Region"||ai=="MobilePhone"||ai=="Title"||ai=="WorkExtension")
{ai="iif(isnull("+ai+") or "+ai+"='','-',"+ai+")";}
if(ai=="ContactName"){ai="FirstName&' '&LastName";}
if(ai>""||al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="ContactID;";}}
%>
<%
if(ab==4){a="Select ContactTypeID AS [Contact Type ID], ContactType As [Contact Type] FROM ContactTypes";
if(ai>""||al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="ContactTypeID;";}}
%>
<%
if(ab==5){a="Select TicklerID As [Tickler ID], Format(TicklerDate,'dd/mm/yyyy') As [Tickler Date], TicklerText ";
a=a+"As [Tickler Text], Tickler.ContactID As [Contact ID], FirstName&' '&LastName AS [Contact Name], CompanyName As ";
a=a+"[Company Name], WorkPhone As [Work Phone], iif(isnull(WorkExtension) or WorkExtension='','-',WorkExtension) As ";
a=a+"[Work Extension], iif(isnull(MobilePhone) or MobilePhone='','-',MobilePhone) As [Mobile Phone], ";
a=a+"EmailName As [Email Name] FROM Tickler LEFT OUTER JOIN ContactList ON Tickler.ContactID=ContactList.ContactID";
if(ai=="MobilePhone"||ai=="WorkExtension"){ai="iif(isnull("+ai+") or "+ai+"='','-',"+ai+")";}
if(ai=="TicklerDate"){ai="Format("+ai+",'dd/mm/yyyy')";}if(ai=="ContactName"){ai="FirstName&' '&LastName";}
if(ai=="ContactID"||ai=="TicklerID"&&ai>""&&al>""){ai="Tickler."+ai;}
if(ai>""||al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak=="ContactID"){ak="Tickler."+ak;}if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="TicklerID;";}}
%>
<%
if(ab==6){a="Select ShipTo.CompanyID As [Company ID], ShipAttn As [Ship Attn], ShipAddress As [Ship Address], ShipCity As ";
a=a+"[Ship City], ShipStateOrProvince AS [Ship State Or Province], ShipPostalCode As [Ship Postal Code], ShipRegion As ";
a=a+"[Ship Region], CompanyName As [Company Name], ShipCountry As [Ship Country], ShipNotes As [Ship Notes] FROM ShipTo ";
a=a+"INNER JOIN Company ON ShipTo.CompanyID = Company.CompanyID";
if(ai=="CompanyID"&&ai>""&&al>""){ai="ShipTo."+ai;}
if(ai>""||al>""||aq>""||ar>""){if(am>""){b=" And "+ai;}else{b=" where "+ai;}if(al==1){b=b+" Like '"+aj+"' ";}
else if(al==2){b=b+" Not Like '"+aj+"' ";}else if(aq>""&&ar>""){b=b+" Between "+aq+" And "+ar;}
else if(aq>""){b=b+">="+aq;}else if(ar>""){b=b+"<="+ar;}}
if(ak=="CompanyID"){ak="ShipTo."+ak;}if(ak>""){if(ao>""){c=c+", "+ak;}else{c=c+ak;}}else{e="ShipTo.CompanyID;";}}
a=a+am+b;
d=a+" Order By ";
if(c>""){d=d+ao+c+";";}else if(ao>""){d=d+ao+";";}else{d=d+e;}
oRs=oConn.Execute(d);
am=am+b;ao=ao+c;aq="";ar="";
for(i=0;oRs.EOF!=1;i++){oRs.moveNext;}
%>
<HTML>
<HEAD>
<META content="IPI International,Microsoft,Access,Database,Contact,Paul I Ighofose,IPI,Ighofose,Paul Ighofose,accounts,software,web access,asp,asp database access" 
name=Keywords><!-- CREATION DATE: 23/01/2006 -->
<META content="IPI International Microsoft Access and ASP Document Trials.  Web Page Design by Paul I Ighofose.  Further Projects using Access and ASP with JScript Pages." 
name=Description>
<META content="Paul I Ighofose - IPI International" name=Author>
<META content=all name=Robots>
<META http-equiv=Refresh content=430;url=http://www.ighofose.net>
<META content=designs@ipi2internation.free-online.co.uk name=Email>
<META content=http://www.ipi2internation.free-online.co.uk name=Website>
<META content="IPI International" name=Copyright>
<META content=en name=Language>
<META content=General name=Rating>
<META content=Global name=Distribution>
<META name=VI60_defaultClientScript content=JScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Contact Database Lists</TITLE>
<LINK REL="STYLESHEET" HREF="./styles/screen.css" MEDIA="screen" TYPE="text/css">
<LINK REL="STYLESHEET" HREF="./styles/print.css" MEDIA="print" TYPE="text/css">
<SCRIPT LANGUAGE=JScript id=why>
<!--
var i=1,s,t,u,v,w;
function AdRcs(a,b){MnFrm.WNm.value=t;c=MnFrm.WNm.createTextRange();for(i=0;c.findText(" ")!=false; i++){c.text = "";}
	a=MnFrm.WNm.value;b=MnFrm.LdFl.value;
	if(parseInt(u)>0){a="&"+a+"="+parseInt(u);}else{a="";}
	if(b=="1"){window.open("./access/Contact - Calls.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=735,height=270,left=600");}
	if(b=="2"){window.open("./access/Contact - Company.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=780,height=250,left=510");}
	if(b=="3"){window.open("./access/Contact - Contacts.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=815,height=430,left=510");}
	if(b=="4"){window.open("./access/Contact - Contact Types.asp?Act="+MnFrm.Act.value+"&#"+u,"","toolbar=0,menubar=0,resizable=1,scrollbars=1,width=400,height=600,left=700");}
	if(b=="5"){window.open("./access/Contact - Reminders.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=730,height=230,left=510");}
	if(b=="6"){window.open("./access/Contact - Ship To.asp?Act="+MnFrm.Act.value+a,"","toolbar=0,menubar=0,resizable=1,width=765,height=300,left=510");}}
function ClRc(a){MnFrm.FNm.value="";MnFrm.FltTp.value="";MnFrm.FSt.value="";MnFrm.FVl.value="";if(a>"")
	{MnFrm.FSt1.value="";MnFrm.FVl1.value="";}FPg();}
function Fld(a,b,c,d){s=a;t=c;u=d;v=b;MnFrm.FNm.value=a;c=MnFrm.FNm.createTextRange();
	for(i=0;c.findText(" ")!=false; i++){c.text = "";}MnFrm.FVl.value=b;c=MnFrm.FVl.createTextRange();
	for (i=0;c.findText("'")!=false; i++){c.text = "''";}}
function FlFt(a,b){if(a==1){if(parseInt(b)!=b){if(b.substring(0,1)!="'"){MnFrm.FlF.value="'"+b+"'";}}}
	else{if(parseInt(b)!=b){if(b.substring(0,1)!="'"){MnFrm.FlTo.value="'"+b+"'";}}}MnFrm.FltTp.value="";MnFrm.FSt.value="";}
function Flt(a){if(a==1){MnFrm.FltTp.value=1;}
	else if(a==2){MnFrm.FltTp.value=2;}MnFrm.FSt.value="";FPg();}
function FPg(){MnFrm.PgNo.value=1;Upd();}
function LPg(){MnFrm.PgNo.value=MnFrm.Pgs.value;Upd();}
function Pg(a){if((parseInt(MnFrm.PgNo.value)+a)>0&&(parseInt(MnFrm.PgNo.value)+a)<=parseInt(MnFrm.Pgs.value)){
	MnFrm.PgNo.value=parseInt(MnFrm.PgNo.value)+a;MnFrm.FNm.value="";MnFrm.FSt.value="";MnFrm.FltTp.value="";Upd();}}
function Srt(){MnFrm.FSt.value=s;c=MnFrm.FSt.createTextRange();
	for(i=0;c.findText(" ")!=false; i++){c.text = "";}MnFrm.FNm.value="";MnFrm.FltTp.value="";Upd();Upd();}
function Upd(){MnFrm.submit();}
//-->
</SCRIPT>
</HEAD>
<%if(g>""||g>=-1){Response.Write("<B style='color:red;'>"+g+"</B>");}%>
<FORM method=get action="MS Access - Contact.asp" id=MnFrm>
<BODY>
<TABLE cols=2><TD align=right width=60%>
<SELECT id=LdFl name=LdFl onchange="ClRc(1);" title="Selecting Item from list will update Page!">
<OPTION value="1"<%if(ab==1){Response.Write(" selected");}else{Response.Write(" ");}%>>Call List</OPTION>
<OPTION value="2"<%if(ab==2){Response.Write(" selected");}else{Response.Write(" ");}%>>Company List</OPTION>
<OPTION value="3"<%if(ab==3){Response.Write(" selected");}else{Response.Write(" ");}%>>Contacts List</OPTION>
<OPTION value="4"<%if(ab==4){Response.Write(" selected");}else{Response.Write(" ");}%>>Contact Types</OPTION>
<OPTION value="5"<%if(ab==5){Response.Write(" selected");}else{Response.Write(" ");}%>>Reminders List</OPTION>
<OPTION value="6"<%if(ab==6){Response.Write(" selected");}else{Response.Write(" ");}%>>Ship To List</OPTION>
</SELECT></TD>
<TD align=right>
Page <INPUT ID=PgNo NAME=PgNo VALUE="<%if(ad>1){Response.Write(ad);}else{Response.Write(1);}%>" size=3></INPUT>
 &nbsp;of&nbsp; <INPUT ID=Pgs NAME=Pgs VALUE="<%if(i>0&&ae>0){Response.Write(parseInt((i/ae)+.99));}
else{Response.Write(1);}%>" size=3></INPUT></TD>
</TABLE>
<H5 class=EnG_Form align=center>
<SPAN ID=AdRc onclick="AdRcs();"><A class=EnG_Form>Edit Records</A></SPAN> &nbsp;&nbsp;
Records to show &nbsp;<INPUT class=EnG_Form type="text" id=PgSz name=PgSz VALUE="<%if(ae>=1){Response.Write(ae);}
else{Response.Write(25);}%>" onchange="ClRc();" ondblclick="ClRc();" size=4 
title="Double Click or leave field to action"></INPUT> &nbsp;&nbsp;
<SPAN ID=FulPg onclick="ClRc(1);">Show All Records</SPAN> &nbsp;&nbsp;
<SPAN ID=FlPb onclick="Flt(1)" title="Double Click Entry to Select for filtering, then click here!">Filter by</SPAN> &nbsp;&nbsp;
<SPAN ID=FlPe onclick="Flt(2)" title="Double Click Entry to Select for filtering, then click here!">Filter Excluding</SPAN> &nbsp;&nbsp;
Filter From &nbsp;<INPUT class=EnG_Form type="text" id=FlF name=FlF VALUE="<%if(aq>=""){Response.Write(aq);}%>" 
ondblclick="FlFt(1,value);Upd();" size=12 title="Surround Text in single Quots for Text Fields.&#13;Click Field to Filter first!
Double Click to action" onchange="FlFt(1,value);"></INPUT> &nbsp;&nbsp;
to &nbsp;<INPUT class=EnG_Form type="text" id=FlTo name=FlTo VALUE="<%if(ar>=""){Response.Write(ar);}%>" onchange="FlFt(2,value);Upd();" 
ondblclick="FlFt(2,value);Upd();" size=12 title="Surround Text in single Quots for Text Fields.&#13;Click Field to Filter first!
Double Click or leave field to action"></INPUT> &nbsp;&nbsp;
<SPAN ID=FltRm onclick="Srt();">Sort By</SPAN> &nbsp;&nbsp;
<SPAN ID=FstPg onclick="FPg();">First</SPAN> &nbsp;&nbsp;
<SPAN ID=NextPg onclick="Pg(1);" >Next</SPAN> &nbsp;&nbsp;
<SPAN ID=PrevPg onclick="Pg(-1);">Previous</SPAN> &nbsp;&nbsp;
<SPAN ID=LstPg onclick="LPg();">Last</SPAN> &nbsp;&nbsp;&nbsp;
</H5>
<TABLE datapagesize=100 id=List cellspacing=2.5>
<THEAD id=THd><TR><%for(ab=0;ab<oRs.Fields.Count;ab++){
Response.Write("<TH>"+oRs.Fields.Item(ab).Name+"&nbsp;<SPAN STYLE='color: white'>&nbsp;|&nbsp;&nbsp;</SPAN></TH>\n");}%>
</TR></THEAD>
<TBODY>
<%
if(i==null||i==""){Ccl=1;}
if(Ccl==1){Response.Write("<B style='color:red;'>No Records</B>");}
else{
if(ad!=ad&&ae!=ae){ac=i;}
else if((ad*ae)>i){ac=i;}
else{ac=ad*ae;}
if(ad>1&&ad==af){ag=((ad-1)*ae);}
else{ag=ac-ae;}
if(ag!=ag){ag=0;}
if(oRs.EOF==1){oRs.moveFirst();}
for(aa=0;aa<ac;aa++){
if(aa>=ag){
Response.Write("<TR>\n");
for(ab=0;ab<oRs.Fields.Count;ab++){
Response.Write("<TD><SPAN ID="+ab);
Response.Write(" TITLE='"+oRs.Fields.Item(ab).Name+"' DATASRC='"+oRs.Fields.Item(0).Name+"' DATAFLD='");
Response.Write(+oRs.Fields.Item(0).Value+"' onclick='Fld(title,innerText,dataSrc,dataFld);'>"+oRs.Fields.Item(ab).Value);
Response.Write("</SPAN>\n&nbsp;<SPAN CLASS='EnG_Form' STYLE='color: white'>&nbsp;|&nbsp;&nbsp;");
if(ab+1==oRs.Fields.Count){Response.Write("</SPAN>\n<SPAN CLASS='EnG_Form' STYLE='color: white'>ś</SPAN></TD>\n</TR>\n");}
else{Response.Write("</SPAN></TD>\n");}}}
oRs.moveNext();}}
%>
</TBODY>
</TABLE>
<INPUT ID=Act NAME=Act size=0 style="visibility:hidden;width:0;border:0;" value="<%Response.Write(as)%>"></INPUT>
<INPUT ID=WNm NAME=WNm size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE=""></INPUT>
<INPUT ID=FNm NAME=FNm size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(ai>""){Response.Write(ai);}
else{Response.Write("");}%>"></INPUT>
<INPUT ID=FVl NAME=FVl size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(aj>""){Response.Write(aj);}
else{Response.Write("");}%>"></INPUT>
<INPUT ID=FVl1 NAME=FVl1 size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(am>""){Response.Write(am);}
else{Response.Write("");}%>"></INPUT>
<INPUT ID=FltTp NAME=FltTp size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(al>0){Response.Write(al);}
else{Response.Write("");}%>"></INPUT>
<INPUT ID=FSt NAME=FSt size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(ak>""){Response.Write(ak);}
else{Response.Write("");}%>"></INPUT>
<INPUT ID=FSt1 NAME=FSt1 size=0 STYLE="visibility:hidden;width:0;border:0;" VALUE="<%if(ao>""){Response.Write(ao);}
else{Response.Write("");}%>"></INPUT>
</FORM>
</BODY>
</HTML>