% dim rs sec_admin dim action dim count_links action = request("action") '-- sign out --' if action = "signout" then session.abandon response.redirect "admin_signin.asp" end if '-- link exchange requests --' count_links = 0 set rs = createobject("adodb.recordset") rs.open "select * from links where link_enabled <> 'yes'",strDSN,3,1 if not rs.eof then do until rs.eof count_links = (count_links+1) rs.movenext loop end if rs.close set rs = nothing %>
|
|
||||