The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(26) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*Zimbabwe " line(1)="First innings 279 " line(2)="*India " line(3)="First innings (overnight 325/3) " line(4)="V. Laxman        run out        140 " line(5)="S. Ganguly        c Duffin b Ewing        101 Y. Singh        b Dabengwa        12 " line(6)="D. Karthik        c Taibu b Blignaut        1 " line(7)="I. Pathan        c&b Dabengwa        52 " line(8)="A. Kumble        c Coventry b Da'ngwa        17 H. Singh        c Coventry b Mahwire        37 Z. Khan        not out        13 " line(9)="Extras (lb-7 nb-4 w-3)        14 " line(10)="Total (all out in 151.3 ovs)        554" line(11)="Fall of wickets: 3/228, 4/356, 5/372, 6/379, 7/476, 8/502, 9/522" line(12)="Bowling: Streak 26-3-91-0, Mahwire 25.3-4-92-4, Blignaut 19-2-96-1, Dabengwa 39-7-127-3, Ewing 42-5-141-1. " line(13)="*Zimbabwe " line(14)="Second innings " line(15)="B. Taylor        lbw Pathan        4 " line(16)="T. Duffin        b Zaheer        2 " line(17)="H. Ma'kadza        c Kumble b        Pathan 2 D. Ebrahim        b Pathan        1 " line(18)="T. Taibu        batting        30 " line(19)="H. Streak        lbw Pathan        0 " line(20)="C. Coventry        c Gambhir b Harbhajan        24 Extras (nb-2, w-2)        4 " line(21)="Total (for 6 wkts in 17.2 ovs)        67" line(22)="Fall of wickets: 1/4, 2/9, 3/9, 4/16, 5/18, 6/67" line(23)="Bowling: Pathan 8-3-35-4, Zaheer 6-1-17-1, Harbhajan 2.2-0-14-1, Kumble 1-0-1-0" redim preserve line(24) 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