% dim defaultdbconn getdefaultdbconn2() sql="select * from forum_main as a,member as b where a.author=b.sn and a.main_sn=" & request("main_sn") set rs=server.createobject("adodb.recordset") rs.open sql,defaultdbconn,1,3 if rs.eof then response.write "error." response.end end if sql2="update forum_main set clicks=clicks+1 where main_sn=" & request("main_sn") defaultdbconn.execute(sql2) %>