Timeout Problem when posting, please help

 '******************************************
 '*** Update Author Number of Posts ***
 '******************************************

 'Initalise the strSQL variable with an SQL statement to query the database to get the number of posts the user has made
 strSQL = "SELECT " & strDbTable & "Author.No_of_posts, " & strDbTable & "Group.Special_rank "
 strSQL = strSQL & "FROM " & strDbTable & "Author, " & strDbTable & "Group "
 strSQL = strSQL & "WHERE " & strDbTable & "Author.Group_ID = " & strDbTable & "Group.Group_ID AND " & strDbTable & "Author.Author_ID= " & lngLoggedInUserID & ";"

 'Query the database
 rsCommon.Open strSQL, adoCon

 'If there is a record returned by the database then read in the no of posts and increment it by 1
 If NOT rsCommon.EOF Then

  'Read in the no of posts the user has made and username
  lngNumOfPosts = CLng(rsCommon("No_of_posts"))

  'Inrement the number of posts by 1
  lngNumOfPosts = lngNumOfPosts + 1

  'Initalise the SQL string with an SQL update command to update the number of posts the user has made
  strSQL = "UPDATE " & strDbTable & "Author SET "
  strSQL = strSQL & "" & strDbTable & "Author.No_of_posts = " & lngNumOfPosts
  strSQL = strSQL & " WHERE " & strDbTable & "Author.Author_ID= " & lngLoggedInUserID & ";"

  'Write the updated number of posts to the database
  adoCon.Execute(strSQL)
 End If