ASP Read Page Keywords

<%

' To get the keyword page
Remoteurl = "http://111cn.net "

' Create a XMLHTTP connection
Set Objxml = CreateObject ("Microsoft.XMLHTTP")
Objxml.open "Get", Remoteurl, False
Objxml.send

' Get the return data
Responsepage = Objxml.responsetext

Set Objxml = Nothing

Response.Write ("Lenth of the original file:" & Len (responsepage) & "<BR>")

'
Thetext=lcase (Responsepage)
For I=0 to 31
Thetext=replace (THETEXT,CHR (i), "")
Next
For I=33 to 47
Thetext=replace (THETEXT,CHR (i), "")
Next
For i=58 to 64
Thetext=replace (THETEXT,CHR (i), "")
Next
For i=91 to 96
Thetext=replace (THETEXT,CHR (i), "")
Next
For i=123 to 255
Thetext=replace (THETEXT,CHR (i), "")
Next
Thetext=replace (TheText, "", "")

Public NameArray
Namearray=split (TheText, "")
Max=ubound (NameArray)
Thetext= ""
For counter=0 to Max
If InStr (TheText, NameArray (counter)) =0 Then
Thetext=thetext & "" & NameArray (counter)
NameArray (counter) = ""
End If
NameArray (counter) = ""
Next

Response.Write (thetext & <br>lenth of Keywords: & Len (thetext))
%>
<HR>
Scrip T provided by <a href=http://www.111cn.net> China web first station </A>