|
Sunday, November 12, 2006
|
Advertise with us
IN TODAY'S PAPER
Front Page
Nation
Calcutta
Bengal
Opinion
International
Business
Sports
CITY NEWSLINES
Calcutta
North East
Jamshedpur
WEEKLY FEATURES
Look
ARCHIVES
Since 1st March, 1999
THE TELEGRAPH
-
About Us
-
Advertise
-
Feedback
-
Contact Us
Front Page
>
Sport
> Scorecard
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 "
" & mid(line(i),2) & "
" 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 line(i) & "
" 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 dat1 response.write "
" & vbcrlf response.write "
" & vbcrlf response.write dat2 response.write "
" & vbcrlf response.write "
" & vbcrlf response.write dat3 response.write "
" & vbcrlf response.write "
" & vbcrlf end if next response.write "
" %>
Copyright © 2006 The Telegraph. All rights reserved.
Disclaimer
|
Privacy Policy
|
Contact Us