<% '********************************************************************* ' shop administration only ' Version 6.50 Feb 23, 2003 ' use to display who has logged into adminitrative domain '******************************************************************** dim count ShopCheckAdmin "shopa_loghist.asp" ShopOpenDatabase dbc mypage=request("page") maxrecs=getconfig("xeditdisplaymaxrecords") mypagesize=maxrecs If mypage="" then mypage=1 If Request("Delete")<>"" Then For Each item in Request("DeleteHis") del = "delete from tbllog where fldauto=" & cint(item) dbc.Execute(del) Next mypage=1 End If AdminPageHeader if request("orderfld") > "" then setsess "orderfld", request("orderfld") else setsess "orderfld", "flddate" end if if getsess("orderupdown") = "DESC" then setsess "orderupdown", "ASC" else setsess "orderupdown", "DESC" end if sql = "select * from tbllog order by " & getsess("orderfld") & " " & getsess("orderupdown") & ", fldtime desc" ShopOpenRecordSet SQL,objrec, mypagesize, mypage %>

<% GenerateDisplayHeader "User Log In History" GenerateDisplayBodyHeader %> <% dim howmanyrecs howmanyrecs=0 dim tempdate, temptime, ipaddress, rowcolor rowcolor=0 while not objrec.eof OR howmanyrecs=maxrecs howmanyrecs=howmanyrecords+1 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 if rowcolor = 0 then %><% rowcolor=1 else %><% rowcolor=0 end if %> <%objRec.MoveNext Wend%>

<%=getlang("LangAdminUsername")%>	<%=getlang("LangDisplaytime")%>	Date	ipaddress
<%=objrec("fldusername")%>	<%=temptime%>	<%=tempdate%>	<%=ipaddress%>

<% objRec.Close set objREC=nothing If howmanyrecs>0 then pagenavbar sql end if generatedisplaybodyfooter Shopclosedatabase dbc %>

<% AdminPageTrailer %>