kode så den ikke fejler ved tom felt

hvad er det jeg lige skal have ind her så jeg ikke får fejl hvis der ikke er noget at læse ud =?

strSQL = "Select * From skema Where telefon = '" & Request.Querystring("id") & "'"
Set rs = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select * From skema Where fby='chef' and telefon = '" & Request.Querystring("id") & "'"
set rs2 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select * From skema Where fby='egen' and telefon = '" & Request.Querystring("id") & "'"
set rs3 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where fby='medarbejder' and telefon = '" & Request.Querystring("id") & "'"
set rs1 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where fby='Kollega' and telefon = '" & Request.Querystring("id") & "'"
set rs4 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit From skema Where fby='andre' and telefon = '" & Request.Querystring("id") & "'"
set rs5 = DataConn.Execute(strSQL)
%>
<%
strSQL = "Select AVG(a1_1) as gennemsnit , sum(a1_1)  as total From skema Where telefon = '" & Request.Querystring("id") & "'"
set rs6 = DataConn.Execute(strSQL)
%>
<BR>
Resultat side for <%=rs("telefon")%>

<%if rs1("gennemsnit") <= 2.49 then
    color = "#FF3333"
  elseif rs1("gennemsnit") <= 3.5 then
    color = "#FFFF33"
  else
    color = "#66CC33"
  end if
  %>
 


<TR>
    <TD>1</TD>
   
    <TD bgcolor="<%= bgcolor %>" align="right"><%= formatnumber(rs3("a1_1"),1)%></TD>
    <td bgcolor="<%= bgcolorr %>"  align="right"><%= formatnumber(rs2("a1_1"),1)%></TD>
  <td bgcolor="<%= color %>"  align="right"><%= formatnumber(rs1("gennemsnit"),1)%></TD>
    <td bgcolor="<%= bgcolorrr%>"  align="right"><%= formatnumber(rs4("gennemsnit"),1)%></TD>
    <td bgcolor="<%= bgcolorrrr %>"  align="right"><%= formatnumber(rs5("gennemsnit"),1)%></TD>
<td bgcolor="<%= bgcolorrrrr %>"  align="right"><%= formatnumber(rs6("gennemsnit"),1)%></TD>
    <TD></TD>