Ver Mensaje Individual
  #7 (permalink)  
Antiguo 14/10/2004, 06:34
softDevelop
 
Fecha de Ingreso: octubre-2004
Ubicación: Cuba
Mensajes: 21
Antigüedad: 20 años, 7 meses
Puntos: 0
prueba con este codigo

strConection = "str de coneccion a la BD"
set cmdInsertOpinion = Server.CreateObject("ADODB.Command")
cmdInsertOpinion.ActiveConnection = strConection
cmdInsertOpinion.CommandText = "dbo.dOpinionesInsProc"
cmdInsertOpinion.CommandType = 4
cmdInsertOpinion.CommandTimeout = 0
cmdInsertOpinion.Prepared = true
cmdInsertOpinion.Parameters.Append cmdInsertOpinion.CreateParameter("@RETURN_VALUE", 3, 4)
cmdInsertOpinion.Parameters.Append cmdInsertOpinion.CreateParameter("@predesor", 3, 1,4,variable)
cmdInsertOpinion.Parameters.Append cmdInsertOpinion.CreateParameter("@texto", 200, 1,2000,variable)
cmdInsertOpinion.Parameters.Append cmdInsertOpinion.CreateParameter("@IpPC", 200, 1,16,variable)
cmdInsertOpinion.Parameters.Append cmdInsertOpinion.CreateParameter("@login", 200, 1,15,variable)
cmdInsertOpinion.Execute()

id = cmdInsertOpinion.Parameters.Item("@RETURN_VALUE"). Value

este codigo esta probado, creo que lo que no puedes es crear ese RecordSet al final si eso no devuelve una coleccion de datos
S.
Ombao