rs.moveFirst
Do While Not rs.eof
If left(rs("DESCRIPTION"

,3) <> "ALL" then
origCode = left(rs("DESCRIPTION"

,1)
If origCode = "A" then
codeDesc = "Account Type"
ElseIf origCode = "E" then
codeDesc = "EEE"
ElseIf origCode = "C" then
codeDesc = "SSS"
ElseIf origCode = "K" then
codeDesc = "CCC"
ElseIf origCode = "I" then
codeDesc = "CCC"
ElseIf origCode = "S" then
codeDesc = "AAA"
End If
'*************************************************************************************
If origCode <> lastCode then
response.write" <tr>"
response.write" <td WIDTH=""65%"" HEIGHT=""10"" bgcolor=""#EFEFEF"">"
response.write" <p ALIGN=""LEFT""><b><font face=""Arial"" size=""1"">"
response.write"TOTAL"
response.write"</font></b></td>"
response.write" <td WIDTH=""20%"" HEIGHT=""10"" bgcolor=""#EFEFEF"" align=""center""><font FACE=""Arial"" SIZE=""1"">"
response.write" <p ALIGN=""RIGHT"">"
response.write formatNumber(totRec,0)
response.write" </font></td>"
response.write" </tr>"
response.write" <tr>"
response.write" <td WIDTH=""65%"" HEIGHT=""10"" bgcolor=""#FFFFFF"">"
response.write" <p ALIGN=""CENTER""><b><font face=""Arial"" size=""1"">"
response.write ucase(codeDesc)
response.write"</font></b></td>"
response.write" <td WIDTH=""20%"" HEIGHT=""10"" align=""center""><font FACE=""Arial"" SIZE=""1"">"
response.write" <p ALIGN=""RIGHT"">"
response.write" </font></td>"
response.write" </tr>"
totRec = 0
End If
lastCode = origCode
'*************************************************************************************
If origCode <> "" then
response.write" <tr>"
response.write" <td WIDTH=""65%"" HEIGHT=""10"" bgcolor=""#F1FFF0"">"
response.write" <p ALIGN=""LEFT""><b><font face=""Arial"" size=""1"">"
response.write rs("DESCRIPTION"

response.write"</font></b></td>"
response.write" <td WIDTH=""20%"" HEIGHT=""10"" bgcolor=""#EFEFEF"" align=""center""><font FACE=""Arial"" SIZE=""1"">"
response.write" <p ALIGN=""RIGHT"">"
response.write formatNumber(rs("MONTH"

,0)
response.write" </font></td>"
'response.write" </tr>"
End If
'*************************************************************************************
lastTotRec = totRec
End If
v = rs("MONTH"

totRec = totRec + v
rs.MoveNext
cnt = cnt + 1
Loop
'*************************************************************************************
If origCode <> "" then
response.write" <tr>"
response.write" <td WIDTH=""65%"" HEIGHT=""10"" bgcolor=""#EFEFEF"">"
response.write" <p ALIGN=""LEFT""><b><font face=""Arial"" size=""1"">"
response.write"TOTAL - EOF"
response.write"</font></b></td>"
response.write" <td WIDTH=""20%"" HEIGHT=""10"" bgcolor=""#EFEFEF"" align=""center""><font FACE=""Arial"" SIZE=""1"">"
response.write" <p ALIGN=""RIGHT"">"
response.write formatNumber(totRec,0)
response.write" </font></td>"
response.write" </tr>"
End If
'*************************************************************************************
RS.Close
Conn.Close
Set RS=Nothing
Set Conn=Nothing
%> Thanks,
Ricky Ombina
ombina@yahoo.com