The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(29) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*Mumbai" line(1)="A. Rahane       c Doru b Pankaj       27" line(2)="W. Jaffer       run out       21" line(3)="R. Powar       c Jhalani b Afroj       23" line(4)="V. Mane       st Jhalani b Sharma       86" line(5)="R. Sharma       c Gehlot b Kuldeep       48" line(6)="A. Muzumdar       run out       43" line(7)="A. Nair       not out       27" line(8)="Extras (lb-2, nb-4, wd-6)       12" line(9)="Total (in 50 ovs for 6 wkts)       287" line(10)="Fall of wickets: 1/36, 2/56, 3/96, 4/180, 5/233, 6/287" line(11)="Bowling: Pankaj 10-1-63-1, Gehlot 10-1-54-0, Afroj 7-0-45-1, Jain 1-0-14-0, Aslam 10-0-56-0, Kuldeep 10-0-39-1, Sharma 2-0-14-0" line(12)="*Rajasthan" line(13)="S. Joshi       c Samant b Salvi       4" line(14)="R. Sharma       c Powar b Kulkarni       31" line(15)="A. Jain       b Kulkarni       25" line(16)="R. Bishnoi       c Samant b Powar       2" line(17)="N. Doru       run out       6" line(18)="K. Singh       c (sub) b Powar       33" line(19)="A. Khan       c (sub) b Malvi       54" line(20)="R. Jhalani       b Kulkarni       14" line(21)="P. Singh       c Mazumdar b Salvi       23" line(22)="M. Aslam       b Salvi       5" line(23)="S. Gehlot       not out       0" line(24)="Extras (b-4, lb-2, w-12)       18" line(25)="Total (all out in 46.1 overs)       215" line(26)="Fall of wkts: 1/5, 2/59, 3/62, 4/70, 5/85, 6/145, 7/168, 8/200, 9/215" line(27)="Bowling: Salvi 8.1-0-41-2, Malvi 10-1-52-2, Kulkarni 8-0-15-3, Powar 10-0-53-2, Nayar 5-1-25-0, Sharma 5-0-23-0" redim preserve line(28) 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