<% '********************************************************************* ' shop administration only ' Version 4.50 Sept 2002 add sort ' use to display who has logged into adminitrative domain '******************************************************************** ShopCheckAdmin "shopa_loghist.asp" ShopOpenDatabase con If Request("Delete")<>"" Then For Each item in Request("DeleteHis") del = "delete from tbllog where fldauto=" & cint(item) con.Execute(del) Next End If AdminPageHeader sql = "select * from tbllog order by flddate DESC, fldtime DESC" Set objRec = con.Execute(SQL) %>

<% dim tempdate, temptime, ipaddress while not objrec.eof id = objrec("fldauto") ipaddress=objrec("fldipaddress") temptime=objrec("fldtime") if isdate(temptime) then temptime=formatdatetime(temptime,vblongtime) end if tempdate=objrec("flddate") if isdate(Tempdate) then tempdate=formatdatetime(tempdate,vbshortdate) end if %> <%objRec.MoveNext Wend objRec.Close set objREC=nothing Shopclosedatabase con %> User log in/out history: username: time: date: in/out: ipaddress: delete: <%=objrec("fldusername")%> <%=temptime%> <%=tempdate%> <%=ucase(objrec("fldinout"))%> <%=ipaddress%>     select all

<% AdminPageTrailer %>