<% usersql = "Select Count(username) from users" Set userObj = Conn.Execute(usersql) vartotalusers = userObj(0) Call destroy(userobj) forumsql = "Select posts,topics from forums" Set forumObj = Conn.Execute(forumsql) vartotalpost = forumObj(0) vartotaltopics = forumObj(1) %>

<% response.write vartotalusers & " Members have made " & vartotalpost & " posts in junooni forum." %>

<% response.write "There are currently " & vartotaltopics & " topics." %>