% dim adminlogined adminlogined=checklogin() IF adminlogined<>True Then response.redirect "login.asp" End IF IF request.queryString("login")="out" Then call loginout() End IF %> <% set cRs=Server.CreateObject("Adodb.Recordset") sql="select * from configdata" cRs.open sql,conn,1,1 %>