I am trying to debug a if else statement by using the following lines of code

If RSreccountCurrentExpense("reccount") < 1 Then
Response.Write "Good"
Response.End


For a particular record,I can see that the if staement condition is satisfed
and hence the if statement should be executed.

However, if I comment out Response.End statment to let the whole code
execute I am getting
the error message as shown below. The error message shows that the else
statment is
getting executed and not the if. Once the if statement condition is
satisfied, only the
if statement should be executed and not the else. Cannot figure out why this
is happening.
Any insight to the problem is highly appreciated. Thanks in advance. Regards


ERROR MESSAGE:
Either BOF or EOF is True, or the current record has been deleted. Requested
operation requires a current record.
/gwisbrandnewready6/mainreportagain1.asp, line 745

CODE:


RSreccountCurrentExpense.Open "select COUNT(*) AS reccount from
tblGMISExpenditures_Quarter where SubgrantIntID = " & GrantID & ";"
If RSreccountCurrentExpense("reccount") < 1 Then
' Response.Write "Good"
' Response.End
    l_cu_CurrentOutlay = 0

    l_cu_LocalShareOfOutlay = 0

    l_cu_UnpaidObligations = 0

    l_cu_LocalShareUnpaidObligations = 0

    l_cu_OtherProjectIncomeReceived = 0

    l_cu_ForfeitureIncomeReceived = 0

    l_cu_OtherProjectIncomeExpenditures = 0

    l_cu_ForfeitureIncomeExpenditures = 0

    l_cu_InterestIncomeReceivedOnMBCCFunds = 0

    l_Remarks = ""

    l_Name = ""

    l_PersonsTitle = ""

    l_PhoneAreaCode = ""

    l_Phone1 = ""

    l_Phone2 = ""

    l_Date = formatdatetime(date,2)

    l_IsChecked = "off"

    'Note here we need to handle the local variable 
Session("l_cu_c_MBCCShareOfOutlays")
    'which gets saved in the database on a save command issue.
    Session("l_cu_c_MBCCShareOfOutlays") = 0




Else

    l_cu_CurrentOutlay = RSCurrentExpense.Fields("CurrentOutlay")





    l_c_TotalNetOutlaysToDate = (l_p_TotalOutlay + l_cu_CurrentOutlay)



     l_cu_LocalShareOfOutlay = RSCurrentExpense.Fields("LocalShare")



    l_cu_c_MBCCShareOfOutlays = (l_cu_CurrentOutlay    - l_cu_LocalShareOfOutlay)

    'We declare a session variable in order to use this variabel in the
insertorupdatecurrentexpense.asp
    Session("l_cu_c_MBCCShareOfOutlays")  = l_cu_c_MBCCShareOfOutlays


    l_cu_UnpaidObligations = RSCurrentExpense.Fields("UnpaidOblig")


    l_cu_LocalShareUnpaidObligations =
RSCurrentExpense.Fields("LocalShareUnpaidOblig")


    l_cu_MBCCShareUnpaidObligations  = (l_cu_UnpaidObligations -
l_cu_LocalShareUnpaidObligations)



    l_cu_c_UnobligatedBalanceMBCCFunds = (l_TotalMBCCFundsAuth -
l_p_c_MBCCShareOutlays - l_cu_c_MBCCShareOfOutlays -
l_cu_MBCCShareUnpaidObligations)

    'Note: The following field has already been defined earlier and has been
    ' assigned a value. Hence, we do not change anything with this field
    'except for plugging the value in the right place
    'l_TotalLocalMatchAuth '-------------------------------------------------------------------------------------------------------

    l_cu_c_UnobligatedBalanceLocalMatch = (l_TotalLocalMatchAuth -
l_p_LocalShareOfOutlays - l_cu_LocalShareOfOutlay -
l_cu_LocalShareUnpaidObligations)
'------------------------------------------------------------------------------------------------------
'Note: The following field has already been defined earlier and has been
'assigned a value. Hence, we do not change anything with this field
'except for plugging the value in the right place
'l_p_TotalCashDispursed '-------------------------------------------------------------------------------------------------------

     l_cu_c_MBCCCashOnHand = (l_p_TotalCashDispursed -
l_p_c_MBCCShareOutlays - l_cu_c_MBCCShareOfOutlays)


    l_cu_OtherProjectIncomeReceived = RSCurrentExpense.Fields("ProjectIncome")



    l_cu_ForfeitureIncomeReceived =
RSCurrentExpense.Fields("ForfeitureIncome")



     l_cu_OtherProjectIncomeExpenditures =
RSCurrentExpense.Fields("OtherExpense")



     l_cu_ForfeitureIncomeExpenditures = 
RSCurrentExpense.Fields("ForfeitureExpense")




     l_cu_InterestIncomeReceivedOnMBCCFunds = 
RSCurrentExpense.Fields("InterestReceived")



    If l_cu_c_InterestIncomeRefunded >    250 then
        l_cu_c_InterestIncomeRefunded = (l_cu_c_InterestIncomeRefunded - 250)
    Else
           l_cu_c_InterestIncomeRefunded = 0    
    End    If


'---------------------------------------------------------------------------------------------

    'Now the contact details are handled

    l_Remarks = RSCurrentExpense.Fields("Remarks")



    l_Name = RSCurrentExpense.Fields("Name")



    l_PersonsTitle = RSCurrentExpense.Fields("Title")



    l_PhoneAreaCode = RSCurrentExpense.Fields("AreaCode")



    l_Phone1 = RSCurrentExpense.Fields("Phone1")


    l_Phone2 = RSCurrentExpense.Fields("Phone2")



    'l_Date = RSCurrentExpense.Fields("Date")
    if isnull(RSCurrentExpense.Fields("Date")) = true then
       l_Date = formatdatetime(date, 2)
    else
       l_Date = RSCurrentExpense.Fields("Date")
    end if

    End If

    l_IsChecked = RSCurrentExpense.Fields("IsChecked") 'This code is added
to handle the check button

%>

dictionary within dictionary
Avoidinig globals
xml, character encoding, asp question
IE DOES NOT SUPPORT COOKIE on WIN2K and XP
Server.execute problem