个人形象礼仪的重要性:有关ASP以数组方式读取数据

我在做一个有关旅行社的网页,现在在设计一个FUNCTION是通过客户的选择给出最佳的旅游路线,但在读取数据的时候遇到了一个问题,例如当客户选择了酒店为4星级,然后又选择了游轮为3星级,然后又给出了一个BUDGET,希望系统把酒店和游轮的价钱相加得到的总价钱和BUDGET相比较,只显示出符合预算的酒店和游轮..但问题是当我设计的时候,例如酒店为4星的酒店有很多,但不知道有多少,怎样才能用数组的形式读取所有的数据呢?
我写的程序如下
dim sql2,rs2,i

sql2="select * from Hotel where HotelFull=False and HotelLocation='"&des&"' and HotelLevel="&level
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,conn,1,1

Dim HotelPrice()
ReDim HotelPrice(rs2.recordcount)
for i=0 to ubound(p)
if not rs2.eof then
p(i)=rs2("HotelPrice")
rs2.movenext
end if
next
rs2.close
set rs2=nothing

dim sql3,rs3,j

sql3="select * from Cruise where CruiseFull=False and CruiseLevel="&cruiselevel
set rs3=server.CreateObject("adodb.recordset")
rs3.open sql3,conn,1,1

Dim CruisePrice()
ReDim CuisePrice(rs3.recordcount)
for j=0 to ubound(p)
if not rs2.eof then
p(j)=rs3("CruisePrice")
rs3.movenext
end if
next

rs3.close
set rs3=nothing

dim budget
budget=trim(request("Budget"))
if budget>p(i)+p(j) then
response.write ("hotel"+p(i)+"cruise"+p(j))
end if

高手帮忙我看下有什么是要改进的呢?非常感谢了