The Telegraph - Calcutta : Sports

| Saturday, August 11, 2007 |

Advertise with us

IN TODAY'S PAPER

Front Page
Nation
Calcutta
Bengal
Opinion
International
Business
Sports
Entertainment

CITY NEWSLINES

Calcutta
North Bengal
North East
Guwahati
Jharkhand

ARCHIVES

Since 1st March, 1999

THE TELEGRAPH

-	About Us
-	Advertise
-	Feedback
-	Contact Us

SCORE CARD

<% dim line() redim line(23) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*India" line(1)="First innings (overnight: 316/4)" line(2)="S. Tendulkar c Strauss b Anderson 82" line(3)="V. Laxman c Prior b Tremlett 51" line(4)="M. S. Dhoni c Cook b Pietersen 92" line(5)="A. Kumble not out 110" line(6)="Z. Khan c Anderson b Panesar 11" line(7)="R. P. Singh c & b Anderson 11" line(8)="S. Sreesanth c Vaughan b Panesar 35" line(9)="Extras (b-33, lb-13, w-2, nb-6) 54" line(10)="Total (all out in 170 ovs) 664" line(11)="Fall of wickets: 1/62, 2/189, 3/199, 4/276, 5/354, 6/417, 7/508, 8/570, 9/591" line(12)="Bowling: Sidebottom 32-8-93-1, Anderson 40-5-182-4, Tremlett 40-6-132-1, Panesar 45-5-159-2, Collingwood 7-1-11-1, Pietersen 6-0-41-1" line(13)="*England" line(14)="First innings" line(15)="A. Strauss c Sreesanth b Zaheer 6" line(16)="A. Cook batting 12" line(17)="J. Anderson batting 5" line(18)="Extra (nb-1) 1" line(19)="Total (for 1 wkt in 8 ovs) 24" line(20)="Fall of wickets: 1/12" line(21)="Bowling: Zaheer 4-2-12-1, Sreesanth 3-0-11-0, Kumble 1-0-1-0" redim preserve line(22) 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 "

" %>