Calling a sub in Response.Write

[vbuser1976]

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: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: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.

[vbuser1976]

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