Failing on the bold line below:
function chkDateDiff()
tmpCurrentDate = strForumDateAdjust
if strComp(Month("04/05/2002"),"5") = 0 then
strCurrentDate = Mid(tmpCurrentDate, 4,2) & "/" & Mid(tmpCurrentDate, 1,2) & "/" & Mid(tmpCurrentDate, 7,4)
else
strCurrentDate = tmpCurrentDate
end if
tmpNextMonthDate = AddOneMonth(dDate)
if strComp(Month("04/05/2002"),"5") = 0 then
strNextMonthDate = Mid(tmpNextMonthDate, 4,2) & "/" & Mid(tmpNextMonthDate, 1,2) & "/" & Mid(tmpNextMonthDate, 7,4)
else
strNextMonthDate = tmpNextMonthDate
end if
if datediff("m",strNextMonthDate,strCurrentDate) >= 0 then
chkDateDiff = 1
else
chkDateDiff = 0
end if
end function
Ok, so whats with the hardcoded dates?