Having a problem getting this error. I searched and all I could find are things talking about getting alot of information will cause this. I am only getting one record (testing) and I am getting this.

Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

/login/admin.asp, line 0

Execution of the ASP page caused the Response Buffer to exceed its configured limit.


Here is my code:
<!--#include file='adminheader.inc'-->
<%

'Create an ADO recordset object
Set rsSiteName = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT sitename FROM tblAdmin"

'Open the recordset with the SQL query
rsSiteName.Open strSQL, adoCon

Response.Write ("<title>")
Response.Write (rsSiteName("sitename"))
Response.Write (" - Options</title>")

Set rsSiteName = Nothing


'Create an ADO recordset object
Set rsActiveUser = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT User_ID, Last_Seen, Last_Page, Logon_time, User_ip FROM active_users"

'Open the recordset with the SQL query
rsActiveUser.Open strSQL, adoCon


Response.write ("<table><tr><td></td><td><strong>Who</strong></td><td><strong>When</strong></td><td><strong>Where</strong></td><td><strong>Logon Time</strong></td><td><strong>Ip Address</strong></td></tr>")

strBGColor = "#EEEEEE"

Do While NOT rsActiveUser.EOF
if strBGColor = "#EEEEEE" Then strBGColor = "#D7D7D7" Else strBGColor = "#EEEEEE" %>
<tr bgcolor="<%= Cstr(strBGColor) %>">
<%
response.write ("<td>")
response.write rsActiveUser("User_ID")
response.write ("</td><td>")
response.write rsActiveUser("Last_Seen")
response.write ("</td><td>")
response.write rsActiveUser("Last_Page")
response.write ("</td><td>")
response.write rsActiveUser("Logon_time")
response.write ("</td><td>")
response.write rsActiveUser("User_ip")
response.write ("</td></tr>")

Loop

response.write ("</table>")
set rsActiveUser = Nothing
set adoCon = Nothing

%>


<!--#include file='footer.inc'-->

You are not using the movenext method of your recordset in your while loop - You are stuck in an infinite loop.