"Ikke opgivet"

navn = request.form("Navn")

if navn = "" then
navn = "Ikke opgivet"
end if

sql = "UPDATE TblPerOpl SET Navn= '" & navn &"'"
sql = sql & "WHERE Id = " & request("ID")
Set ObjRS = ObjConn.Execute (sql)

Jeg vil gerne have den her lavet om, sådan at den melder fejl, hvis der ikke står noget i feltet "navn".

navn = Trim(Request.Form("navn"))       
navn = Left(navn,40)   
If navn = "" Then
navn = "" Then
navn = "Ikke opgivet"
End If

sql = "UPDATE TblPerOpl SET navn= '" & navn &"'"
sql = sql & "WHERE Id = " & request("ID")
Set ObjRS = ObjConn.Execute (sql)