<% dim strMyConnString dim rsLastHere dim strLHSQL dim strLHDate dim strLHTime sub ShowUserLastHere() strLHConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/forum/users/snitz_forums_2000.mdb") '## MS Access 2000 using virtual path set my_LHConn = Server.CreateObject("ADODB.Connection") my_LHConn.Open strLHConnString strLHSQL = "Select Top 2 M_LASTHEREDATE,M_NAME from FORUM_MEMBERS order by M_LASTHEREDATE DESC" set rsLastHere=my_LHConn.execute(strLHSQL) response.write("") response.write("") response.write("") rsLastHere.movenext if not rsLastHere.eof then response.Write("") End If Loop 'response.Write("") response.write("

Most Recent Forum Visitors:") response.write("
") do until rsLastHere.eof response.write("	") strLHTime = Left(Right(rsLastHere.fields("M_LASTHEREDATE"),6),2) & ":" & Mid(Right(rsLastHere.fields("M_LASTHEREDATE"),6),3,2) strLHDate = mid(rsLastHere.fields("M_LASTHEREDATE"),5,2) & "/" & mid(rsLastHere.fields("M_LASTHEREDATE"),7,2) & "/" & left(rsLastHere.fields("M_LASTHEREDATE"),4) & " @ " & strLHTime response.Write(rsLastHere.fields("M_NAME") & "	" & strLHDate) response.Write("

") my_LHconn.Close End Sub %>