Semplificare il codice

[SAMPEI.asp]

Salve ragazzi,
volevo un vostro suggerimento per semplificare un po questa porzione di codice

If rsUserAdmin("settore") = 1 then
Response.Write ("<td><center>A</center></td>")
End IF
If rsUserAdmin("settore") = 2 then
Response.Write ("<td><center>B</center></td>")
End IF
if rsUserAdmin("settore") = 3 then
Response.Write ("<td><center>C</center></td>")
End IF
if rsUserAdmin("settore") = 4 then
Response.Write ("<td><center>D</center></td>")
End IF

Grazie 1000

[wallrider]

arSettori=split("0,A,B,C,D",",")
response.write(arSettori(rsUserAdmin("settore")))

[SAMPEI.asp]

grazie sei stato veramente gentile un saluto a tutti

[optime]

Response.Write CHR(64+rsUserAdmin("settore"))