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"