<%
dsnstr1="DRIVER=sql server;server=127.0.0.1;database=lh100;uid=sa;password=lh100com"
set dsnstr=server.CreateObject("adodb.connection")
dsnstr.Open dsnstr1
set rs=server.CreateObject("adodb.recordset")
sql="SELECT GroupSetting FROM UserGroups WHERE (UserGroupID = 1)"
rs.open sql,dsnstr,3,1
if not rs.eof and not rs.bof then
response.write rs(0)
end if
rs.close
set rs=nothing
dsnstr.close
set dsnstr=nothing
%>