Fejl ved indtastning

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)