ADODB.Recordset error '800a0e78' 
   Operation is not allowed when the object is closed. 

Dim cn,rs,cmd 
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=test1;Persist Security Info=True;User ID=admin10;Initial Catalog=TestDB;Data Source=TestServer"
cn.ConnectionTimeout =  15 
cn.Open 


Set cmd = Server.CreateObject("ADODB.Command") 
cmd.ActiveConnection = cn 
Cmd.CommandText = "EXEC GetRepCount '','',1,1" 

 
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.ActiveConnection = cn 
Set rs=cmd.Execute()



%><table CellPadding= 1  CellSpacing= 1  border= 1 > 
<tr><td><b>Number</b></td><td><b>Marka</b></td><td><b>YearModel</b></td></tr> 
<% 

do while not rs.eof 
%><tr><td><%=rs("InCount")%></td><td><%=rs("OutCount")%></td><td><%=rs("IDCar")%></td></tr> 
<% 
rs.movenext 
loop