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)="*West Indies " line(1)="First innings " line(2)="C. Gayle        lbw Nazir        34 " line(3)="D. Ganga        c Y. Khan b Gul        3 " line(4)="R. Sarwan        c Y. Khan b Nazir        3 " line(5)="B. Lara        c Akmal b Gul        61 " line(6)="S. Chan’paul        lbw Nazir        5 " line(7)="D. Bravo        c Nazir b Kaneria        32 " line(8)="D. Ramdin        c Hafeez b Kaneria        12 D. Moh’d        c Akmal b Gul        35 " line(9)="J. Taylor        lbw Gul        8 " line(10)="F. Edwards        c Malik b Gul        1 " line(11)="C. Collymore        not out        2 " line(12)="Extras (lb-8, nb-2)        10 " line(13)="Total (all out in 56.1 ovs)        206" line(14)="Fall of wickets: 1/41, 2/41, 3/46, 4/52, 5/96, 6/122, 7/174, 8/202, 9/203 " line(15)="Bowling: Gul 15.1-2-65-5, Nazir 14-4-42-3, Razzaq 7-2-22-0, Kaneria 18-3-58-2, Malik 2-0-11-0 " line(16)=" " line(17)="*Pakistan " line(18)="First innings " line(19)="M. Hafeez        batting        11 " line(20)="I. Farhat        lbw Taylor        9 " line(21)="Y. Khan        batting        10 " line(22)="Extras (b-4, lb-1, w-4)        9 " line(23)="Total (for 1 wkt in 14.5 ovs)        39" line(24)="Fall of wicket: 1/16" line(25)="Bowling: Edwards 5-1-13-0, Taylor 7-2-11-1, Collymore 2.5-0-10-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