如何通过知道某个字段的值查询他的另一个字段的值，并赋值给变量？

<%

dim a1,hrl,h1,sum,sum1,sum2,sum3

m1=request.Form("m1")

j1=request.Form("j1")

d1=request.Form("d1")

set rs=Server.CreateObject("ADODB.RecordSet")

sql="SELECT ring FROM dianlu WHERE namez like '" & m1 & "'"

rs.open sql,conn,1,1

h1=rs("ring").value                   '得到所属环号

rs.close

set rs=nothing



set rs=Server.CreateObject("ADODB.RecordSet")

sql="SELECT name,rl FROM glzl WHERE ring = h1 and hb = j1"

rs.open sql,conn,1,1

a1=rs("name").value                   '得到A端名称

hrl=rs("rl").value                   '得到所属环容量

rs.close

set rs=nothing



set rs=Server.CreateObject("ADODB.RecordSet")

sql="SELECT * FROM zlzl WHERE namez = like '" & m1 & "'"

rs.open sql,conn,1,1

sum1=rs("idle").value                   '得到Z端剩余数

rs.close

set rs=nothing



set rs=Server.CreateObject("ADODB.RecordSet")

sql="SELECT * FROM zlzl WHERE namez = a1"

rs.open sql,conn,1,1

sum2=rs("idle").value                   '得到A端剩余数

rs.close

set rs=nothing



set rs=server.createobject("ADODB.Recordset") 

sql="SELECT count(ring) as hnum from dianlu where ring=h1" 

rs.open sql,conn,1,1 

sum=hsum                   '得到所属环总数

rs.close

set rs=nothing



set rs=server.createobject("ADODB.Recordset") 

sql="SELECT * from glzl where ring=h1" 

rs.open sql,conn,1,1 

sum=hsum                   '得到所属环使用数

rs.close

set rs=nothing

sum3=hrl-sum               '得到所属环剩余数



if sum1<d1 or sum2<d1 or sum3<d1 then

response.write ("没有通道使用")

else

response.write ("可以使用")

end if



%>