The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(35) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*SOUTH AFRICA " line(1)="First innings 205" line(2)="*AUSTRALIA " line(3)="First innings 308" line(4)="*SOUTH AFRICA " line(5)="Second innings" line(6)="A. De Villiers       c Gilchrist b Lee       7" line(7)="G. Smith       lbw Warne       16" line(8)="H. Gibbs       b lee       0" line(9)="J. Kallis       c Gilchrist b Clark       36" line(10)="A. Prince       c Gilchrist b Clark       27" line(11)="J. Rudolph       b Warne       41" line(12)="M. Boucher       c Langer b K'prowicz       2" line(13)="A. Hall       not out       34" line(14)="N. Boje       c&b Clark       14" line(15)="A. Nel       b Clark       4" line(16)="M. Ntini       c K'prowicz b Warne       6" line(17)="Extras (nb-7, w-3)       10" line(18)="Total (all out in 63.5 ovs)       197" line(19)="Fall of wickets: 4/75, 5/92, 6/108, 7/158, 8/179, 9/183" line(20)="Bowling: Lee 17-5-47-2, Kasprowicz 12-0-39-1, Clark 16-7-34-4, Warne 18.5-1-77-3" line(21)="*AUSTRALIA " line(22)="Second innings" line(23)="J. Langer       b Ntini       34" line(24)="M. Hayden       c Gibbs b Ntini       32" line(25)="R. Ponting       lbw Ntini       1" line(26)="D. Martyn       not out       9" line(27)="M. Hussey       not out       14" line(28)="Extras (lb-5)              5" line(29)="Total (for 3 wkts in 27.1 ovs)       95" line(30)="Fall of wickets: 1/71, 2/71, 3/75" line(31)="Bowling: Nel 7-1-25-0, Ntini 10-3-28-3, Hall 5-1-16-0, Boje 5.1-1-21-0" redim preserve line(32) 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