<%
Dim objXMLCHART585, objRootCHART585, objresponse2CHART58s5
Set objXMLCHART585 = Server.CreateObject("Microsoft.XMLDOM")
objXMLCHART585.Async = False
objXMLCHART585.SetProperty "ServerHTTPRequest", True
objXMLCHART585.ResolveExternals = True
objXMLCHART585.ValidateOnParse = True
objXMLCHART585.Load("http://search.twitter.com/search.atom?lang=en&q="&TQuery)
If (objXMLCHART585.parseError.errorCode = 0) Then
Set objRootCHART585 = objXMLCHART585.documentElement
If IsObject(objRootCHART585) = False Then
response.Write "
No Root Found in Rss File
"
End If
Set objresponse2CHART58s5 = objRootCHART585.getElementsByTagName("entry")
If IsObject(objresponse2CHART58s5) = True Then
Dim objresponse2CHART585
For Each objresponse2CHART585 in objresponse2CHART58s5
TwitTitle = objresponse2CHART585.selectSingleNode("title").Text
On Error Resume Next
TwitLink = objresponse2CHART585.selectSingleNode("link/@href").Text
On Error Resume Next
Twitter = Split(TwitTitle,"http")
Twit = Twitter(0)
Twit = Replace(Twit,"vagina","#?!&")
Twit = Replace(Twit,"Vagina","#?!&")
Twit = Replace(Twit,"VAGINA","#?!&")
Twit = Replace(Twit,"dick","#?!&")
Twit = Replace(Twit,"Dick","#?!&")
Twit = Replace(Twit,"DICK","#?!&")
Twit = Replace(Twit,"pussy","#?!&")
Twit = Replace(Twit,"Pussy","#?!&")
Twit = Replace(Twit,"PUSSY","#?!&")
Twit = Replace(Twit,"cock","#?!&")
Twit = Replace(Twit,"Cock","#?!&")
Twit = Replace(Twit,"COCK","#?!&")
Twit = Replace(Twit,"fuck","#?!&")
Twit = Replace(Twit,"FUCK","#?!&")
Twit = Replace(Twit,"Fuck","#?!&")
Twit = Replace(Twit,"asshole","#?!&")
Twit = Replace(Twit,"ASSHOLE","#?!&")
Twit = Replace(Twit,"Asshole","#?!&")
Twit = Replace(Twit,"ass","#?!&")
Twit = Replace(Twit,"Ass","#?!&")
Twit = Replace(Twit,"ASS","#?!&")
Twit = Replace(Twit,"blowjob","#?!&")
Twit = Replace(Twit,"Blowjob","#?!&")
Twit = Replace(Twit,"BLOWJOB","#?!&")
Twit = Replace(Twit,"cunt","#?!&")
Twit = Replace(Twit,"CUNT","#?!&")
Twit = Replace(Twit,"Cunt","#?!&")
Twit = Replace(Twit,"shit","#?!&")
Twit = Replace(Twit,"SHIT","#?!&")
Twit = Replace(Twit,"Shit","#?!&")
Twit = Replace(Twit,"bitch","#?!&")
Twit = Replace(Twit,"BITCH","#?!&")
Twit = Replace(Twit,"Bitch","#?!&")
Twit = Replace(Twit,"butt","#?!&")
Twit = Replace(Twit,"Butt","#?!&")
Twit = Replace(Twit,"BUTT","#?!&")
Twit = Replace(Twit,"whore","#?!&")
Twit = Replace(Twit,"WHORE","#?!&")
Twit = Replace(Twit,"Whore","#?!&")
Twit = Replace(Twit,"piss","#?!&")
Twit = Replace(Twit,"Piss","#?!&")
Twit = Replace(Twit,"PISS","#?!&")
Twit = Replace(Twit,"nigger","#?!&")
Twit = Replace(Twit,"NIGGER","#?!&")
Twit = Replace(Twit,"Nigger","#?!&")
Twit = Replace(Twit,"Nigga","#?!&")
Twit = Replace(Twit,"NIGGA","#?!&")
Twit = Replace(Twit,"Nigga","#?!&")
Twit = Replace(Twit,"WTF","#?!")
Twit = Replace(Twit,"Wtf","#?!")
Twit = Replace(Twit,"wtf","#?!")
Twit = Replace(Twit,"balls","#?!")
Twit = Replace(Twit,"BALLS","#?!")
Twit = Replace(Twit,"Balls","#?!")
k = k-1
if k < 4 then
response.Write("
")
End If
Next
else
response.Write "
No Root Found in Rss File
"
End If
Set objRootCHART585 = Nothing
Set objresponse2CHART58s5 = Nothing
End If
Set objXMLCHART585 = Nothing
%>