sub CreateLoginUserFailedForm { my ($message) = @_; print "Content-type: text/html \n\n"; print qq| $htmlInvalidLoginheader $htmlheader2