hjælp til citatscript

Jeg har brug for at få hjælp til det her. Mine medlemmer har ikke alle udfyldt muligheden for at skrive deres citat så jeg får denne fejl eller et tomt felt:
Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'replace'

/dev/citater/citat.asp, line 24

Her er koden:
<%
'*****************************************
'Der skal ikke lavet noget om i denne fil med mindre du
'ønsker at laver om på database navnet eller stien.
'*****************************************
function citat()
Set Connect = Server.CreateObject("ADODB.Connection")
DBSti = "DBQ= C:\inetpub\counselor\data\users.mdb"
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti

set rs=connect.execute("select citat from users;")
if rs.eof then
  response.write("databasen er tom")
  connect.close
  set rs=nothing
else
  myarray=rs.getrows()
  connect.close 
  set rs=nothing
end if

Randomize
nummer = Int(Rnd*(ubound(myarray,2)+1))
<-24->response.write replace(myarray(0,nummer),vbcrlf,"<brend function
%>