
24/05/2007, 13:16
|
| | Fecha de Ingreso: noviembre-2004
Mensajes: 371
Antigüedad: 20 años, 4 meses Puntos: 0 | |
Re: no deja realizar un split... esa es la funcion que se llama por el codigo asp
Function fncGeneraMatriz(byVal sqlAction, byRef objCon)
dim RS
set RS = objCon.Execute(sqlAction)
if Err.number <> 0 then
Response.Write "Error de Matriz: "&objCon.Errors(0).NativeError&"<br>"
objCon.Errors.clear()
else
dim matriz, i
if not RS.BOF and not RS.EOF then
do while not RS.EOF
matriz= matriz &"["
for i=0 to RS.Fields.Count-1
if i < RS.Fields.Count-1 then
matriz = matriz & "'"&RS.Fields(i)&"',"
else
matriz = matriz & "'"&RS.Fields(i)&"'"
end if
next
RS.MoveNext()
if not RS.EOF then
matriz = matriz & "],"
else
matriz = matriz & "]"
end if
loop
fncGeneraMatriz = matriz
else
matriz = "[1,1,1]"
end if
end if
RS.Close()
set RS = nothing
end Function
los demas son solo variables con datos comunes como codigos y ese tipo de datos...
espero quede mas claro ahora... |