Porque mis scripts en asp al cambiar de servidor ya no funcionan?

[monik_74]

Tengo un programa que empiezo a hacer en asp, lo tenia instalado en un servidor que me dice mi hoster es windows.
Esta programado en asp simple y su base de datos esta en mysql.
De forma local no tengo problema, todo se visualiza correcto. el hecho es que en el servidor donde lo tenia instalado para que lo visualizaran mis colaboradores, funcionaba. Pero por problemas con el servidor, el mismo hoster lo cambio a otro servidor que me dice es windows (yo por ahi vi que era linux con soporte asp)
Y pues ahora no funcionan muchas cosas.
Lo que veo es algo simple: un arreglo en el que consulto tres datos, ahora ya no funciona. Solo lo hace si le consulta solo un dato, si pongo mas de uno, ya no jala.
Les pongo aqui el codigo para que me digan ustedes si es acaso mi codigo el que esta mal.
No es cuestion de conexion, ya que si me consulta los datos y lo mas extraño es que no me avisa de ningun error.

El arreglo donde no me muestra la info es el arreglo que aparece despues de conesion, donde dice Generamos arreglo de Porcentqajes de bloqueo.

Ojala alguien pudiera aconsejarme algo ... ya lo esta revisando el hoster pero una ayuda extra la agradeceria enormemente!

<!--#include file="includes/adovbs.inc"-->
<%
MyIDValue = 209
%>
<!--#include file = "Includes/Atrib.inc"-->

<%
if IDPermiso = 1 then
'Abrir conexion
%><!--#include file="includes/conexion.inc"--><%

'Generamos el arreglo de los Porcentajes de Bloqueo para desplegarlos en la pantalla
Dim arrPorBloqueo()
Dim arrPorcentaje()
Dim arrGdoServ()
Dim intContar
intContar = 0
'response.write("Hola Mundo!"&"<br><br>")
'Validamos si seleccionaron un solo almacén
strSqlPB = " Select PorcentajeBloqueo,GradoServicio,Clave FROM parametroserlang order by idParametros "
'response.write(strSqlPB&"<br>")
'response.flush
rs.Open strSqlPB, connBD, adOpenForwardOnly, adLockReadOnly
if not rs.eof then
While not rs.eof
intContar = intContar + 1
'response.write(intContar&"<br>")
'response.flush
ReDim Preserve arrPorBloqueo(intContar)
ReDim Preserve arrPorcentaje(intContar)
ReDim Preserve arrGdoServ(intContar)

arrPorcentaje(intContar) = rs.Fields("PorcentajeBloqueo")
arrGdoServ(intContar) = rs.Fields("GradoServicio")
arrPorBloqueo(intContar) = rs.Fields("Clave")
rs.movenext
Wend
end if
rs.close

'Creamos un arreglo para los horarios
Dim arrHorario(24)
arrHorario(1) = "01:00"
arrHorario(2) = "02:00"
arrHorario(3) = "03:00"
arrHorario(4) = "04:00"
arrHorario(5) = "05:00"
arrHorario(6) = "06:00"
arrHorario(7) = "07:00"
arrHorario(8) = "08:00"
arrHorario(9) = "09:00"
arrHorario(10) = "10:00"
arrHorario(11) = "11:00"
arrHorario(12) = "12:00"
arrHorario(13) = "13:00"
arrHorario(14) = "14:00"
arrHorario(15) = "15:00"
arrHorario(16) = "16:00"
arrHorario(17) = "17:00"
arrHorario(18) = "18:00"
arrHorario(19) = "19:00"
arrHorario(20) = "20:00"
arrHorario(21) = "21:00"
arrHorario(22) = "22:00"
arrHorario(23) = "23:00"
arrHorario(24) = "00:00"

Dim arrSiNo(2)
arrSiNo(1) = "SI"
arrSiNo(2) = "NO"
Dim strUltimaAct
strUltimaAct = "SI"


'Creamos el arreglo de los clientes
Dim arrClientes()
Dim intCuentaClientes
intCuentaClientes = 0
'Validamos si seleccionaron un solo almacén
strSql = "SELECT RazonSocial FROM clientes where Clasificacion='Activo' order by RazonSocial"
rs.Open strSQL, connBD, adOpenForwardOnly, adLockReadOnly
if not rs.eof then
While not rs.eof
intCuentaClientes = intCuentaClientes + 1
ReDim Preserve arrClientes(intCuentaClientes)

arrClientes(intCuentaClientes) = rs.Fields("RazonSocial")

rs.movenext
Wend
end if
rs.close

%>

+++Estas son las lineas donde trato de mostrar la info y solo me despliega la del cliente que consulta solo un campo, si quisiera poner otro mas, se queda en blanco el combox.

<tr>
<td width="36%">&nbsp;CLIENTE : </td>
<td width="64%"><span id="spryselect2">
<select name="Cliente" id="Cliente">
<option value=""></option>
<%For i=1 to intCuentaClientes%>
<option value="<%=arrClientes(i)%>"><%=arrClientes(i)%></option>
<%next%>
</select><br><span class="selectRequiredMsg">Seleccione un elemento.</span></span>
</td>
</tr>

<tr>
<td>Porcentaje de Bloqueo</td>
<td><span id="spryselect1">
<select name="PorcentajeBloq" id="PorcentajeBloq" class="LetrasNormales2">
<option value="0"></option>
<%For j=1 to intContar%>
<option value="<%=arrPorBloqueo(j)%>"><%=arrPorcentaje(j)% >%&nbsp;-&nbsp;<%=arrGdoServ(j)%></option>
<%next%>
</select>
<br><span class="selectRequiredMsg">Seleccione un elemento.</span></span>
</td>
</tr>