请教高手这个难题？

response.CacheControl = "no-cache"
response.AddHeader "pragma","no-cache"
response.Expires=-1
dim sex,age1,age2,country,p,maxNum
dim reStr
sex=trim(request.QueryString("sex"))
age1=request.QueryString("age1")
age2=request.QueryString("age2")
country=trim(request.QueryString("country"))
p=trim(request.QueryString("p"))
if isempty(p) or (not isNumeric(p)) then p=int(rnd()*100)   
p=int(p)
if p>maxNum then p=maxNum

set rs=server.createobject("adodb.recordset")  
'sql="select top 1 id,uid,PICPATH from ladlady where [id] > " & p & " and uid IN(select uid,Gender, age,Country from customer1 where Gender='"&sex&"' and (age BETWEEN "&age1&" and "&age2&") and Country ='"&country&"') order by [id] asc"  
'sql="select top 1 id,uid,PICPATH from ladlady where [id] > " & p & " and uid IN(select uid,Gender, age,Country from customer1 where Gender='"&sex&"' and ( age > "&age1&" and age < "&age2&") and Country ='"&country&"') order by [id] asc"  
sql="select top 1 id,uid,PICPATH from ladlady s,customer1 t where [id] > " & p & " and t.Gender='"&sex&"' and t.age > "&age1&" and t.age < "&age2&" and t.Country='"&country&"'"

rs.open sql,conn,1,1
'......