Application OK Application(0) Falla

Por favor si alguien me puede decir que he de cambiar en el codigo
siguiente
se lo agradeceré de verdad. Se el Problema, pero no le encuentro solucion,
ni
explicacion (A tener en cuenta que soy un aficionado)

Tal y como está el codigo aqui y la base de datos
http://www.geocities.com/jorge1644/MyDataBase.mdb FUNCIONA. Pero si cambio
el
codigo de producto en la tabla Products (Por ejemplo Product_A a
Product_ABCD) ya no funciona.

Aqui esta el codigo:
<%
Application.Contents.RemoveAll()
Server.ScriptTimeOut = 12000

set Connec = server.createobject("adodb.connection")
Connec.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA
SOURCE=C:\MyDataBase.mdb"

set rs = server.createobject("adodb.recordset")
ssqlrs = ("select * from Products")
rs.open ssqlrs,Connec,3,3
do while not rs.eof

Application.Lock
Application(""&rs("ProductCode")&""&"DescripcionLineaEntera") > rs("ProductDescription") & " - " & rs("PriceFrom1Units")& " - " &
rs("PriceFrom5Units") & Chr(13)
Application.Unlock

Redim parametros(4)
parametros(0) = rs("ProductDescription")
parametros(1) = rs("PriceFrom1Units")
parametros(2) = rs("PriceFrom5Units")
parametros(3) = rs("PriceFrom10Units")
parametros(4) = rs("PriceFrom20Units")

Application.Lock
Application(""&rs("ProductCode")&"") = parametros
Application.UnLock

rs.movenext
loop
rs.close
%>

<table border=1>
<%
set rs = server.createobject("adodb.recordset")
ssqlrs = ("select * from ProductsByCustomers order by CustomerCode")
rs.open ssqlrs,Connec,3,3
do while not rs.eof
%>
<tr>
<td><%=rs("CustomerCode")%></td>
<td><%=rs("ProductCode")%></td>
<td><% Response.write
Application(rs("ProductCode")&"DescripcionLineaEntera") %></td>
<td><% Response.write Application(""&rs("ProductCode")&"")(0) %></td>
</tr>
<%
rs.movenext
loop
rs.close
Connec.Close
Set RS = Nothing
Set Connec = Nothing
%>
</table>

Sería bueno que dijeras donde se genera el error.

Cambiando que cosa, y donde.

Matías Iacono
Microsoft MVP ASP/ASP.net
DCE3 v.2003 - DCE2 v.2005
Coordinador de evento Comunidad MSDN Bolivia
"jorge1644" escribió en el mensaje
news:
> Por favor si alguien me puede decir que he de cambiar en el codigo
> siguiente
> se lo agradeceré de verdad. Se el Problema, pero no le encuentro solucion,
> ni
> explicacion (A tener en cuenta que soy un aficionado)
>
> Tal y como está el codigo aqui y la base de datos
> http://www.geocities.com/jorge1644/MyDataBase.mdb FUNCIONA. Pero si cambio
> el
> codigo de producto en la tabla Products (Por ejemplo Product_A a
> Product_ABCD) ya no funciona.
>
> Aqui esta el codigo:
> <%
> Application.Contents.RemoveAll()
> Server.ScriptTimeOut = 12000
>
> set Connec = server.createobject("adodb.connection")
> Connec.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA
> SOURCE=C:\MyDataBase.mdb"
>
> set rs = server.createobject("adodb.recordset")
> ssqlrs = ("select * from Products")
> rs.open ssqlrs,Connec,3,3
> do while not rs.eof
>
> Application.Lock
> Application(""&rs("ProductCode")&""&"DescripcionLineaEntera") > > rs("ProductDescription") & " - " & rs("PriceFrom1Units")& " - " &
> rs("PriceFrom5Units") & Chr(13)
> Application.Unlock
>
> Redim parametros(4)
> parametros(0) = rs("ProductDescription")
> parametros(1) = rs("PriceFrom1Units")
> parametros(2) = rs("PriceFrom5Units")
> parametros(3) = rs("PriceFrom10Units")
> parametros(4) = rs("PriceFrom20Units")
>
> Application.Lock
> Application(""&rs("ProductCode")&"") = parametros
> Application.UnLock
>
> rs.movenext
> loop
> rs.close
> %>
>
> <table border=1>
> <%
> set rs = server.createobject("adodb.recordset")
> ssqlrs = ("select * from ProductsByCustomers order by CustomerCode")
> rs.open ssqlrs,Connec,3,3
> do while not rs.eof
> %>
> <tr>
> <td><%=rs("CustomerCode")%></td>
> <td><%=rs("ProductCode")%></td>
> <td><% Response.write
> Application(rs("ProductCode")&"DescripcionLineaEntera") %></td>
> <td><% Response.write Application(""&rs("ProductCode")&"")(0) %></td>
> </tr>
> <%
> rs.movenext
> loop
> rs.close
> Connec.Close
> Set RS = Nothing
> Set Connec = Nothing
> %>
> </table>