The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(13) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*England " line(1)="First innings " line(2)="A. Strauss       c Dravid b Kumble       96" line(3)="A. Cook       lbw Sourav       36" line(4)="M. Vaughan       c Dhoni b Singh       79" line(5)="K. Pietersen       batting       34" line(6)="P. C’wood       lbw Kumble       0" line(7)="R. S’bottom       batting       0" line(8)="Extras (b-9, lb-6, w-6, nb-2)       23" line(9)="Total (four wkts in 80.3 overs)       268" line(10)="Fall of wickets: 1/76, 2/218, 3/252, 4/255" line(11)="Bowling: Zaheer 14-3-55-0, Sreesanth 18-7-56-0, RP 15.3-5-54-1, Sourav 9-3-24-1, Kumble 22-2-56-2, Tendulkar 2-0-8-0" line(12)="(At stumps, Day I)" redim preserve line(13) 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