Refresh frame, filename fresh.asp

Refresh frame: filename fresh.asp
<%
Option Explicit
Dim msg,tmsg,ws,action,user,whoto,tcolor,kicklist,chatpoin,chatcomm,chatdata,sendid,i,reciid
Dim tsecretly,thidename,dispstr,tchatpoin,tuserpoin,tchatcomm,j
Dim sendname,address1,reciname
User=request ("User")
Whoto=request.form ("Whoto")
Tmsg=request.form ("SAYS")
Tmsg=replace (Tmsg, "", "")
Tmsg=replace (Tmsg, ",", ",")
Tmsg=replace (Tmsg, "<", "<") ' Masks all HTML tags
Tmsg=replace (tmsg, "Tmsg=replace (tmsg, "<b", "<b") ' Release <b mark
If Request.Form ("ws") = "on" Then
Ws=true
Else
Ws=false
End If
Kicklist=application ("Kicklist")
' Whether the user was kicked
If InStr (Kicklist, "' #" &user& "") >0 Then
Response.Write "<script>parent.top.location= ' kickout.htm ';</script>"
Response.End
End If
If InStr (Kicklist, "'" &request.servervariables ("REMOTE_ADDR") & "") >0 Then
Response.Write "<script>parent.top.location= ' kickout.htm ';</script>"
End If
Chatpoin=application ("Chatpoin") ' Chat room pointer
Chatcomm=application ("Chatcomm") ' Chat room content
Chatdata=application ("Chatdata") ' Chat room user data
Sendid=-1
Reciid=-1
For I=0 to 50
If Chatdata (i,0) =user and Chatdata (i,1) =request.servervariables ("REMOTE_ADDR") then sendid=i ' Note, check the IP address in some, prevent the wall from being worn
If Chatdata (i,0) =whoto then reciid=i