哪位大哥用帮小弟简化以下该程序段，在线！

tunit=Request.QueryString("单位")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\lwpost.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select count(*) as sum_device from device where (所在单位名称='"&tunit&"' and 设备名称='微机') "
rs.open sql,conn,3,3
t1=rs("sum_device")

rs.close
sql="select count(*) as sum_device from device where (所在单位名称='"&tunit&"' and 设备名称='打印机') "
rs.open sql,conn,3,3
t2=rs("sum_device")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select count(*) as sum_device from device where (所在单位名称='"&tunit&"' and 设备名称='路由器') "
rs.open sql,conn,3,3
t3=rs("sum_device")

............‘还有很多

<%=t1%>
<%=t2%>
<%=t3%>
<%=t1+t2+t3%>