The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(29) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*Australia" line(1)="A. Gilchrist       c Luuk b De Leede       57" line(2)="M. Hayden       c Borren b De Leede       29" line(3)="R. Ponting       c&b Ten Doeschate       23" line(4)="M. Clarke       not out       93" line(5)="B. Hodge       b Borren       123" line(6)="M. Hussey       c sub b Ten Doeschate       2" line(7)="S. Watson       not out       12" line(8)="Extras: (lb-9, w-8, nb-2)       19" line(9)="Total: (for 5 wkts in 50 overs)       358" line(10)="Fall of wkts: 1/73, 2/116, 3/116, 4/320, 5/325" line(11)="Bowling: Jonkman 6.1-1-35-0, Reekers 5-1-32-0, Tim de Leede 10-1-40-2 (1w), Doeschate 10-0-76-2, Raja 7.5-0-61-0, Borren 10-0-89-1" line(12)="*The Netherlands" line(13)="B. Zuiderent       run out       9" line(14)="D. Reekers       c Clarke b Bracken       25" line(15)="A. Kervezee       lbw Bracken       0" line(16)="Doeschate       lbw Tait       1" line(17)="L. van Troost       lbw McGrath       0" line(18)="D. van Bunge       lbw McGrath       33" line(19)="T. de Leede       c Hayden b Hogg       14" line(20)="P. Borren       c Hussey b Hogg       24" line(21)="J. Smits       lbw b Hogg       3" line(22)="A. Raja       not out       8" line(23)="M. Jonkman       st Gilchrist b Hogg       0 " line(24)="Extras (b-4, lb-3, w-5)       12 " line(25)="Total (all out, 26.5 overs)       129 " line(26)="Fall of wks: 1/36, 2/36, 3/38, 4/40, 5/46, 6/87, 7/97, 8/106, 9/129" line(27)="Bowling: Bracken 7-1-33-2, Tait 7-0-29-1, McGrath 8-0-33-2, Hogg 4.5-0-27-4" 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