replace, scope-regler

Jeg får nedenstående fejl:
Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'replace'

Fejlen kommer ved følgende kode:
Function replaceCrLf(aValue)
DIM subValue
set subValue = aValue
if (subValue=Null) or (subValue="") then
  replaceCrLf = ""
else
  set subValue = replace (subValue, vbCrLf, "<br>")
  replaceCrLf = subValue
end if
End Function


Hvis jeg kalder funktionen med en værdi, der er NULL, burde den fanges af if-sætningen?!

Jeg har rodet med det længe og til sidst ville jeg bare have siden til at virke, så jeg fjernede kaldet til replace, men det bevirker at funktionen replaceCrLf ikke returnerer noget, og den burde jo bare returnere det, den fik med ind. Hvis jeg kalder med nedenstående kode returnerer funktionen ikke noget, men hvis jeg tilføjer "response.write(subValue)" i replaceCrLf udskrives en værdi, så variablen har en værdi - længere nede tildeler jeg funktionens returværdi til subValue, men der hvor funktionen kaldes returneres ingenting.

Funktionen ligger i en anden ASP blok end kaldet dertil - har ASP nogle forskruede scope-regler, man burde kende til?


<--- code snippet begin --->
Function replaceCrLf(aValue)
DIM subValue
set subValue = aValue
if (subValue=Null) or (subValue="") then
  replaceCrLf = ""
else
  set subValue = replace (subValue, vbCrLf, "<br>")
  replaceCrLf = subValue
end if
End Function
<--- code snippet end --->

<--- code snippet begin --->
<TD><%=dbRs(DB_FOEDSELSDATO)%></TD>
<TD><%=replaceCrLf(dbRs(DB_INTERNE_NOTER))%></TD>
<--- code snippet end --->