11/10/2004, 15:06
|
 | | | Fecha de Ingreso: julio-2000 Ubicación: Mexico D.F.
Mensajes: 151
Antigüedad: 24 años, 9 meses Puntos: 0 | |
| ummmm no, porque lo que estoy haciendo es consultas a la base de datos, no actualizaciones. es algo asi.
Dim CXN
SET CXN = Server.CreateObject("ADODB.Connection")
CXN.connectionstring = MM_conIgnis_STRING
CXN.open
Dim cmdTTData__IdTT
cmdTTData__IdTT = "0"
If(IdTTReporte <> "") Then cmdTTData__IdTT = IdTTReporte
Set cmdTTData = Server.CreateObject("ADODB.Command")
cmdTTData.ActiveConnection = CXN
cmdTTData.CommandText = "dbo.sp_AURUM_GetTTData"
cmdTTData.Parameters.Append cmdTTData.CreateParameter("@RETURN_VALUE", 3, 4)
cmdTTData.Parameters.Append cmdTTData.CreateParameter("@IdTT", 3, 1,6,cmdTTData__IdTT)
cmdTTData.CommandType = 4
cmdTTData.CommandTimeout = 0
cmdTTData.Prepared = true
Set rsTT = cmdTTData.Execute
rsTT_numRows = 0
Set cmdCatalogoClas = Server.CreateObject("ADODB.Command")
cmdCatalogoClas.ActiveConnection = CXN
cmdCatalogoClas.CommandText = "dbo.sp_AURUM_CatalogoClasificaciones"
cmdCatalogoClas.CommandType = 4
cmdCatalogoClas.CommandTimeout = 0
cmdCatalogoClas.Prepared = true
cmdCatalogoClas.Parameters.Append cmdCatalogoClas.CreateParameter("@RETURN_VALUE", 3, 4)
Set rsCatalogoClas = cmdCatalogoClas.Execute <==== AQUI OCURRE ERROR
rsCatalogoClas_numRows = 0
__________________
En las manos de su manejador, la vida de Michael Jordan vale unos 20 millones, en las manos de Dios, cuanto crees que valdria tu vida? Entregasela y el hara de tu vida la mas valiosa del mundo entero. |