<% dim rs dim sql dim num sql="select count(id) from Dv_Online" Set Rs = conn2.Execute(sql) num=rs(0)+1000 rs.close set rs=nothing call CloseConn2 response.write "online.innerHTML ="""&num&""";" %>