eclass.unmer.ac.id

'LIBERAR TUDO DEPOIS

Dim oTwitterAPI5
set oTwitterAPI5 = new AspTwitterLib
 oTwitterAPI5.aspTwitterLoginUser = "kbcomunica"
 oTwitterAPI5.aspTwitterLoginPass = "kb1234"
 
Dim objUserDetail5,strUserDetailError5
Set objUserDetail5 = oTwitterAPI5.aspTwitterUserDetail()
 if Len(oTwitterAPI5.aspTwitterError) > 0 then
 strUserDetailError5 = "" & _ 
 "Oops error fetching user detail : " & _
 "<cite>" & oTwitterAPI5.aspTwitterError & "</cite>"
 else
 Dim arrTimeline5,strTimelineError5
 arrTimeline5 = oTwitterAPI5.aspTwitterGetUserTimeline()				
 if Len(oTwitterAPI5.aspTwitterError) > 0 then
 strTimelineError5 = "" & _ 
 "Oops unabled fetching user statuses : " & _
 "<cite>" & oTwitterAPI5.aspTwitterError & "</cite>"
 end if
 end if

if IsArray(arrTimeline5) then
 
 Dim intCounter5,strStyle5
 intCounter5 = 0
	 
	 contador = 1
 for each i in arrTimeline5
 if isArray(i) then
 strStyle5 = ""
		 if intCounter5 MOD 2 = 0 then strStyle5 = "alt"
		 		
				if contador < 3 then
				response.Write(i(1)) & " "
				contador = contador + 1
				
				else if contador = 3 then
				response.Write(i(1))
				contador = contador + 1
				end if
				end if
				
			intCounter5 = intCounter5
		 end if
 next
 Else
 response.Write ""
 End if
%>