The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(28) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*India" line(1)="First innings 290" line(2)="*Sri Lanka" line(3)="First innings 230" line(4)="*India" line(5)="Second innings (overnight 237/5)" line(6)="S. Ganguly       b Muralidharan       39" line(7)="Y. Singh       not out       77" line(8)="M. Dhoni       not out       51" line(9)="Extras (b-9 lb-16 nb-7)       32" line(10)="Total (for 6 wkts decl in 105 ovs)       375" line(11)="Fall of wicket: 6/271" line(12)="Bowling: Vaas 21-4-65-2, Muralidharan 38-5-118-1, Fernando 22-5-75-1, Bandara 20-2-74-1, Dilshan 4-0-18-0" line(13)="*Sri Lanka" line(14)="Second innings" line(15)="A. G'dene       lbw Pathan       9" line(16)="M. Atapattu       c&b Kumble       67" line(17)="K. S'kara       c Dhoni b Agarkar       33" line(18)="M. J'wardene       batting       9" line(19)="M. Bandara       lbw Kumble       0" line(20)="T. S'weera       c Dravid b Harbhajan       0" line(21)="Extras (lb-1, nb-4)       5" line(22)="Total (for 5 wkts in 50.3 ovs)       123" line(23)="Fall of wickets: 1/30, 2/109, 3/119, 4/119, 5/123" line(24)="Bowling: Pathan 9-1-30-1, Agarkar 10-3-31-1, Kumble 18-4-34-2, Harbhajan 13.3-4-27-1" redim preserve line(25) response.write " " for i=0 to ubound(line)-1 reg.pattern=" " set temp=reg.Execute(line(i)) if temp.count=0 and left(line(i),1)="*" then 'Segregate name response.write " " & vbcrlf response.write " " & vbcrlf response.write " " & vbcrlf elseif temp.count=0 and left(line(i),1)<>"*" then 'Segregate info e.g. innings response.write " " & vbcrlf response.write " " & vbcrlf response.write " " & vbcrlf else 'The rest is data dat1=" " dat2=" " dat3=" " txt=split(line(i)," ",-1) for j=0 to ubound(txt) if txt(j)<>"" then if dat1=" " then dat1=txt(j) elseif dat2=" " then dat2=txt(j) elseif dat3=" " then dat3=txt(j) end if end if next if dat3=" " and dat2<>" " then dat3=dat2 dat2=" " end if response.write " " response.write " " & vbcrlf response.write " " & vbcrlf response.write " " & vbcrlf response.write " " & vbcrlf end if next response.write "
" & vbcrlf response.write "" & mid(line(i),2) & "" response.write "
" & vbcrlf response.write line(i) & "

" response.write "
" & vbcrlf response.write dat1 response.write "" & vbcrlf response.write dat2 response.write "" & vbcrlf response.write dat3 response.write "
" %>
Top
Email This Page