problem med en replace br funktion

min sida med problemen:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%
    id =request.querystring("id")
    Set Connection = Server.CreateObject("ADODB.Connection")
    Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../db/mokdb.mdb")
    SQLstringK="Select * from innehallet where ID = " & id & ""
SET rs=Connection.Execute(SQLstringK)
   
function ReplaceBR(fString)
==> line 10 ==>  fString = Replace(fString, "<br>", CHR(13) & CHR(10))
ReplaceBR = fString
end function

%>

<html>
<head>
<title>Massage & Kroppsvård - Adminsida</title>
<link rel="stylesheet" href="../mok.css" type="text/css">
</head>
<body bgcolor="#ffffff">
<span class="header">Ändra innehåll...</span><br>
[<a href="default.asp" class="fo2">Adminsidan</a>]&nbsp;[<a href="innehall_view.asp" class="fo2">Rubriköversikten</a>]&nbsp;&nbsp;
<%if request.querystring("msg")="dbud" then%><span class="msg">Posten uppdaterad - Databasen uppdaterad</span><%end if%><br><br>
<form action="innehall_exe.asp?t=andra" method="post">
<input type="hidden" name="id" value="<%=rs("id")%>">
<span class="brodtextb">Vilket nummer</span><br>
<input type="text" name="nummer" size="5" class="input" value="<%=rs("nummer")%>">
<br><br>   
<span class="brodtextb">Rubrik</span><br>
<input type="text" name="rubrik" size="30" class="input" value="<%=rs("rubrik")%>">
<br><br>
<span class="brodtextb">Kort beskrivning</span><br>
<textarea cols="28" rows="5" name="text" class="input"><%=ReplaceBR(rs("text"))%></textarea>
<br><br>
<span class="brodtextb">Visas på första sidan</span>&nbsp;&nbsp;<input type="checkbox" name="forsta_sidan" value="yes" <% if rs("forsta_sidan")="Ja" then%>checked<% end if %>><span class="litetb">JA</span>
<br><br>
<table><tr><td>
<span class="brodtextb">Artikel</span><br>
<textarea cols="50" rows="20" name="artikel" class="input"><%=ReplaceBR(rs("artikel"))%></textarea>
</td>
<td>
<span class="brodtextb">Faktaruta</span><br>
<textarea cols="25" rows="20" name="faktaruta" class="input"><%=ReplaceBR(rs("faktaruta"))%></textarea>
</td>
</tr></table>
<br>
<span class="brodtextb">Ska artikeln läggas till i artikelarkivet?</span>&nbsp;&nbsp;<input type="checkbox" name="arkivera" value="yes"<% if rs("arkivera")="Ja" then%> checked<% end if %>><span class="litetb">JA</span>
<br><br>
<input type="submit" name="submit" value="Lägg till" class="input2">&nbsp;&nbsp;&nbsp;<input type="reset" name="Reset" value="Rensa formuläret" class="input2">
</form>
</body>
</html>

felmeddelandet:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A005E)
Ogiltig användning av Null: 'Replace'
/mok/admin/innehall_andra.asp, line 10

vad ska jag göra? det är inte alla poster som kommer att ha alla fält ifyllda och det ifyllda fältet kanske inte innehåller något <br>...