Response.Write	"</font></td>" & vbNewLine & _
			"          <td align=""center"" width=""50%"">" & vbNewLine

	Response.write	"<br />          " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & " Viewing: "

	'## Ls3k - Get Online Members information, and print whatever we get
	strSql = "SELECT ME.MEMBER_ID, ME.M_NAME, ME.M_AUHIDE, AU.AU_IP, AU.AU_LOGINTIME, AU.AU_LASTACTIVETIME, AU.AU_LASTPAGE, ME.M_ICQ, ME.M_YAHOO, ME.M_AIM, ME.M_MSN, ME.M_LEVEL, AU.AU_QUERYSTRING, AU.AU_USER_AGENT " & _
			"FROM " & strTablePrefix & "ACTIVE_USERS AU, " & strMemberTablePrefix & "MEMBERS ME " & _
			"WHERE AU.MEMBER_ID = ME.MEMBER_ID AND AU.AU_LASTPAGE = '" & Right(Request.ServerVariables("SCRIPT_NAME"),InStrRev(Request.ServerVariables("SCRIPT_NAME"),"/")) & "' " & _
			"AND AU.AU_QUERYSTRING = '" & Request.QueryString & "';"
	set rsAM = my_conn.execute (strSql)

	if rsAM.EOF or rsAM.BOF then
		'Do Nothing
	else
		x = 0
		do until rsAM.EOF
			strLastPage = rsAM("AU_LASTPAGE")
			strQS = rsAM("AU_QUERYSTRING")
			If x > 0 Then Response.write(", ")
			if (rsAM("M_AUHIDE")="1" or isNull(rsAM("M_AUHIDE"))) or strAUAnon = 0 or bolOverride then 'If not anonymous, then lets show em.
				if strUseExtendedProfile then
					response.write	"                  <a href=""pop_profile.asp?mode=display&id="& rsAM("MEMBER_ID") & """>"
				else
					response.write	"                  <a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rsAM("MEMBER_ID") & "')"">"
				end if

				if rsAM("M_LEVEL") = 2 then  'If admin or mod, then lets hilight em.
					response.write	"<strong><span class=""AUModCol"">"
				elseif rsAM("M_LEVEL") = 3 then
					response.write	"<strong><span class=""AUAdminCol"">"
				end if

				response.write rsAM("M_NAME")
				if rsAM("M_LEVEL") = 2 or rsAM("M_LEVEL") = 3 then
					response.write	"</span></strong>"
				end if
				response.write	"</a>"
			else
				response.write	"[Anonymous]"
			end if

			rsAM.movenext
			x = x + 1
		loop
		rsAM.close
		set rsAM = nothing
	end if

	strSql = "SELECT COUNT(AU_IP) AS CNT " & _
			"FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = -1 AND AU_LASTPAGE = '" & Right(Request.ServerVariables("SCRIPT_NAME"),InStrRev(Request.ServerVariables("SCRIPT_NAME"),"/")) & "' " & _
			"AND AU_QUERYSTRING = '" & Request.QueryString & "';"
	set rsAG = my_conn.execute (strSql)

	intTotalActiveGuests = rsAG("CNT")

	if intTotalActiveGuests = 0 then
		rsAG.close
		set rsAG = nothing
	else
		If x > 0 Then
			Response.write	", " & intTotalActiveGuests & " Guests"
		Else
			Response.write	intTotalActiveGuests & " Guests"
		End If

		rsAG.close
		set rsAG = nothing
	end if