XMLHTTP + Javascript + Asp chat room, no refreshing implementation (3)

################ Reload. asp ##############

<% Response. ContentType = "text/xml (standardization is getting closer and closer )"
Response. Write "<? Xml (standardization is getting closer and closer) version = "" 1.0 "" encoding = "" GB2312 ""?> "
Response. Write "<Msg>"
Dim c_info, c_Lid, c_Ip, u_Lid, NewLid, u_name, I
C_info = Application ("c_info ")
U_Lid = session ("u_Lid ")
NewLid = u_Lid
U_name = "netnice"
For I = c_info (0) + 6 to 240 step 6
If (c_info (I)> u_Lid) and (c_info (I + 1) = u_name) or (c_info (I + 2) = u_name) or (c_info (I + 2) = "everyone") or (c_info (I + 3) = "0") then
Response. Write c_info (I + 5)
If (newLid <c_info (I) then newLid = c_info (I)
End if
Next
For I = 1 to c_info (0) step 6
If (c_info (I)> u_Lid) and (c_info (I + 1) = u_name) or (c_info (I + 2) = u_name) or (c_info (I + 2) = "everyone") or (c_info (I + 3) = "0") then
Response. Write c_info (I + 5)
If (newLid <c_info (I) then newLid = c_info (I)
End if
Next
Response. Write "</Msg>"
Session ("u_Lid") = newLid
%>