怎样把数据库里的值取出作为变量来使用？

Question

数据库结构如下：
(id是自动编号，km是科目，user是用户名，pwd是密码，除id外，其余的都是文本字段。)
--------------------------------------------------------------------------------id    km    user   pwd 
1 language  a1  111
2 english   a2 222
3 math      a3 333
4 history   a4 444
...............
...............
7 politics a7 777
---------------------------------------------------------------------------------
我想把数据库中的user和pwd的值（a1,a2,a3...和111，222，333...）取出来作为变量随时调用
下面是我的方法：
<%set rs = server.CreateObject("adodb.recordset")rs.open "select * from table where km='language'",conn,1,1
dim a,b
a=<%=rs("user")%>
b=<%=rs("pwd")%>
%>以上是取出a1和111值的方法，我现在是要取出7个科目的，这样就要写7段象上面的代码，这样我觉得
代码太多了，有没有好的方法，只写少点的代码就可以？代码越少越好。期望...

Answer 1

dim count as int 
dim Arr() as string
count=rs.RecordCount
redim(count,2) 
for i=1 to count
Arr(i-1,0)=rs("user")
Arr(i-1,1)=rs("pwd")
rs.MoveNext
next不知道这样写对不，不过思路是对的，
对Asp语法忘记的差不多了.....见谅