Errors- in populating a dropdown

[burningblue8]

The code I have got is the following and apart from staring at the screen for the past twenty minutes trying to figure this one out, I bet it is something simple:
All I am trying to do is populate a drop down box from a field in the db.



<font size=&quot;2&quot;><b><font size=&quot;2&quot; face=&quot;Verdana&quot;>Source <select id=source name=source>

<%
Set conn = server.CreateObject (&quot;ADODB.connection&quot
conn.Open Session(&quot;hfr_connectionstring&quot
Set rs = server.createobject (&quot;ADODB.recordset&quot
lssql = &quot;select source from booking&quot;

rs.open lssql, conn

Response.write rs.fields.count
while not rs.EOF    
Response.Write  &quot;<option value = &quot;& rs.fields(4).value & &quot; >&quot;
rs.movenext
wend

set rs = nothing
set conn = nothing

%>
</select>

the simple things are always the most annoying!!!

 

[FesterSXS]

Response.Write  &quot;<option value = &quot;& rs(&quot;source&quot;) & &quot; >&quot;

Tony

http://www.phoenix-paints.co.uk/portfolio