Shift Logbook Year

<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd_repl SQLStmt0 = "select to_char(to_date(c_month,'YYYYMM'),'MON-YYYY') d_month,to_char(to_date(c_month,'YYYYMM'),'MM') o_month,to_char(to_date(c_month,'YYYYMM'),'YYYY') o_year from" SQLStmt0 = SQLStmt0 & " (select distinct to_char(log_date,'YYYYMM') c_month from phoffline.log_entries where action like '%SHIFT%') " ' response.write(SQLStmt0 & "
" ) Set RS0 = Connection.Execute(SQLStmt0) %> Shift Logbook Year

All Shift Logbooks

" & "" & CStr(RS0("d_month")) & "

<% Connection.Close %>