quote:

---

<%
function mySqlDate(myDate)

mySqlDate = Year(myDate) & "-" & Month(myDate) & "-" & Day(myDate) & " " & Hour(myDate) & ":" & Minute(myDate) & ":" & Second(myDate)

end function
%>
<%
set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open MM_db_sweda1825_STRING
onlinedate = mySqlDate(now())

OnlineUserIp = Request.ServerVariables("REMOTE_ADDR")
strUserStatus = rs_memberstat.Fields.Item("MEMBER_STATUS").Value
strUserIcon = rs_memberstat.Fields.Item("MEMBER_ICON").Value

'Set timeout in minutes
strTimeout = 1
StrOnlineTimedout = dateadd("n",-strtimeout*3,mySqlDate(onlinedate))
strOnlineTimedout = mySqlDate(StrOnlineTimedout)

StrSql = "Select * From general_online Where GENONLINE_USERNAME='" & strUserID & "'"
Set rs1 = adoCon.Execute(strSql)

'Check if users id exists in active users database
if rs1.eof then
'Add user to database because they dont exist
StrSql = "INSERT INTO general_online (GENONLINE_LOGON,GENONLINE_IP,GENONLINE_LASTSEEN,GENONLINE_USERNAME,GENONLINE_STATUS,GENONLINE_ROOM,GENONLINE_IMG) " &_
"VALUES ('" & onlinedate & "','" & OnlineUserIp & "','" & mySqlDate(now()) & "','" & strUserID & "','" & strUserStatus & "','1','" & strUserIcon & "')"
adoCon.Execute (StrSql)
else
'There Still active so lets update their info
StrSql = "UPDATE general_online SET GENONLINE_LASTSEEN='" & mySqlDate(now()) & "', Last_Page='" &_
request.servervariables("path_info") & "' WHERE GENONLINE_USERNAME='" & strUserID & "'"
adoCon.execute (StrSql)
end if

'Remove Users Who Have Timed Out
StrSql = "DELETE FROM general_online WHERE GENONLINE_LASTSEEN < " & StrOnlineTimedout & ""
'adoCon.execute (StrSql)

%>

---

quote:

---

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

members/mem_online.asp, line 101

---

If rs.BOF or rs.EOF then
Response.Write("No Active users")
else
YOUR CODE
end if

Select * From general_online Where GENONLINE_USERNAME=''