Имеется строка чисел разделенные запятой (точнее выводится из бвзы 1,2,15,35,60,20,11,...) 

нужно реализовать на VBscript выборку, тоесть выбрать только числа

a1=1
a2=2
a3=15
a4=35
..

Подскажите чайнику

sA="1,2,15,35,60,20,11"
temp = split(sA,",")
For Each word In temp
  v(i) = word
  i = i+1
  response.write(v(i)& "<br>")
Next

vlad275
Вот чтоя я спомощью split функции написал 
выдает ошибку Type mismatch: 'v' 

<% 
sA = rs_2("firms_shop")
temp = split(sA,",")
For Each word In temp
  v(i) = word
  i = i + 1
  ID_MAGAZIN = v(i)
Set RS_4 = Server.CreateObject("ADODB.Recordset")
sqlString = "SELECT * FROM magazin WHERE magazin_id LIKE'"&ID_MAGAZIN&"'"
RS_4.ActiveConnection = Con
Rs_4.Open sqlString,Con,1,3
Next
%>
 

Вобщем сделал проще немного не через функцию

<% 
i=1
n=1
e = len("1,2,15,35,60,20,11")%>
<% Do 
    n =instr(i,"1,2,15,35,60,20,11",",")
    IF n>0 Then
        f = n-i 
        else
         f = e-i+1 
         end if %>                        
        <% ID = mid("1,2,15,35,60,20,11",i,f)%>
        <p>ID=<% response.write(ID) %></p>
        <% i=n+1 %>
<% Loop While n > 0%>