%
session("admin")=""
StrSQL="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("newsadmin/data/#@newsxp.asp")
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
set rs=server.createobject("ADODB.Recordset")
sql="select * from nums"
rs.open sql,conn,3,3
if session("username")="" then
nums=rs("numbers")+1
rs("numbers")=nums
rs.Update
session("username")="yes"
end if
set rsor=server.createobject("ADODB.Recordset")
sqlor="select * from orederuser where checks='0'"
rsor.open sqlor,conn,3,3
set rssg=server.createobject("ADODB.Recordset")
sqlsg="select * from orderpro where checks='0'"
rssg.open sqlsg,conn,3,3
%>