<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> <% t = Request.QueryString("t") Function TarihCevir(tarih) TarihDizi = Split(tarih," ") TarihCevir = TarihDizi(2) & " " & TarihDizi(1) & " " & TarihDizi(5) & " " & TarihDizi(3) End Function Function LinkYap(metin) yer1 = Instr(metin,"http://") If yer1 > 0 Then yer2 = Instr(yer1,metin," ") If yer2 = 0 Then yer2 = Len(metin)+1 link = Mid(metin,yer1,yer2-yer1) LinkYap = Replace(metin,link,""&link&"") Else LinkYap = metin End If End Function %>

 

<% If t <> "" Then Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = false objXML.setProperty "ServerHTTPRequest", true xmlFile = "http://twitter.com/statuses/user_timeline.xml?screen_name="&t&"&count=5" objXML.Load xmlFile Set objItems = objXML.getElementsByTagName("status") TwitSayisi = Int(objItems.Length) If TwitSayisi > 0 Then %> <% i = 1 For Each objItem in objItems text = objItem.selectSingleNode("text").Text kaynak = objItem.selectSingleNode("source").Text tarih = objItem.selectSingleNode("created_at").Text %> style="background:#eee;"<%End If%>> <% i = i + 1 Next %>

Twit	Kaynak	Tarih
<%=LinkYap(text)%>	<%=kaynak%>	<%=TarihCevir(tarih)%>

<% End If %> <% End If %>