Dynamic Button Label

Hi, im trying to dynamically label a submit button, later on i will want to enable/disable the button depending on the value of hasVoted.. Im not a programmer (can you tell lol) and i know theres alwas a better way of doing things



<%
Dim hasVoted
Dim hasVotedButtonLabel, hasVotedButtonType
hasVoted = (memRS.Fields.Item("Voted").Value)

IF hasVoted=("Y") THEN
Response.Write("You Have Already Voted.")
hasVotedButtonLabel = "Disabled"
hasVotedButtonType = "Button"
ELSE
Response.Write("Please Vote.")
hasVotedButtonLabel = "Submit"
hasVotedButtonType = "Submit"
END IF
%>

.
.
.
.
.
.
<INPUT TYPE="<% Response.Write(hasVotedButtonType) %>" NAME="Submit" VALUE="<% Response.Write(hasVotedButtonLabel) %>">