Samling af felter i database

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application( "DBPATH" )
sql = "SELECT * FROM [Medarbejder] WHERE MedarbejderNr = '" & Request.QueryString("MedarbejderNr") & "'"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 3,3

if rs.bof or rs.eof then
else
  AfdKode = rs.Fields("AfdKode")
if rs.Fields("Afdelingsleder") = "" then
  Afdelingsleder = "Ingen"
else
  Afdelingsleder = rs.Fields("Afdelingsleder")
end if
end if
   
rs.close
set rs = nothing

Selv om feltet Afdelingsleder i databasen er tomt opfater ovenstående det stadig som et felt med indhold, Afdelingsleder bliver altså ikke sat til "Ingen"