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
%>
