<% 'open connection 'myDSN="DSN=focus" 'set conntemp=server.createobject("adodb.connection") 'conntemp.open myDSN '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 = '-1' ORDER BY PEWDB.startdate DESC; " 'response.Write ("
" & sqlStr) 'set rs = conntemp.execute (sqlStr) rs.open strsql,conn,1,2 %> istc pew list
 

Work Order Management Tool
Enter new PEW   Authorised Pews    Pew's Stats

 Archived
 All the authorised WORKS that have been archived, in ascending order by "Work Start Date".....Open as excel

<% do while not rs.eof %> <% 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")%>
<% ' Clean Up set rs=nothing conn.Close Set conn= Nothing %>

<< Back