The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(20) 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 89 " line(2)="*Sri Lanka " line(3)="First innings 577/6 (dec.)" line(4)="*Bangladesh " line(5)="Second innings " line(6)="(overnight 3/0) " line(7)="J.Omar       lbw Malinga       62" line(8)="S.Nafees       c & b Muralitharan       38" line(9)="R.Saleh       c D Jídene b Dilshan       51" line(10)="H.Bashar       c H Jídene b Vaas       17" line(11)="M.Ashraful       c Vaas b Mítharan       37" line(12)="S.Al Hasan       batting       4" line(13)="K.Mashud       batting       0" line(14)="Extras (lb-8, w-1, nb-15)       24" line(15)="Total (five wkts, in 82.3 ovs)       233" line(16)="Fall of wickets: 1/86, 2/126, 3/160, 4/227, 5/231" line(17)="Bowling: Vaas 12-3-36-1, Malinga 14.3-2-68-1, Muralitharan 34-12-82-2, Fernando 15-5-28-0, Dilshan 7-3-11-1" redim preserve line(18) 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