这段代码如何写成sub 调用函数呀？

一下代码需要多处使用！所以我想把它写成sub 调用函数，只要call一下就可以!
但是调用函数的代码应该怎么写呢?
因为这个下拉框的代码已经含有 <%%>符号了!请各位帮帮忙!!

<SELECT onChange='document.tq_img.src=options[selectedIndex].tqxx_img;document.all.tqxx_img.value=options[selectedIndex].tqxx_img' name='tqxx1' ID='tqxx1' size='1'>
<option value='' tqxx_img='images/1/nothing.gif'>=请选择=</option>
<%if rs("tqxx1")="晴" then %><option value=晴 tqxx_img='images/1/0.gif' selected>晴</option><%else%><option value=晴 tqxx_img='images/1/0.gif'>晴</option><%end if%>
<%if rs("tqxx1")="多云" then %><option value=多云 tqxx_img='images/1/1.gif' selected>多云</option><%else%><option value=多云 tqxx_img='images/1/1.gif'>多云</option><%end if%>
<%if rs("tqxx1")="阴" then %><option value=阴 tqxx

这段代码如何写成sub 调用函数呀？ 关于，静态的HTML网页如何调用这段代码 这段代码应该如何调用到页面啊? Private Sub Timer1_Timer()这段代码的意思？ 我想用js调用这段代码 怎样把这段代码写成JS输出! 请问这段代码怎么放在js里调用？？ 这段ASP代码，主要调用的文件是那些， 这段代码有错吗？为什么不可以调用？ ASP 如何写成一个过程??方便调用