Rulleliste/listbox

<% @ Language="VBScript" %>
<% Option Explicit %>

<%

Dim Connection, dsn, sql, recordset

sql = "SELECT * FROM gade"

Set Connection = Server.CreateObject("ADODB.connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")

dsn="dsn=glemt"

connection.Open dsn

Recordset.Open sql, connection

Do while not recordset.eof %>
<select name="menu1">
    <option selected><%=recordset("navn") %></option>
  </select>
<%
recordset.movenext
Loop

recordset.Close
Set recordset = nothing
connection.Close
Set connection = Nothing

%>

Her får jeg 900 forskellige listboxe efter hinanden med en gade i hver. Jeg tror loopet skal fjernes - hvad siger du

ja prøv at fjerne det

det kører ikke helt...alle "navn" fra tabellen "gade" skal ind i én rulleliste. Ved at fjerne loopet kommer den første adresse kun ind i rullelisten - jeg ved sgu ikke hvordan jeg får alle "navn" derind.

tja..det hjælper vist ikke at spørge her.

<% @ Language="VBScript" %>
<% Option Explicit %>

<%

Dim Connection, dsn, sql, recordset

sql = "SELECT * FROM gade"

Set Connection = Server.CreateObject("ADODB.connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")

dsn="dsn=glemt"

connection.Open dsn

Recordset.Open sql, connection

Response.write("<select name=""menu1"">")

Do while not recordset.eof %>

    <option value="<%=recordset("navn")%>"><%=recordset("navn")%></option>

<%
recordset.movenext
Loop

Response.write("</select>")

recordset.Close
Set recordset = nothing
connection.Close
Set connection = Nothing

%>

Tak til Nozio - det kører perfekt....hvordan kan jeg give dig point ??

Lav et nyt spørgsmål:

Points til Nozio

og lav en refrence til dette spørgsmål - http://www.eksperten.dk/spm/318725