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

