Selectfunktion?

Denna funktion känns lite "stabbig". Finns det något smidigare sätt för samma sak?

function selectmaker(byval strvad, byval strtyp)

    Response.write"<select name="""& strvad &""">"
        Response.write"<option class=""selectnone"" value=""None"" "
	if strtyp="None" then Response.write"selected"
	Response.write">Ingen</option>"
    Response.write"<option class=""selectread"" value=""Read"" "
	if strtyp="Read" then Response.write"selected"
        Response.write">Läs</option>"
    Response.write"<option class=""selectwrite"" value=""Write"" "
	if strtyp="Write" then response.write"selected"
    Response.write">Läs/skriv</option></select>"

end function

Det går säkert att göra lite smidigare, men framför allt hade jag använt en sub istället för funktion, eftersom du inte returnerar någonting.

Sedan hade jag också slängt in ett mellanslag efter Response.Write på alla ställen, but that's just me. ;)

sub selectmaker(byval strvad, byval strtyp)

    Response.write "<select name="""& strvad &""">" & _
    "<option class=""selectnone"" value=""None"" "
       if strtyp="None" then Response.write "selected"
    Response.write ">Ingen</option>" & _
    "<option class=""selectread"" value=""Read"" "
       if strtyp="Read" then Response.write "selected"
    Response.write ">Läs</option>" & _
    "<option class=""selectwrite"" value=""Write"" "
       if strtyp="Write" then response.write "selected"
    Response.write ">Läs/skriv</option></select>"

end sub

Tack kompis.