urgente, problemas con la funcion mid

Hola

La funcion mid trabaja de la siguiente manera:

mid(cadena,ent_pos_inicial,ent_q_caracters)

* cadena --> Una expresión de cadena no nula de preferencia
* ent_pos_inicial --> entero POSITIVO no mayor a la longitud de la cadena.
Indica la posición inicial de la extracción de texto.
* ent_q_caracters --> entero POSITIVO que sumado con la posicion inicial no
puede ser mayor que la longitud del texto. Indica la longitud del texto a
extraer de la cadena.

Generalmente enviar un parámetro que no corresponde con la descripción dada
provoca una falla en la funcion mid. Mandar un entero negativo o exceder la
longitud de la cadena inicial provoca errores.

Otro error que puede ocurrir es mandar parámetros que puedan ser
interpretados como texto cuando deben ser enteros, para ello sugiero
utilices la funcion "Cint(Variable)" en los parámetros del mid, p ej:

function v_cadena(cad)
Dim Temp
Temp = ""
'No se verifican las dos juntas porque si es null la validacion empty
falla
if not isnull(cad) then
if not isempty(cad) then
Temp = Trim(Cstr(cad))
End if
End if
v_cadena=Temp
End Function

cadena = v_cadena(cadena)
l = Cint(len(cadena))
if Cint(a) > l or Cint(a+b)>l then
Response.write "Error, la longitud no corresponde a parámetros válidos"
result = ""
Else
result = mid(cadena, cint(a), cint(b))
End if


Espero esto solucione tu problema.


"Francisco Birrer" escribió en el mensaje
news:

tengo un problema,,,

desarrrolle una pagina utilizando asp, con vbscript, esta tiene la función
mid incluida en el codigo. tuve que formatear el pc, y esta pagian la

trato

de utilizar en mi nuevo servidor (que es 2000) y se me cae la pagina, me
lanza error en la funcion mid.

Alguien conoce cual pued ser el problema??

GRacias