%@LANGUAGE="JAVASCRIPT"%> <% var EE_DeptCont = Server.CreateObject("ADODB.Recordset"); EE_DeptCont.ActiveConnection = "dsn=WebDatabase;"; EE_DeptCont.Source = "SELECT LastName, FirstName, Middle, ContactFor, Phone, email, ClientContact FROM T_EmployeeDirectory WHERE ClientContact='Y' AND ContactFor Like '%EE%' ORDER BY LastName, FirstName"; EE_DeptCont.CursorType = 0; EE_DeptCont.CursorLocation = 2; EE_DeptCont.LockType = 3; EE_DeptCont.Open(); var EE_DeptCont_numRows = 0; %><% var IE_DeptCont = Server.CreateObject("ADODB.Recordset"); IE_DeptCont.ActiveConnection = "dsn=WebDatabase;"; IE_DeptCont.Source = "SELECT LastName, FirstName, Middle, ContactFor, Phone, email, ClientContact FROM T_EmployeeDirectory WHERE ClientContact='Y' AND ContactFor Like '%IE%' ORDER BY LastName, FirstName"; IE_DeptCont.CursorType = 0; IE_DeptCont.CursorLocation = 2; IE_DeptCont.LockType = 3; IE_DeptCont.Open(); var IE_DeptCont_numRows = 0; %><% var TE_DeptCont = Server.CreateObject("ADODB.Recordset"); TE_DeptCont.ActiveConnection = "dsn=WebDatabase;"; TE_DeptCont.Source = "SELECT LastName, FirstName, Middle, ContactFor, Phone, email, ClientContact FROM T_EmployeeDirectory WHERE ClientContact='Y' AND ContactFor Like '%TE%' ORDER BY LastName, FirstName"; TE_DeptCont.CursorType = 0; TE_DeptCont.CursorLocation = 2; TE_DeptCont.LockType = 3; TE_DeptCont.Open(); var TE_DeptCont_numRows = 0; %><% var ME_DeptCont = Server.CreateObject("ADODB.Recordset"); ME_DeptCont.ActiveConnection = "dsn=WebDatabase;"; ME_DeptCont.Source = "SELECT LastName, FirstName, Middle, ContactFor, Phone, email, ClientContact FROM T_EmployeeDirectory WHERE ClientContact='Y' AND ContactFor Like '%ME%' ORDER BY LastName, FirstName"; ME_DeptCont.CursorType = 0; ME_DeptCont.CursorLocation = 2; ME_DeptCont.LockType = 3; ME_DeptCont.Open(); var ME_DeptCont_numRows = 0; %><% var Recordset3 = Server.CreateObject("ADODB.Recordset"); Recordset3.ActiveConnection = "dsn=WebDatabase;"; Recordset3.Source = "SELECT LastName, FirstName, Middle, ContactFor, Phone, email, ClientContact FROM T_EmployeeDirectory WHERE ClientContact='Y' AND ContactFor Like '%DD%' ORDER BY LastName, FirstName"; Recordset3.CursorType = 0; Recordset3.CursorLocation = 2; Recordset3.LockType = 3; Recordset3.Open(); var Recordset3_numRows = 0; %><% var MM_paramName = ""; %> <% // *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters // create the list of parameters which should not be maintained var MM_removeList = "&index="; if (MM_paramName != "") MM_removeList += "&" + MM_paramName.toLowerCase() + "="; var MM_keepURL="",MM_keepForm="",MM_keepBoth="",MM_keepNone=""; // add the URL parameters to the MM_keepURL string for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) { var nextItem = "&" + items.item().toLowerCase() + "="; if (MM_removeList.indexOf(nextItem) == -1) { MM_keepURL += "&" + items.item() + "=" + Server.URLencode(Request.QueryString(items.item())); } } // add the Form variables to the MM_keepForm string for (var items=new Enumerator(Request.Form); !items.atEnd(); items.moveNext()) { var nextItem = "&" + items.item().toLowerCase() + "="; if (MM_removeList.indexOf(nextItem) == -1) { MM_keepForm += "&" + items.item() + "=" + Server.URLencode(Request.Form(items.item())); } } // create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL + MM_keepForm; if (MM_keepBoth.length > 0) MM_keepBoth = MM_keepBoth.substring(1); if (MM_keepURL.length > 0) MM_keepURL = MM_keepURL.substring(1); if (MM_keepForm.length > 0) MM_keepForm = MM_keepForm.substring(1); %>
![]() |
|||||||||||||
|
|||||||||||||
|
|
|||||||||||||