The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(31) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*Sri Lanka" line(1)="U. Tharanga       c Fulton b Martin       11" line(2)="J. Mubarak       c Martin b Bond       26" line(3)="K. S'kara       c Fulton b Astle       58" line(4)="T. Dilshan       c McCullum b Martin       43" line(5)="M. Atapattu       b Bond       69" line(6)="M. J'wardene       c Astle b Martin       30" line(7)="R. Arnold       not out       15" line(8)="C. Vaas       not out       1" line(9)="Extras (lb-2, w-5, nb-13)       20" line(10)="Total (for 6 wkts in 50 ovs)       273" line(11)="Fall of wickets: 1/44, 2/49, 3/129, 4/178, 5/233, 6/272" line(12)="Bowling: Franklin 10-0-56-0, Bond 10-1-53-2, Martin 10-0-62-3, Vettori 10-0-44-0, Cairns 7-0-44-0, Astle 3-0-12-1" line(13)="*New Zealand" line(14)="L. Vincent       c Mubarak b Perera       5" line(15)="S. Fleming       lbw Vaas       0" line(16)="N. Astle       c Fernando b Bandara       47" line(17)="P. Fulton       run out       112" line(18)="H. Marshall       c&b Perera       35" line(19)="C. Cairns       lbw Vaas       28" line(20)="B. McCullum       c Atapattu b Perera       2" line(21)="D. Vettori       b Vaas       3" line(22)="J. Franklin       b Vaas       2" line(23)="S. Bond       not out       2" line(24)="C. Martin       b Fernando       0" line(25)="Extras (lb-10, w-3, nb-4)       17" line(26)="Total (all out in 48.2 ovs)       253" line(27)="Fall of wickets: 1/3, 2/13, 3/121, 4/199, 5/224, 6/231, 7/237, 8/249, 9/252" line(28)="Bowling: Vaas 9-0-48-4, Perera 10-0-56-3, Fernando 5.2-0-36-1, Muralidharan 10-1-36-0, Dilshan 4-0-20-0, Bandara 10-0-47-1" line(29)="Note:Sri Lanka substitute Malinga Bandara replaced Russel Arnold in the beginning of the New Zealand innings. New Zealand substitute Chris Martins replaced Jamie How in the beginning of the Sri Lankan innings." redim preserve line(30) 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