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)="*India " line(1)="First innings 241 " line(2)=" " line(3)="*West Indies " line(4)="First innings (overnight 318/6) " line(5)="C. Gayle        c Dravid b Kumble        72 " line(6)="D. Ganga        lbw Patel        9 " line(7)="R. Sarwan        lbw Kumble        58 " line(8)="B. Lara        c Yuvraj b Patel        18 " line(9)="S. Chan'paul        c Dhoni b Sehwag        24 " line(10)="D. Bravo        st Dhoni b Sehwag        68 " line(11)="D. Ramdin        c Dhoni b Patel        26 " line(12)="I. Bradshaw        c Yuvraj b V.R.V. Singh        33 " line(13)="D. Moh'med        not out        19 " line(14)="F. Edwards        c Dhoni b V.R.V. Singh        4 " line(15)="C. Collymore        lbw Kumble        0 " line(16)="Extras (b-2, lb-14, nb-22, w-2)        40 " line(17)="Total (all out in 98.3 ovs)        371" line(18)="Fall of wickets: 1/18, 2/137, 3/159, 4/182, 5/255, 6/282, 7/331, 8/359, 9/370" line(19)="Bowling: Sreesanth 16-1-96-0, Patel 28-7-80-3, V.R.V. Singh 15-1-61-2, Kumble 27.3-6-86-3, Sehwag 12-2-32-2 (nb-2) " line(20)=" " line(21)="*India " line(22)="Second innings " line(23)="W. Jaffer        batting        1 " line(24)="V. Sehwag        batting        14 " line(25)="Extras (lb-1)               1 " line(26)="Total (for no loss in 4 ovs)        16" line(27)="Bowling: Edwards 2-1-6-0, Collymore 2-0-9-0" line(28)="(At lunch, on Day III)" redim preserve line(29) 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