% Dim DSN_Name DSN_Name = Application("kcMembers_ConnectionString") councilNum = Session("councilNum") 'loginName = request.form("loginName") loginName = session("loginName") location = session("location") Set objRS = Server.CreateObject("ADODB.RecordSet") 'SQL = "SELECT * FROM login Where councilNum = '" & councilNum & "' and loginName = '" & request.form("loginName") & "'" 'SQL = "SELECT * FROM login Where loginName = '" & loginName & "'" SQL = "SELECT * FROM login Where loginName = '" & session("loginName") & "'" 'response.write(SQL) objRS.Open SQL, DSN_Name 'Set objRS1 = Server.CreateObject("ADODB.RecordSet") 'SQL1 = "SELECT max(num) - 5 as number1 FROM kcNews Where councilNum = '" & councilNum & "'" 'objRS1.Open SQL1, DSN_Name 'response.write(SQL1) Set obj2RS = Server.CreateObject("ADODB.RecordSet") SQL2 = "SELECT * FROM programNews order by num" obj2RS.Open SQL2, DSN_Name 'response.write(SQL2) %>