<% 'my connection and vars dim conn, strMDBPath, strsql, strsql1, rs, rs1 set conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") set rs1 = Server.CreateObject("ADODB.Recordset") strMDBPath = "e:\domains\s\spconnor.co.uk\user\private\focus.mdb" conn.open "PRoVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath 'start with an sql ' now I bring all the entries back fromthe db strsql = "SELECT PEWDB.Tdate, * FROM PEWDB where archive = '0' ORDER BY PEWDB.startdate; " 'response.Write ("
" & sqlStr) rs.open strsql,conn,1,2 strsql1 = "SELECT Count(PEWDB.Id) AS CountOfId FROM PEWDB GROUP BY PEWDB.archive HAVING archive = '0';" 'set rs1 = conntemp.execute (sqlStr1) rs1.open strsql1,conn,1,2 %> istc pew list
 

Work Order Management Tool
Enter New PEW  Archive Pews   Pew's Stats       There are <%=rs1("CountOfId")%> PEWS Entered

 Authorised List
 All the authorised pews that have been entered, in ascending order by "Work Start Date".....Open as excel

<% do while not rs.eof %> <% if rs("startdate") < DATE() THEN BGcolor="#ff0000" elseIF rs("startdate") = DATE() THEN BGcolor="#ffFFCC" ELSE BGcolor="#66FF99" END IF %> <% rs.movenext loop %>
PEW Work Start Date Work End Date Auth by Platform Notes
<%=rs("PewNumber")%><%=rs("startdate")%> <%=rs("selstarthrs")%>:<%=rs("selstartmin")%> <%=rs("finishdate")%> <%=rs("selfinhrs")%>:<%=rs("selfinmin")%> <%=rs("ManagersName")%> <%=rs("selectPlat")%> <%=rs("txtnotes")%>
Edit
<% ' Clean Up set rs1=nothing set rs=nothing conn.Close Set conn= Nothing %>

<< Back