Aplicacion error

Hola Matias y gracias por tu ayuda!

Esta es la tabla Products
ProductCode ProductDescription PriceFrom1Units PriceFrom5Units PriceFrom10Units PriceFrom20Units
zanahoriapolvo Carrot Powder 1 0.99 0.95 .90
Z1016700 Sacarin 1.2 1.15 1.1 1.05

Este es el codigo completo

<%
Application.Contents.RemoveAll()
Server.ScriptTimeOut = 12000

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

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

parametrosP = rs("ProductCode")
Dim parametrosP(2)
parametrosP(0) = rs("ProductDescription")
parametrosP(1) = rs("PriceFrom5Units")
parametrosP(2) = rs("PriceFrom10Units")

Application.Lock
Application(rs("ProductCode")) = parametrosP
Application.UnLock

Apliparam = Application(rs("ProductCode"))

Response.write Apliparam(0) & "<br>"
Response.write Apliparam(1) & "<br>"
Response.write Apliparam(2) & "<br>"

rs.movenext
loop
rs.close
%>



"Matías Iacono" escribió:

Mostrar la cita

Estas haciendo algo mas con ese vector?

La declaración parece correcta. Puede que el error este en otra parte.
Podrias colocar un poco mas de tu codigo?

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:
> Hola
>
> Intento hacer guardar los datos de una base de datos en la Memoria pero me
> dá un error...
>
> Tipo de error:
> Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
> No coinciden los tipos
>
> Exactamente falla donde en la linea "Dim parametrosP(2)"
> Alguien me puede decir que he de cambiar?
>
> Gracias !
>
>
> set rs = server.createobject("adodb.recordset")
> ssqlrs = ("select * from Products")
> rs.open ssqlrs,Connec,3,3
> do while not rs.eof
>
> parametrosP = rs("ProductCode")
> Dim parametrosP(2)
> parametrosP(0) = rs("ProductDescription")
> parametrosP(1) = rs("PriceFrom5Units")
> parametrosP(2) = rs("PriceFrom10Units")
>
> Application.Lock
> Application(rs("ProductCode")) = parametrosP
> Application.UnLock
>
> Apliparam = Application(rs("ProductCode"))
>
> Response.write Apliparam(0) & "<br>"
> Response.write Apliparam(1) & "<br>"
> Response.write Apliparam(2) & "<br>"
>
> rs.movenext
> loop
> rs.close