Translation kicked user name file admin/relename.asp

Translation kicked user name file relename.asp

<%
User=request.form ("User")
%><meta http-equiv= "Refresh" content= "4; Url=.. /refresh.asp?user=<% =user%> ">
<%
Chatdata=application ("Chatdata")
Kicklist=application ("Kicklist")
If session ("admlevel") = "9" Then
Sendid=finduser (user)
If Sendid<51 Then
Do While InStr (Kicklist, ", ' #") >0
Address1=instr (Kicklist, ", ' #")
Address2=instr (Address1+3,kicklist, ",")
If Address2>0 Then
Kicklist=left (kicklist,address1-1) &mid (KICKLIST,ADDRESS2)
Else
Kicklist=left (Kicklist,address1-1)
End If
Loop
Application.Lock
Application ("Kicklist") =kicklist
Application.UnLock
Dispstr=right ("0" &time,8) & ", System, 0," &user& ", ff0000,0, successfully cleared the kicked list"
End If
End If

If dispstr<> "" Then
%>
<script language= ' JavaScript ' >
Parent.comm=new Array (' <% =dispstr%> ');
Parent.writecomm ();</script>
<%
End If

function Finduser (fuser)
reval=100
For I=0 to 99
If Chatdata (i,0) =fuser Then
Reval=i
Exit For
End If
Next
Finduser=reval
End Function

%>