me(objJob.timesubmitted, 3) & " " &_ formatdatetime(objJob.timesubmitted, 2) & TdEnd & "" GenQueueViewBody = strHTML End Function %> > <%=Write (L_DocumentList_Text)%>
<%if bDHTML then %>
<% end if%> <%= Write (GenQueueViewHead) %> <% Dim i Dim bShowNext bShowNext = FALSE i = 1 For Each objJob In objJobs If (i >= iEnd) Then bShowNext = TRUE Exit For End If If (i >= istart) Then Response.Write (Write (GenQueueViewBody (objJob, i))) 'Response.Write (GenQueueViewBody (objJob, i)) End If i = i + 1 Next %>
<% If i = 1 Then 'No job in the printer queue Const L_NoJob_Text = "

There is no document in the printer queue.
" Response.Write (Write(DEF_FONT_TAG & L_NoJob_Text & END_FONT)) End If Dim strUrl const L_Prev_Text = "Prev %1 documents" Const L_Next_Text = "Next %1 documents" strUrl = "" &_ RepString1(L_Prev_Text, CStr (iJobLength)) & "    " If iStart > 1 Then Response.Write ( Write(DEF_FONT_TAG & strUrl & END_FONT)) End If strUrl = "" &_ RepString1(L_Next_Text, CStr (iJobLength)) & "" If bShowNext Then Response.Write ( Write(DEF_FONT_TAG & strUrl & END_FONT)) End If %> <%if bDHTML then%>
<% end if %> <%if index > 0 then%> <%end if%>