The Telegraph
 
 
ARCHIVES
Since 1st March, 1999
 
THE TELEGRAPH
 
 
Email This Page
SCORE CARD
<% dim line() redim line(15) dim dat1,dat2,dat3 dim txt dim reg,temp set reg=new regexp reg.global=true reg.IgnoreCase=true line(0)="*UTTAR PRADESH" line(1)="First innings" line(2)="R. Prakash       b Mughal       16" line(3)="S. Shukla       lbw Asif       1" line(4)="S. Raina       c Malik b Asif       5" line(5)="R. Shukla       c Shahzad b Ahmed       54" line(6)="P. Kumar       c&b Ahmed       2" line(7)="J. Yadav       c Nazir b Rehman       15" line(8)="R. Shamshad       batting       60" line(9)="P. Chawla       c Shahzad b Mughal       48" line(10)="A. Khan       batting       23" line(11)="Extras (19-b, 17-lb, 8-nb, 1-w)       45" line(12)="Total (for 7 wkts, in 90 ovs)       269" line(13)="Fall of wickets: 1/13, 2/23, 3/50, 4/53, 5/104, 6/121, 7/200 " line(14)="Bowling: Asif 6.4-2-8-2, Ahmed 26-7-48-2, Mughal 20.2-2-80-2, Yousuf 2-0-8-0, Rehman 24-5-66-1, Mazid 2-1-4-0, Malik 9-1-19-0" redim preserve line(15) 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