Código:
y si tengo n rs entonces hago lo mismo, no se si haya una manera de abrir la conexion una sola vez, esto es porque estoy en profile de sql y veo que se abre y se cierra la conexon n veces.Dim con Dim rs Dim rs1 Dim sql Dim sql1 set con = server.CreateObject("ADODB.Connection") con.Open "DRIVER=SQL Server;SERVER=Servidor;UID=user;PWD=user;APP=ReqIntegra;WSID=EHP135446;DATABASE=ReqIntegra" sql = "spRequerimientos 5,'' " sql1 = "spUsuarios 3" set rs = server.CreateObject "ADODB.Recordset") set rs1 = server.CreateObject "ADODB.Recordset") rs.Open sql, con rs1.open sql1, con 'se hace lo que se tiene que hacer rs.close set rs = nothing rs1.close set rs1 = nothing con.close set con = nothing
Espero haberme explicado
Gracias a todos :)