Calling a sub in Response.Write

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.

Thanks for your input. I was able to get it working.