Hi everyone!

I hope everyone enjoyed their weekend. I have a sub that, once called should produce a string to be added to a response.write. Here's the sub:
Code:
Sub OptionSelect()
   Select case left(rs2.Fields("TaskPriority").value,1)
   Case 1
      strPullDown="<option selected value='1-Top Priority'>1</option><option value='2-High Priority'>2</option><option value='3-Priority'>3</option><option value='4-Low Priority'>4</option><option value='5-Lowest Priority'>5</option>"
   Case 2
      strPullDown="<option value='1-Top Priority'>1</option><option selected value='2-High Priority'>2</option><option value='3-Priority'>3</option><option value='4-Low Priority'>4</option><option value='5-Lowest Priority'>5</option>"
   Case 3
      strPullDown="<option value='1-Top Priority'>1</option><option value='2-High Priority'>2</option><option selected value='3-Priority'>3</option><option value='4-Low Priority'>4</option><option value='5-Lowest Priority'>5</option>"
   Case 4
      strPullDown="<option value='1-Top Priority'>1</option><option value='2-High Priority'>2</option><option value='3-Priority'>3</option><option selected value='4-Low Priority'>4</option><option value='5-Lowest Priority'>5</option>"
   Case 5
      strPullDown="<option value='1-Top Priority'>1</option><option value='2-High Priority'>2</option><option value='3-Priority'>3</option><option value='4-Low Priority'>4</option><option selected value='5-Lowest Priority'>5</option>"
   End Select
End Sub
I need to know how to call this sub on this command line:
Code:
Response.Write("<td width='14%' height='23'><!--mstheme--><font face='Arial, Arial, Helvetica'><p align='center'><select size='1' name='TPriority_" & number & "'>" & I need to put the results of the sub here & "</select><!--mstheme--></font></td>")
Any ideas/suggestions? Thanks in advance.