Function saveactiveman()
set Activeconn=server.createobject("adodb.connection")
activeconn.open application("connstr")
dim activetext
activetext="insert into active(active_time,active_ip,active_http,active_httpre) values ('" & Session("visTime") & "','" & Session("ip") & "','" & session("active_http") & "','" & session("active_httpre") & "')"
set activecmd=server.createobject("adodb.command")
set activecmd.activeconnection=activeconn
activecmd.commandtext=activetext
activecmd.execute
activeconn.close
set activeconn=nothing
end function