The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(27) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*ZIMBABWE " line(1)="S. M’kinyeri       c Mashud b Mortaza        25" line(2)="B. Taylor        c Mortaza b Hossain        1" line(3)="C. C’bhabha        lbw Hasan        31" line(4)="H. M’kadza        st Mashud b Hasan        41" line(5)="S. Williams        lbw Rafique        61" line(6)="E. C’gumbura        st Mashud b Rafique        10" line(7)="K. Debengwa        not out        19" line(8)="G. Brent        lbw Mortaza        4" line(9)="P. Utseya        not out        4" line(10)="Extras (3b, 5lb, 11w, 2nb)       21" line(11)="Total (For 7 wkts in 50 ovs)       217" line(12)="Fall of wickets: 1/5, 2/54, 3/70, 4/146, 5/171, 6/188, 7/198" line(13)="Bowling: Mortaza 10-0-41-2, S. Hossain 10-1-51-1, Razzak 10-0-40-0, Rafique 10-2-34-2, Al Hasan 10-0-44-2" line(14)="*BANGLADESH " line(15)="S. Nafees        c Williams b C’bura        67" line(16)="M. Hossain        c Taylor b Utseya        54" line(17)="A. Ahmed        c&b Williams        12" line(18)="S. al Hasan        run out        36" line(19)="H. Bashar        not out        31" line(20)="Md Ashraful        not out        4" line(21)="Extras (12w, 2nb)        14" line(22)="Total (For 4 wkts in 42.4 ovs)        218" line(23)="Fall of wickets: 1/104, 2/126, 3/175, 4/198" line(24)="Bowling: Rainsford 6-0-31-0, Mahware 5-0-28-0, Brent 4-0-26-0, Utseya 10-0-39-1, Chigumbura 5-0-32-1, Williams 4-0-24-1, " line(25)="Debengwa 8.4-0-38-0" redim preserve line(26) 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