")
strColor1 = "#FFFFFF"
strColor2 = "#CCFFFF"
nCount = 0
do while not rsMessages.EOF
if nCount = 0 then
strColor = strColor1
nCount = 1
else
strColor = strColor2
nCount = 0
end if
strArchList = strArchList & ShowThisMessage(strType, strColor) & ","
rsMessages.MoveNext
loop
response.write("")
end sub
function ShowThisMessage(strType, strColor)
strMsg = "
"
strMsg = strMsg & "
" & rsMessages("RequestSubject") & "
"
if strType <> "from" then
if ltrim(rtrim(rsMessages("RequestFrom"))) = "<>" or ltrim(rtrim(len(rsMessages("RequestFrom")))) = 0 then
strMsg = strMsg & "
"
if strType = "to" then
lcArchName = "arch" & left(strType, 2) & rsMessages("DistributionID")
else
lcArchName = "arch" & left(strType, 2) & rsMessages("CommunicationID")
end if
strMsg = strMsg & "
"
if rsMessages("Archived") = "Yes" then
strMsg = strMsg & ""
else
strMsg = strMsg & ""
end if
strMsg = strMsg & "
"
response.Write(strMsg & "
")
ShowThisMessage = lcArchName
end function
function getImage(strCol, strSort)
if strCol = left(strSort, 1) then
if mid(strSort, 2, 1) = "1" then
strRetVal = ""
else
strRetVal = ""
end if
else
strRetVal = ""
end if
getImage = strRetVal
end function
function getSortString(strCol, strSort)
if left(strSort, 1) = strCol then
if right(strSort, 1) = "1" then
strRetVal = strCol & "2"
else
strRetVal = strCol & "1"
end if
else
strRetVal = strCol & "1"
end if
getSortString = strRetVal
end function
function iUnTag(strString)
lcRetVal = ltrim(rtrim(strString))
if left(lcRetVal, 1) = "<" then lcRetVal = "<" & mid(lcRetVal, 2)
if right(lcRetVal, 1) = ">" then lcRetVal = left(lcRetVal, len(lcRetVal) - 1) & ">"
iUnTag = lcRetVal
end function
function GetStats()
strSQL = ""
if session("dMailMode") = "to" then
strSQL = strSQL & "select (select count(*) from tdmDistribution where personid = 11 and Archived = 'Yes') as nArchived, "
strSQL = strSQL & "(select count(*) from tdmDistribution where personid = " & Session("PersonID") & " and Archived <> 'Yes') as nNotArchived, "
strSQL = strSQL & "(select count(*) from tdmDistribution where personid = " & Session("PersonID") & ") as nTotal"
else
strSQL = strSQL & "select (select count(*) from tdmCommunication where RequestFromPersonGroupID in (select PersonGroupID from tPersonGroup where PersonID = " & Session("PersonID") & " and Archived = 'Yes')) as nArchived, "
strSQL = strSQL & "(select count(*) from tdmCommunication where RequestFromPersonGroupID in (select PersonGroupID from tPersonGroup where PersonID = " & Session("PersonID") & " and Archived <> 'Yes')) as nNotArchived, "
strSQL = strSQL & "(select count(*) from tdmCommunication where RequestFromPersonGroupID in (select PersonGroupID from tPersonGroup where PersonID = " & Session("PersonID") & ")) as nTotal"
end if
set GetStats = Conn.Execute(strSQL)
end function
%>
"
else
strRetVal = "
"
end if
else
strRetVal = ""
end if
getImage = strRetVal
end function
function getSortString(strCol, strSort)
if left(strSort, 1) = strCol then
if right(strSort, 1) = "1" then
strRetVal = strCol & "2"
else
strRetVal = strCol & "1"
end if
else
strRetVal = strCol & "1"
end if
getSortString = strRetVal
end function
function iUnTag(strString)
lcRetVal = ltrim(rtrim(strString))
if left(lcRetVal, 1) = "<" then lcRetVal = "<" & mid(lcRetVal, 2)
if right(lcRetVal, 1) = ">" then lcRetVal = left(lcRetVal, len(lcRetVal) - 1) & ">"
iUnTag = lcRetVal
end function
function GetStats()
strSQL = ""
if session("dMailMode") = "to" then
strSQL = strSQL & "select (select count(*) from tdmDistribution where personid = 11 and Archived = 'Yes') as nArchived, "
strSQL = strSQL & "(select count(*) from tdmDistribution where personid = " & Session("PersonID") & " and Archived <> 'Yes') as nNotArchived, "
strSQL = strSQL & "(select count(*) from tdmDistribution where personid = " & Session("PersonID") & ") as nTotal"
else
strSQL = strSQL & "select (select count(*) from tdmCommunication where RequestFromPersonGroupID in (select PersonGroupID from tPersonGroup where PersonID = " & Session("PersonID") & " and Archived = 'Yes')) as nArchived, "
strSQL = strSQL & "(select count(*) from tdmCommunication where RequestFromPersonGroupID in (select PersonGroupID from tPersonGroup where PersonID = " & Session("PersonID") & " and Archived <> 'Yes')) as nNotArchived, "
strSQL = strSQL & "(select count(*) from tdmCommunication where RequestFromPersonGroupID in (select PersonGroupID from tPersonGroup where PersonID = " & Session("PersonID") & ")) as nTotal"
end if
set GetStats = Conn.Execute(strSQL)
end function
%>