% Dim isplay Set rs=conn.Execute("Select isplay From WebBasicInfo Where W_ID=1") isplay=rs("isplay") rs.close Set rs=nothing %>