Optionbox ( Select )

Har följande kod till en selectbox men den väljer aldrig ut nåt ur databasen och ger mig några alternativ :(
Någon som ser nåt fel?

<select name="CountryID" size="1">
<%
SQL = "SELECT CountryID,Country FROM Country ORDER by Country"
set rs = conn.execute(SQL)
do while not rs.eof %> <option value="<% = rs("CountryID") %>"
</option>
<%
rs.Movenext
loop
%>
</select>

får inte fram nåt alls ur det ut tabbelen Country :(

Har givetvis gjort databaskoppling också :
<%
On Error Resume Next
set conn = Server.CreateObject ("ADODB.Connection")
cnpath="DBQ=" & server.mappath("test.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
%>

Tack på förhand!

ta bort on error resume next och se om du får något felmeddelande.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

Gör så här istället.

<option><% = rs("CountryID") %></option>

------------------
MVH
Harback

[Redigerat av Harback den 01 aug 2001]

[Redigerat av Harback den 01 aug 2001]

Det verkar som du har glömt ett avslutande tecken.

<select name="CountryID" size="1">
<%
SQL = "SELECT CountryID,Country FROM Country ORDER by Country"
set rs = conn.execute(SQL)
do while not rs.eof %> <option value="<% = rs("CountryID") %>"[b]>[/b]
</option>
<%
rs.Movenext
loop
%>
</select>

------------------
http://www.tavlingar.se

Det kan inte vara så att du får med värdena men ser dom inte för att du inte satt nån text på dom?

Testa att skriva:

<option value="<% = rs("CountryID") %>"><% = rs("Country")%>

Då ser du ju utskriften med... :)

------------------
Du lever bara en gång och den gången är nu!

[Redigerat av Lina den 02 aug 2001]

Gör som Lina sa!
Men lägg till </Option> efter.
Alltså

<Option Value="<%= RecSet("MyColumn")%>"><%= RecSet("SamColumn")%></Option>

------------------
Den röda webkodarmasken är lös... Ahhrghhh

Fick det att funka tack så mycket allihop =)