Problemi con SQL

[WSIWebMaster]

Scusate, ho un problema.

<%

Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "sqloledb"
ProvStr = "server=xxx.xxx.xxx.xxx;uid=xx;pwd=xxxx;database=xxx"

cn.Open ProvStr
Set Cmd=Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = cn
Cmd.CommandType = 1
   Cmd.CommandText = "SELECT Centers.Name, Consultants.Cognome, Consultants.Nome, BONIND.MONTH, BONIND.YEAR, BONIND.BONDIR, BONIND.MATDID, BONIND.RIMBORSI FROM dbo.BONIND INNER JOIN dbo.Centers ON dbo.BONIND.REGIVA = dbo.Centers.Regiva INNER JOIN dbo.Consultants ON dbo.BONIND.CONS = dbo.Consultants.Iniziali AND dbo.BONIND.REGIVA = dbo.Consultants.Regiva"
	Cmd.execute
%>

Questo è giusto...

  <%
Do While Not cn.EOF

%>
  <form name="statechange" method="post" action="file:///D|/SitiWeb/WallStreetIt/update.asp">
    <tr bgcolor="#EEEEEE">
      <td width="9%"><div align="center" class="testobox"><%=cn("regiva")%></div></td>
      <td width="9%"><div align="center" class="testobox"><%=cn("cons")%></div></td>
      <td width="13%"><div align="center" class="testobox"><%=cn("month")%></div></td>
      <td width="11%"><div align="center" class="testobox"><%=cn("year")%></div></td>
      <td width="3%"><div align="center" class="testobox"><%=cn("bondir")%></div></td>
      <td width="8%"><div align="center" class="testobox"><%=cn("matdid")%></div></td>
      <td width="14%"><div align="center" class="testobox"><%=cn("rimborsi")%></div></td>
    </tr>
  </form>
<%
cn.MoveNext 
Loop
%>

In questo punto invece ci sono errori. Mi dice,

ADODB.Connection error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another

E cita la riga 65, che è

Do While Not cn.EOF

Cosa succede?

[Sypher]

cn è la connessione...tu di devi creare un recordset appoggiarci i dati della select e ciclare su quello
edit: ho letto adesso quel cmd se quello è un recordset(nn l'ho mai usato così ) cicla su quello

[Sypher]

<%

Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "sqloledb"
ProvStr = "server=xxx.xxx.xxx.xxx;uid=xx;pwd=xxxx;database=xxx"

cn.Open ProvStr
Set Rcs=Server.CreateObject("ADODB.Recordset") 
sql = "SELECT Centers.Name, Consultants.Cognome, Consultants.Nome, BONIND.MONTH, BONIND.YEAR, BONIND.BONDIR, BONIND.MATDID, BONIND.RIMBORSI FROM dbo.BONIND INNER JOIN dbo.Centers ON dbo.BONIND.REGIVA = dbo.Centers.Regiva INNER JOIN dbo.Consultants ON dbo.BONIND.CONS = dbo.Consultants.Iniziali AND dbo.BONIND.REGIVA = dbo.Consultants.Regiva"
Rcs.Open sql,cn 

%>

Questo è giusto...

  <%
Do While Not Rcs.EOF

%>
  <form name="statechange" method="post" action="file:///D|/SitiWeb/WallStreetIt/update.asp">
    <tr bgcolor="#EEEEEE">
      <td width="9%"><div align="center" class="testobox"><%=Rcs("regiva")%></div></td>
      <td width="9%"><div align="center" class="testobox"><%=Rcs("cons")%></div></td>
      <td width="13%"><div align="center" class="testobox"><%=Rcs("month")%></div></td>
      <td width="11%"><div align="center" class="testobox"><%=Rcs("year")%></div></td>
      <td width="3%"><div align="center" class="testobox"><%=Rcs("bondir")%></div></td>
      <td width="8%"><div align="center" class="testobox"><%=Rcs("matdid")%></div></td>
      <td width="14%"><div align="center" class="testobox"><%=Rcs("rimborsi")%></div></td>
    </tr>
  </form>
<%
Rcs.MoveNext   
Loop
%>