Function htmInput(itype, iname, ivalue, istyle)
If (VarTrimStr(itype) <> "") Then
htmInput = htmTag("input",_
htmAt("type", itype) &_
htmAt("name", iname) &_
htmAt("value", ivalue) &_
htmAt("style", istyle), "")
Else
htmInput = ""
End If
End Function