if rs.bof or rs.eof then
   rs.close
   set rs = nothing
   Response.Write "    <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>There is no Member with that Member ID</font></p>" & vbNewLine
else
   strRName = ChkString(rs("M_NAME"),"display")
   strREmail = rs("M_EMAIL")
   strRReceiveEmail = rs("M_RECEIVE_EMAIL")

   rs.close
   set rs = nothing