Condizione restituisce errore

[[trodat]]

Ciao.

Il seguente codice restituisce errore, quando ricade nella condizione segnata in rosso, perchè?:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente

function excess(argValue)
	if not (int(argValue) = argValue) then argValue = int(argValue)+1		
	excess = argValue
end function

strRecs = request.querystring("recs")

SELECT COUNT(*) AS CNT from tbl where id_utente = 6

set rs = cn.execute(sql)

recordCount = rs("CNT")

if strRecs <> "" then
  pageSize = strRecs
elseif strFilter = "Show" then 
  pageSize = recordCount
else
  pageSize = 5
end if

pageCount = excess(clng(recordCount) / pageSize)  <<<<<< riga errore