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)="*Bangladesh" line(1)="First innings 104" line(2)="*England" line(3)="First innings" line(4)="M. T'thick       c Ashraful b Ahmed       151" line(5)="A. Strauss       lbw Mortaza       8" line(6)="M. Vaughan       c Mashud b Mortaza       44" line(7)="I. Bell       not out       162" line(8)="G. Thorpe       not out       70" line(9)="Extras (nb-3, w-2, b-1, lb-6)       12" line(10)="Total (for 3 wkts dec, 78 ovs)       447" line(11)="Fall of wickets: 1/18, 2/105, 3/260" line(12)="Bowling: Mortaza 22-4-95-2, Baisya 15-2-80-0, Rafique 18-0-107-0, Munir 15-1-102-0, Ahmed 8-0-56-1" line(13)="*BANGLADESH" line(14)="Second innings" line(15)="J. Omar       batting       60" line(16)="N. Iqbal       c G.Jones b Flintoff       15" line(17)="R. Saleh       c Strauss b Flintoff       7" line(18)="M. Ashraful       c Hoggard b Batty       12" line(19)="H. Bashar       batting        6" line(20)="Extras (nb-6, w-1, lb-1)       8" line(21)="Total (for 3 wkts dec, 31 ovs)       108" line(22)="Fall of wickets: 1/50, 2/75, 3/101" line(23)="Bowling: Hoggard 6-1-28-0, Harmison 6-1-24-0, S. Jones 4-1-14-0, Flintoff 7-1-24-2, Batty 8-2-17-1" line(24)="(Tea, Day II)" 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