Bu örnekte ilkinden farklı olarak fazladan iki fonksiyon kullanmam gerekti. İlk fonksiyon alacağımız tarih değerlerini anlaşılır hale getirmek için, ikinci fonksiyon ise statünün içinde bulunan linkleri tıklanabilir hale getirmek için kullanılıyor.

<%
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
%>

Formdan gelen kişi adı değeri varsa XMLDOM nesnemizi oluşturup verileri çekiyoruz. Bu işlem sırasında yine ilk örnekteki gibi SelectSingleNode kullanıyoruz ve kişinin yazdığı statüleri, bunları nereden ve ne zaman yazdığı bilgilerini çekiyoruz.

<%
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 %>

Hazırlamış olduğum uygulamayı bu linkten görebilir veya bu linki kullanarak indirebilirsiniz.

Bir sonraki yazının konusu ASP ile Twitter durumunu güncellemek olacak.