El campo que estas tratando de imprimir tiene un valor nulo y no puedes hacer un replace sobre un valor nulo, tienes que agregar una condicion:
Código ASP:
Ver originalif rs1("art_descripcion") <> null then
Response.Write(Replace(rs1("art_descripcion"), vbCrLf, "<br />"))
end if
Un truco que podría funcionar:
Código ASP:
Ver original<%=Replace((rs1("art_descripcion")&""), vbCrLf, "<br />")%>
Saludos