<!--#include file="opendb.asp"-->
<!--#include file="sqlstr.asp"-->

<%
function displaysmallworkrec(myday,username,superior)
displaysmallworkrec="<a href='displayworkrec.asp?username=" & username & "&superior=" & superior & "&recdate=" & myday & "' onclick='return js_openpage(this.href);'>" & Day(myday) & "</a>"
if cdate(myday)=cdate(mydate) then
displaysmallworkrec="<a href='displayworkrec.asp?username=" & username & "&superior=" & superior & "&recdate=" & myday & "' onclick='return js_openpage(this.href);'><font color=red>" & Day(myday) & "</font></a>"
end if
'打開數據庫，讀出日期為myday，用戶名為username的記錄
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from workrep where username=" & sqlstr(username) & " and recdate=" & "#" & myday & "#"
rs.open sql,conn,1
if not rs.eof and not rs.bof then
displaysmallworkrec=displaysmallworkrec & "<hr size=1 color=red width='80%'><table>"

while not rs.eof and not rs.bof
if rs("finished")="yes" then
if rs("imp")="yes" then
titlecolorfront="<font color='#770000'>"
else
titlecolorfront="<font color='#0000ff'>"
end if
titlecolorback="</font>"
else
if rs("imp")="yes" then
titlecolorfront="<font color='#ff0000'>"
else
titlecolorfront="<font color='#000000'>"
end if
titlecolorback="</font>"
end if
displaysmallworkrec=displaysmallworkrec & "<tr><td><font color=red>△</font>" & titlecolorfront & rs("title") & titlecolorback & "</td></tr>"
rs.movenext
wend
displaysmallworkrec=displaysmallworkrec & "</table>"
end if
end function
%>