<%  sid=Request.querystring("sid")
dim rsqq,KEYid,keyuser
set Rsqq=server.createobject("adodb.recordset")
'connshop.Execute"Update twapp set ads6='"&sid_url()&"'"  
Sqlqq="select * from [adminguli] where sid='"&sid&"'"
Rsqq.open sqlqq,connshop,1,1
if rsqq.eof then 
response.redirect "/index.asp"
end if
if Rsqq("sid")<>sid then 
response.redirect "login.asp"
end if
KEYid=rsqq("ID")
keyuser=rsqq("username")
key=rsqq("key")
Rsqq.close
set Rsqq=nothing
%>





