asp调用数据库，请帮忙精简下语句

  大量雷同代码，太繁琐了，哪位大侠帮我精简下
  <%
    set js=Server.CreateObject("Adodb.RecordSet")
        set ws=Server.CreateObject("Adodb.RecordSet")
            set bs=Server.CreateObject("Adodb.RecordSet")
    sqlj="select count(*) from T1511y228428B38 where Fn151173F2224016='aaa' and datediff(day,F154T41122g23713,getdate())=0"
    sqlw="select count(*) from T1511y228428B38 where Fn151173F2224016='aaa' and datediff(week,F154T41122g23713,getdate())=0"
    sqlb="select count(*) from T1511y228428B38 where Fn151173F2224016='aaa' and datediff(month,F154T41122g23713,getdate())=0"
    ws.open sqlw, conn, 1,1
    js.open sqlj, conn, 1,1
    bs.open sqlb, conn, 1,1   
    %>
<table>
<tr>
<td><%=js(0)%></td>
<td><%=ws(0)%></td>
<td><%=bs(0)%></td>
</tr>
</table>
    <%
    bs.close
    set bs=nothing
    ws.close
    set ws=nothing
    js.close
    set js=nothing
    %>