Mid ?

[Muzztein]

has lo siguiente y velo tu mismo

Código:

response.write (request.ServerVariables("PATH_TRANSLATED")) & "<br>"
response.write (LEN(request.ServerVariables("PATH_TRANSLATED"))-32)) & "<br>"
response.write "\reports\xtreme\" & rpttoview & ".rpt"

Función Mid
Devuelve un número de caracteres especificado de una cadena.

Mid(cadena, inicio[, longitud])

Argumentos
cadena

Expresión de cadena de la que se devuelven caracteres. Si cadena contiene Null, se devuelve Null.

inicio

Posición del carácter en cadena en la que comienza la parte que se va a tomar. Si inicio es mayor que el número de caracteres en cadena, Mid devuelve una cadena de longitud cero ("").

longitud

Número de caracteres que se va a devolver. Si se omite o si existen menos caracteres del número especificado por longitud en el texto (incluido el carácter en inicio), se devuelven todos los caracteres desde la posición de inicio hasta el final de la cadena.

Comentarios
Para determinar el número de caracteres en cadena, utilice la función Len.

El siguiente ejemplo utiliza la función Mid para devolver seis caracteres, a partir del cuarto carácter, de una cadena:

Dim MiVar
MiVar = Mid("¡Qué divertido es VB Script!", 6, 9) ' MiVar contiene "divertido".
Nota La función MidB se utiliza con datos de tipo byte contenidos en una cadena. En lugar de especificar el número de caracteres, los argumentos especifican el número de bytes.