udtræks problem

har denne kode, som laver et udtræk fra en db, nogle af  felterne bliver der ikke skrevet i, hvordan undgår man fejl som denne

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'replace'

/adpd/dpinfo.asp, line 30

hvis der er nogle felter i min db som ikke bliver udfyldt.


<br>
<center>
<table border="1" cellpadding="0" cellspacing="0" width="70%" >
  <tr>
    <td width="70%" class="topbar" align="center"><b>Dagplejere Info</b></td>
  </tr>
  <tr>
    <td width="70%" class="kant">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<% id=request.querystring("id")
Set Query = Conn.Execute("SELECT * From tblBrugerInfo Where id = " & id & " ")
%>

      <tr>
<td width="70%"  ><b>Navn:</b><br><%=Query("navn")%></td>
</tr>
<tr>
<td width="70%"  ><b>Sted:</b><br><%=Query("sted")%></td>
</tr>
<tr>
<td width="70%"  ><b>Adresse:</b><br><%=Query("adresse")%><br><%=Query("postnr")%>&nbsp;<%=Query("city")%><br>Tlf:&nbsp;<%=Query("tlf")%><br>Mobil:&nbsp;<%=Query("mobil")%><br>Email:&nbsp;<a href="mailto:<%=Query("email")%>" title="send en mail"><%=Query("email")%></a><br>Web:&nbsp;<a href="http://<%=Query("web")%> target="_blank""><%=Query("web")%></a> </td>
</tr>
<tr>
<td width="70%"  ><b>Ledige pladser:</b><br><%=Query("lp")%></td>
</tr>
<tr>
<td width="70%"  ><b>Nystartet dato:</b><br><%=Query("nyd")%></td>
</tr>
<tr>
<td width="70%"  ><b>Tekst:</b><br><% =Replace(Query("tekst"),vbcrlf,"<br>" & " ")%></td>
</tr>
<tr>
<td width="70%" align="center" ><img src="dppic/<%=Query("pic1")%>">&nbsp;<img src="dppic/<%=Query("pic2")%>">&nbsp;<img src="dppic/<%=Query("pic3")%>"></td>
</tr>

    </table>
    </td>
  </tr>
</table>
</center>