The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(30) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*India" line(1)="G. Gambhir       c Atapattu b M'roof       103" line(2)="V. Sehwag       b Zoysa       19" line(3)="M. Dhoni       lbw Zoysa       0" line(4)="Y. Singh       c J'dena b vaas       3" line(5)="R. Dravid       not out       103" line(6)="V. Rao       c Tharanga b m'roof       6" line(7)="S. Raina       lbw M'roof       13" line(8)="A. Agarkar       c Arnold b M'roof       4" line(9)="M. Kartik       c Atapattu b Fernando        8" line(10)="R. Singh       not out       9" line(11)="Extras (b-1, lb-3, w-7, nb-6)       17" line(12)="Total (for 8 wkts in 50 ovs)       285" line(13)="Fall of wickets: 1/50, 2/50, 3/69, 4/197, 5/208, 6/224, 7/230, 8/262" line(14)="Bowling: Vaas 10-1-56-1, Fernando 10-0-77-1, Zoysa 5-0-29-2, Muralidharan 10-1-37-0, Dilshan 3-0-19-0, Jayasuriya 6-0-35-0, Arnold 1-0-8-0, Mahroof 5-0-20-4" line(15)="*Sri Lanka" line(16)="K. S'kara       c Rao b Singh       39" line(17)="S. J'suriya       c Rao b Agarkar       8" line(18)="U. Tharanga       c Sehwag b Agarkar       14" line(19)="M. J'wardene        run out       37" line(20)="M. Atapattu       c&b Kartik       39" line(21)="T. Dilshan       not out       81" line(22)="R. Arnold       not out       49" line(23)="Extras (lb-3 nb-3 w-13)       19" line(24)="Total (for 5 wkts in 47.4 ovs)       286" line(25)="Fall of wickets: 1/15, 2/61, 3/73, 4/143, 5/155" line(26)="Bowling: Agarkar 9.4-0-59-2, Singh 9-1-54-1, Sreesanth 10-0-57-0, Yadav 7-0-44-0, Kartik 10-0-52-1, Sehwag 2-0-17-0" line(27)="Note: Jai Prakash Yadav replaced Rahul Dravid in the 9th over of the Sri Lankan innings, while Fervez Mahroof replaced Nuyan Zoysa in the 14th over of the Indian innings." redim preserve line(28) 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