fel månad

Varför felar funktionen på en månad?, skriver man dagens månad
(augusti) så printar den ut sista dagen i september fast den borde printa ut sista i oktober.

Private Function get_Lastmonthday(Current_date, Mathvalue)
Dim Current_day
    If Len(Current_date) = 0 Or Not isDate(Current_date) Then
    Current_date = Date()
    Else
    Current_date = CDate(Current_date)
    End If
    Current_day = Day(Dateserial(Year(Current_date), Month(Dateadd("M", Mathvalue, Current_date)), 1-1))
get_Lastmonthday = Current_day
End Function

response.Write get_Lastmonthday(Request.QueryString("Current_date"),+2)