CRM List <% Dim cnDB ' As ADODB.Connection CheckSecurity Set cnDB = OpenDB() '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Retrieve ' ' This routine lists all records of this data type. It ' also provides actions to create, retrieve, update, and ' delete records. ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim rsData ' As ADODB.Recordset Dim strSQL ' As String Dim strURL ' As String Dim strDateRange ' As String Dim intNewDateRange ' As integer Dim strRecords ' As String Dim intSortBy ' As Integer Dim strSortBy ' As String Dim i DIM lngAccountID lngAccountID = Request.Cookies("mynetwork")("AID") i = 0 If Request("dbtDateRange") = "" Then intNewDateRange = "1" Else intNewDateRange = Request("dbtDateRange") End If '''''''''''''''''''''''''''''''''' ' sort records by '''''''''''''''''''''''''''''''''' If Request("dbtSortBy") = "" Then intSortBy = 4 Else intSortBy = Request("dbtSortBy") End If Select Case intSortBy Case 4 strSortBy = " ORDER BY NextActionDate, LastName, Organization" Case 3 strSortBy = " ORDER BY NextAction, NextActionDate, LastName, Organization" Case 2 strSortBy = " ORDER BY LastName, NextActionDate, Organization" Case 1 strSortBy = " ORDER BY Organization, NextActionDate, LastName" Case Else strSortBy = " ORDER BY NextActionDate, LastName, Organization" End Select %>

value="1">Today and Before value="2">Tomorrow and Before value="3">Next Five Days value="4">All Records Sort by: value="4">Action Date value="3">Action Type value="2">Last Name value="1">Organization

<% Select Case intNewDateRange Case 1 strDateRange = "<=Date()" strRecords = "Not Like " & DQ & "Don" & SQ & "t Call Now" & DQ Case 2 strDateRange = "<=(Date()+1)" strRecords = "Not Like " & DQ & "Don" & SQ & "t Call Now" & DQ Case 3 strDateRange = "BETWEEN Date()+1 AND Date()+5" strRecords = "Not Like " & DQ & "Don" & SQ & "t Call Now" & DQ Case Else strDateRange = "<=(Date()+9999)" strRecords = "Like " & DQ & "%" & DQ End Select strSQL = "SELECT tblContacts.*, tblOrgs.* FROM (tblContacts INNER JOIN tblOrgs " _ & "ON tblContacts.pkOrgID = tblOrgs.pkOrgID) WHERE (((tblContacts.pkAccountID) like " _ & lngAccountID & ") AND ((tblContacts.NextActionDate)" & strDateRange & ")) " _ & "AND NextAction " & strRecords & strSortBy Set rsData = cnDB.Execute(strSQL) WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" Do Until rsData.EOF '''''''''''''''''''''''''''''''''''''''''''''' ' Alternates row colors. In the future use ' Mod 2 for this task. ' ''''''''''''''''''''''''''''''''''''''''''''''' i = i + 1 If Round((i / 2),0) = (i / 2) Then WL "" Else WL "" End If WL "" '''''''''''''''''''''''''''''''''''''''''''''''''' ' Display email icon if email field is populated. ' '''''''''''''''''''''''''''''''''''''''''''''''''' ' WL "" WL "" ''''''''''''''''''''''''''''''''''''''''''''''''''' ' Decide whether to display last name, first name ' or company name. ' ''''''''''''''''''''''''''''''''''''''''''''''''''' WL "" WL "" WL "" ElseIf rsData("CellPhone") <> "" then WL "C: " & rsData("CellPhone") & "" Else WL "H: " & rsData("HomePhone") & "" End If WL "" WL "" rsData.MoveNext Loop rsData.Close CloseDB cnDB ' close database connections PrintFooter %>

Next Action		Name	Business	Phone
" & rsData("NextAction") & "	" ' If rsData("Email") <> "" Then ' WL "" ' End If ' WL "		" If rsData("LastName") <> "" AND rsData("FirstName") <> "" Then WL "" _ & rsData("LastName") & ", " & rsData("FirstName") _ & "" ElseIf _ (rsData("LastName") = "" _ And rsData("FirstName") <> "") _ Or _ (rsData("LastName") <> "" _ And rsData("FirstName") = "") Then WL "" _ & rsData("LastName") & rsData("FirstName") _ & "" ElseIf rsData("Organization") <> "" Then WL "" _ & rsData("Organization") & "" End If WL "	" & rsData("Organization") & "	" If rsData("BizPhone") <> "" then WL "O: " & rsData("BizPhone") & "	" WL "" WL "