>lcSQL1 = "select DO.iDocPK AS iDocPK, SUBSTRING(DO.mDocContent,1,120) AS Title, PE.iPsnPK AS iPsnPK, " + ; > "FL.tWFTimeStamp AS Stamp, PE.cPsnlName AS LName, PE.cPsnFName AS FName, " + ; > "PE.cPsnMName AS MName, RT.cRTypeDesc AS RTypeDesc, ISNULL(TL.cTitDetail, ' ') AS Titles, " + ; > "ISNULL(CO.cConDetail, ' ') AS EMail, ISNULL(COP.cConDetail, ' ') AS Phone, DO.tDocDateStamp AS tDocDateStamp " >lcSQL2 = "FROM WFlowLocs FL JOIN DocStru DS ON FL.iDocFK = DS.iDocFK JOIN Document DO ON FL.iDocFK = DO.iDocPK " + ; > "JOIN RoleType RT ON FL.iNextRTypeFK = RT.iRtypePK JOIN Role RO ON RO.iDocFK = DO.iDocPK " + ; > "JOIN Person PE ON RO.iParFK = PE.iPsnPK AND RO.cParType = 'PSN' " + ; > "JOIN RoleType RTP ON RO.iRTypeFK = RTP.iRTypePK LEFT OUTER JOIN TitLink TL ON PE.iPsnPK = TL.iPsnFK " >lcSQL3 = "LEFT OUTER JOIN TitleType TT ON TL.iTitTypeFK = TT.iTitTypePK " + ; > "LEFT OUTER JOIN ConLink CL ON CL.iOwnerFK = PE.iPsnPK " + ; > "LEFT OUTER JOIN Contacts CO ON CL.iConFK = CO.iConPk " + ; > "LEFT OUTER JOIN ContactType CT ON CO.iConTypeFK = CT.iConTypePK " >LCSQL4 = "LEFT OUTER JOIN ConLink CLP ON CLP.iOwnerFK = PE.iPsnPK " + ; > "LEFT OUTER JOIN Contacts COP ON CLP.iConFK = COP.iConPk " + ; > "LEFT OUTER JOIN ContactType CTP ON COP.iConTypeFK = CTP.iConTypePK " >lcSQL5 = "WHERE DS.cDocSectionID LIKE '" + m.pcDocID + "-%' " + ; > "AND RTP.cRTypeDesc = '" + m.lcRole + "' AND CT.cConType = 'E-Mail Address' " + ; > "AND CTP.cConType = 'Home Phone' " + ; > "UNION ALL " + ; > "select DO.iDocPK AS iDocPK, SUBSTRING(DO.mDocContent,1,120) AS Title, PE.iPsnPK AS iPsnPK, " >lcSQL6 = "NULL AS Stamp, PE.cPsnlName AS LName, PE.cPsnFName AS FName, PE.cPsnMName AS MName, " + ; > "RTP.cRTypeDesc AS RTypeDesc, ISNULL(TL.cTitDetail, ' ') AS Titles, ISNULL(CO.cConDetail, ' ') " + ; > "AS EMail, ISNULL(COP.cConDetail, ' ') AS Phone, DO.tDocDateStamp AS tDocDateStamp FROM DocStru DS " + ; > "JOIN Document DO ON DS.iDocFK = DO.iDocPK JOIN Role RO ON RO.iDocFK = DO.iDocPK " >lcSQL7 = "JOIN Person PE ON RO.iParFK = PE.iPsnPK AND RO.cParType = 'PSN' " + ; > "JOIN RoleType RTP ON RO.iRTypeFK = RTP.iRTypePK LEFT OUTER JOIN TitLink TL ON PE.iPsnPK = TL.iPsnFK " + ; > "LEFT OUTER JOIN TitleType TT ON TL.iTitTypeFK = TT.iTitTypePK " + ; > "LEFT OUTER JOIN ConLink CL ON CL.iOwnerFK = PE.iPsnPK " + ; > "LEFT OUTER JOIN Contacts CO ON CL.iConFK = CO.iConPk " + ; > "LEFT OUTER JOIN ContactType CT ON CO.iConTypeFK = CT.iConTypePK " >lcSQL8 = "LEFT OUTER JOIN ConLink CLP ON CLP.iOwnerFK = PE.iPsnPK " + ; > "LEFT OUTER JOIN Contacts COP ON CLP.iConFK = COP.iConPk " + ; > "LEFT OUTER JOIN ContactType CTP ON COP.iConTypeFK = CTP.iConTypePK " + ; > "WHERE DS.cDocSectionID LIKE '" + m.pcDocID + "-%' AND DO.iDocPK NOT IN (SELECT iDocFK FROM WFlowLocs) " >lcSQL9 = "AND RTP.cRTypeDesc = '" + m.lcRole + "' AND CT.cConType = 'E-Mail Address' AND CTP.cConType = 'Home Phone' " + ; > "ORDER BY 1, 4 DESC" > >llOk = SQLEXEC(lh, lcSQL1 + lcSQL2 + lcSQL3 + lcSQL4 + lcSQL5 + lcSQL6 + lcSQL7 + lcSQL8 + lcSQL9, "Results1") >