Subversion Repositories DevTools

Rev

Rev 1325 | Rev 1364 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1325 Rev 1363
Line 918... Line 918...
918 
 
 918 
 
919 
                                       <%Dim style, delta
 919 
                                       <%Dim style, delta
920 
                                       style = ""
 920 
                                       style = ""
921 
                                       delta = rsQry("delta")
 921 
                                       delta = rsQry("delta")
922 
                                       If (delta > 600) AND (IsNull(pkgId) OR pkgId = "") Then
 922 
                                       If (delta > 600) AND (IsNull(pkgId) OR pkgId = "") Then
- 
 
 923 
                                          style = "style=color:Red"
923 
                                          if( daemonState < 2 ) Then
 924 
                                          if( daemonState >= 2 ) AND (delta > 86400 ) Then
- 
 
 925 
                                            Dim bdate, dd,mm,yy
- 
 
 926 
                                            bdate = DateAdd("s", - delta,Now())
- 
 
 927 
                                            dd = Day(bdate)
- 
 
 928 
                                            mm = MonthName(Month(bdate),1)
- 
 
 929 
                                            yy = Year( bdate)
- 
 
 930 
                                            delta = dd & "-" & mm & "-" & yy
924 
                                          	style = "style=color:Red"
 931 
                                          	style = ""
- 
 
 932 
                                          ElseIf ( delta > 60*60 ) Then
- 
 
 933 
                                            'Dim bdate, hh, mins, ss
- 
 
 934 
                                            bdate = DateAdd("s", - delta,Now())
- 
 
 935 
                                            delta = TimeValue( bdate)
- 
 
 936 
                                            'delta = hh & ":" & mins & ":" & ss
925 
                                          End If
 937 
                                          End If
926 
                                       End If%>
 938 
                                       End If%>
927 
                                       <td nowrap <%=styleNow%><%=style%>><%=delta%></td>
 939 
                                       <td nowrap <%=styleNow%><%=style%>><%=delta%></td>
928 
                                    <%End If%>
 940 
                                    <%End If%>
929 
 
 941