Delete_Post Bug

After delete post the tblTopic.Last_Entry_Date==tblTopic.StartDate

Delete_post.asp  WWF 7.01
Line 236:

 'If there are threads left make sure the last topic date has the date of the last entry
 If NOT rsCommon.EOF Then
  
  'Place the date of the start date of the first message in the topic table
  rsTopicDelete("Start_date") = CDate(rsCommon("Message_date"))
  
  'Move to the last message in the topic to get the last message date
  rsTopicDelete.MoveLast
  
  'Place the date of the last post in the last enry date
  rsTopicDelete("Last_entry_date") = CDate(rsCommon("Message_date"))
  rsTopicDelete.Update

------------------------------------------------

I think  line 243 must be

   rsCommon.MoveLast