Objeto Response erro 'ASP 0156 : 80004005'

:unsure:

e ai pessoal

não estou

não sei o porque esta ocorrendo este erro

Objeto Response erro 'ASP 0156 : 80004005'

Erro de cabeçalho

/login.asp, line 38

Os cabeçalhos HTTP já estão gravados no navegador cliente. Quaisquer modificações no cabeçalho HTTP devem ser feitas antes de gravar o conteúdo da página.

o problema ocorre no momento em que eu faço um redirect...

se por um response.clear, dai ele me outra msg,

Objeto Response erro 'ASP 0159 : 80004005'

Armazenamento desativado

/login.asp, line 37

O armazenamento deve estar ativo.

============> arquivo login.asp

<%

ip_usr = Request.ServerVariables("REMOTE_ADDR")

UserName = Request.Form ("UserName")

Password = Request.Form ("Password")

if UserName<>"" then

if Password<>"" then

set conn = Server.CreateObject ("ADODB.Connection")

conn.Open Application("connString")

 query = "SELECT Id FROM Members WHERE UserName='" & UserName & "' AND Password='" & Password & "'"

 set rs = conn.Execute (query)

 

 if rs.eof then

 

 Response.Write "<p class=errmsg>Invalid user and password!</p>"

 conn.Close

 else

 

 Session("member") = rs("Id")

 rs.close

 set rs = nothing

 

 conn.Execute ("UPDATE User_LogTime SET offline=True WHERE offline=False AND user_id=" & session("member"))

 query = "INSERT INTO User_LogTime (user_id, SID, Login_Time, user_ip) VALUES (" & Session("member") & "," & Session.SessionID & ",#" & data & "#, '" & ip_usr & "')"

 conn.Execute (query)

 conn.close

 set conn = nothing

 

 **Response.Redirect "home.asp"**

 end if

 else

 Response.Write "<p class=errmsg>Please fill both fields.</p>"

 end if

	end if

%>