<% response.ContentType="application/vnd.ms-excel" '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 = '0' ORDER BY PEWDB.startdate; " 'response.Write ("
" & sqlStr) 'set rs = conntemp.execute (sqlStr) rs.open strsql,conn,1,2 %> istc pew list <% do while not rs.eof %> <% if rs("startdate") = DATE()-1 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 Stamp Date
<%=rs("PewNumber")%><%=rs("startdate")%> <%=rs("selstarthrs")%>:<%=rs("selstartmin")%> <%=rs("finishdate")%> <%=rs("selfinhrs")%>:<%=rs("selfinmin")%> <%=rs("ManagersName")%> <%=rs("selectPlat")%> <%=rs("txtnotes")%> <%=rs("Tdate")%>
<% ' Clean Up set rs=nothing conn.Close Set conn= Nothing %>