Problema con ASP y BD (al cambiar de servidor)

[laguna2k]

Nav_Bar_BD lo que hace es imprimir la barra de navegacion basandose en los parametros que le pasa la correspondiente página y los valores de las variables de aplicacion almacenadas en GLOBAL.ASA (archivo al que ahora tampoco puedo acceder por que no me han dado los privilegios suficientes :(

Parametros:
menu -> Cadena de caracteres con los nombres de las variables de aplicacion y el link a la pagina desde el path base.
text -> texto que se puede añadir al final de sin que apunte a ninguna pagina.

Sub Nav_Bar_BD(menu,text)

dim texto ' Letra en tratamiento
dim num_letras ' Longitud de la cadena
dim pack ' Conjunto TEXTO & NOMBRE_LINK

' Obtener longitud de la cadena
num_letras = len(menu)

' Para cada letra obtener el texto y link correspondiente
For i = 0 To (num_letras-1)
' Obtener letra por letra
texto = Mid(menu,i+1,1)

' Omitir imagen antes del primer texto
if (i <> 0) then
response.write "<span class='divise'><img src='"& Application("Servidor") & "images/arrow.gif' border='0' width='7' height='13' align='bottom' />&nbsp;</span>"
else
end if
' Las componentes se separan
pack = split( Cstr(Application(texto)),"&")

response.write "<a href='"& Application("Servidor") & pack(1) & "' class='lien'>"
response.write "&nbsp;&nbsp;" & pack(0) & "</a>&nbsp;"

Next
' Ignoramos el segundo parametro cuando es vacio
if (text<>"") then
response.write "<span class='divise'><img src='"& Application("Servidor") & "images/arrow.gif' border='0' width='7' height='13' align='bottom' />&nbsp;</span>" & "<a href='#' class='lien'>"
response.write text & "</a>&nbsp;"
else

end if

end Sub

PD: en teoria la función está bien, antes del cambio de servidor todo funcionaba a las mil maravillas

Gracias.

Saludos