求解用rs集取数组

<%
Dim Recordset1__qm
Recordset1__qm = "1"
If (request.form("qm") <> "") Then 
  Recordset1__qm = request.form("qm")
End If
%>
<%
Dim Recordset1__fm
Recordset1__fm = "1"
If (request.form("fm") <> "") Then 
  Recordset1__fm = request.form("fm")
End If
%>

这是DW自动生成的代码,取值为11
现在需要取数组应该怎样? qm取值1-5 fm取值1-9
需要的到所有的组合,如 11 12 13 14....21 22 23....31 32 33...41 42 43...51 52 53.....

求帮忙