- set rs = server.createobject("adodb.recordset")
- dim location
- location = Session("location")
- strSQL = "SELECT * " _
- & "FROM db_accessadmin.callbacks " _
- & "WHERE location ='"& location &"' AND "_
- & "status ='Open' OR " _
- & "status ='WIP' " _
- & "ORDER BY ID desc;"
- rs.Open strSQL, oConn, adOpenStatic
- Dim intcount1
- intcount1 = 0
- If Not rs.EOF Then
- rs.MoveFirst
- Do while Not rs.EOF
- StartTime = rs("date")
- diff1 = (DateDiff("h",StartTime,EndTime))
- intcount1 = intcount1 + 1
- dim count1
- count1 = intcount1
- response.write "<tr><td><font face='Arial' color='#111111' size='2'>" & rs("admin") & "</td></font>"
- response.write "<td><font face='Arial' size='2'>" & rs("ticket") & "</td></font>"
- response.write "<td><font face='Arial' size='2'>" & rs("helpdesk") & "</td></font>"
- response.write "<td><font face='Arial' size='2'>" & rs("division") & "</td></font>"
- response.write "<td><center><font face='Arial' size='2'>" & diff1 & "</td></font></center>"
- response.write "<td><font size='2' face='Arial'><i><b><a href='ADMINUpdateCallback.asp?FID=" & rs("ID") & "&queue=" & diff1 & "'>" & rs("status") & "</a></b></i></font></td></tr>"
- rs.moveNext
- loop
- End If
- response.write "<font face='Arial' color='#344C7C' size='1'><b>All Other Callbacks = " & count1 & "</b></font>"
- rs.close
- set rs=nothing
- oConn.close
- set oConn=nothing

