Utilizzo non valido di Null: 'replace'

[jjjjack]

Salve.
Potete spiegarmi perché così funziona

  
<%
function cambia(strRep)
cambia = replace(strRep, vbCrLf, "
")
end function
%>
<%=cambia(rs_calendario.Fields.Item("small").Value)%>

mentre se inserisco il comportamento Area ripetuta con DREAMWEAVER...

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_calendario_numRows = rs_calendario_numRows + Repeat1__numRows
%>
<%
function cambia(strRep)
cambia = replace(strRep, vbCrLf, "
")
end function
%>
<% 
While ((Repeat1__numRows <> 0) AND (NOT rs_calendario.EOF)) 
%>

<%=cambia(rs_calendario.Fields.Item("small").Value)%>


<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_calendario.MoveNext()
Wend
%>

... mi da questo errore ???????????

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A005E)
Utilizzo non valido di Null: 'replace'

Il campo non è vuoto.

grazie