Porqué algo tan sencillo no me funciona???

zhukov
11 de Mayo del 2004
<%
dim i,a,nom
nom=cstr(rs("imaRuta"))
response.Write(nom)
For i=0 to Len(nom)-4
a=a+nom(i)
next
response.Write(a)
%>

Me devuelve el siguiente error:
Error de Microsoft VBScript en tiempo de ejecución error '800a000d'

No coinciden los tipos

zhukov
11 de Mayo del 2004
Comoo nadie me responde.... lo hago conmigo mismo xDDD es asi....
<%
dim i
dim nom
nom=split(rs("imaRuta"),".jpg")
for i=0 to ubound(nom)
response.Write(nom(i))
next
%>