The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(33) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*Africa XI" line(1)="A.de.Villiers       lbw Shoaib       24" line(2)="H.Dippenaar       c Sehwag b Zaheer       14" line(3)="J.Kallis       c Nehra b Zaheer       4" line(4)="J.Ontong       lbw Zaheer       0" line(5)="A.Prince       not out       78" line(6)="S.Tikolo       c Sangakkara b Nehra       0" line(7)="M.Boucher       lbw Muralidharan       42" line(8)="S.Pollock       b Kumble       2" line(9)="N.Boje       c Sangakkara b Afridi       3" line(10)="J.Kemp(sub)       lbw Shoaib       4" line(11)="D.Steyn       run out       3" line(12)="Extras (lb-7, nb-6, w-11)       24" line(13)="Total (all out in 44.3 ovs)       198" line(14)="Fall of wickets: 1/39, 2/44, 3/44, 4/53, 5/57, 6/141, 7/152, 8/164, 9/174" line(15)="Bowling: Shoaib 7.3-0-40-2, Zaheer 8-0-37-3, Nehra 5-1-19-1, Razzaq 3-0-17-0, Kumble 10-0-39-1,Muralidharan 9-1-26-1, Afridi 2-0-13-1" line(16)="*Asia XI " line(17)="K. S'kara       b Kallis       35 " line(18)="V. Sehwag       c Boucher b Pollock       21 " line(19)="Y. Youhana        c Boucher b Pollock       1 " line(20)="M. Ashraful       c Tikolo b Pollock       0 " line(21)="I.Haq       c Dippenaar b Kemp       6 " line(22)="S. Afridi       c Boucher b Kallis       13 " line(23)="A. Razzaq       c Boucher b Boje       38 " line(24)="A. Kumble       lbw Kallis       24 " line(25)="Z. Khan       not out       20 " line(26)="S. Akhtar       c Ontong b Kemp         15 " line(27)="A. Nehra       b Steyn        1 " line(28)="Extra (lb-2 nb-4 w-16)         22 " line(29)="Total (all out, 48.1 overs)         196" line(30)="Fall of wickets: 1/50, 2/52, 3/52, 4/59, 5/89, 6/96, 7/152, 8/169, 9/193 " line(31)="Bowling:Pollock 10-1-32-3, Steyn 9.1-2-40-1,Kemp 9-0-40-2, Kallis10-2-42-3, Boje 10-1-40-1" 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