populate dropdown from sproc

[Mike P]

I am trying to populate a dropdown from a stored procedure, but I am
getting the error 'Object doesn't support this property or method:
'Next' :

<!--#include file="include_c onnection.asp"-->
<!--#include file="adovbs.in c"-->

<%

set objConn = server.createob ject("adodb.con nection")
objConn.open strConnection

%>
<table>
<form>
<tr>
<td bgcolor="cccccc " align="center"> <nobr><b>Client </nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>BDD</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Status </nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Meetin g
Date</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Brie f
Received</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Respon se
Submitted</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Site Visit</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Decisi on
Due</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Sign Off
Status</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Sign Off
Month</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Go Live</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Activi ty
Type</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Descri ption</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Numb er of
Seats</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Commer cials</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Durati on</nobr></td>
<td bgcolor="cccccc " align="center"> <nobr><b>Commen ts</nobr></td>
</tr>
<tr>
<td bgcolor="cccccc " align="center"> <nobr>
<select name=CompanyNam es>
<%
set objCmd = server.CreateOb ject("ADODB.Com mand")
objCmd.ActiveCo nnection = strConnection
objCmd.CommandT ype = adCmdStoredProc
objCmd.CommandT ext = "GetCompanyName s"
set rsCompanyNames = objCmd.Execute

do while not rsCompanyNames. eof

'if a code has been selected, set it as selected

Response.Write "<option value=" &
rsCompanyNames( "companysitekey ") & " >"& rsCompanyNames( "name")
&"</option>"

rsCompanyNames. Next

loop

set rsCompanyNames = nothing
set objCmd = nothing
%>
</select>
</nobr></td>
<td>BDD</td>
<td></td>
</tr>
</form>
</table>

Can anybody help?

*** Sent via Developersdex http://www.developersdex.com ***

[Bob Barrows [MVP]]

Mike P wrote:

I am trying to populate a dropdown from a stored procedure, but I am
getting the error 'Object doesn't support this property or method:
'Next' :

Please don't multipost. This question was answered in the vbscrpt group you
posted to.

There is no method called Next. It's "MoveNext"
Your code would probably be more efficient if you used Getrows to move the
data into an array, allowing you to close your recordset and database
connection much sooner.

--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"