<%@language="VBscript"%>
<%dim my2array , my1array
seq = cstr("26-28")
my1array= Split(seq,",", -1, 1) ' u have my1array(0) and my1array(1)
nloop=0
response.write(seq &"
")
do
nloop=nloop+1
loop while not (Instr(1,seq,my1array(nloop-1),1))>(InstrRev(seq,"," ,-1,1))
'counters c and s
dim s , c , my3array(10)
dim seq_min(10), seq_max(10), other_seq(10)
c=0
s=0
For i=0 to nloop-1
if not(Instr(1,my1array(i),"-",1)=0) then
my2array=split(my1array(i),"-",-1,1)
seq_min(c)=my2array(0)
seq_max(c)=my2array(1)
c=c+1
else
other_seq(s)=my1array(i)
s=s+1
end if
next
response.write("c" &c &"
")
response.write("s" &s &"
")
for i=0 to c-1
response.write(seq_min(i) &" "& seq_max(i)&"
")
next
for i=0 to s-1
response.write(other_seq(i) &"
")
next
%>