Hur gör man för att tomma fält i access inte kommer upp i en dropdownmeny, Som det är nu loopar den igenom dom åxå. Samt att om det finns kopior att inte det kommer upp mer än en. Har följande kod.
<%
Dim Connect, sql, Rst
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("DB/media.mdb")&";"

sql = "SELECT M_Bild FROM media ORDER BY M_Bild desc;"
Set Rst = connect.Execute(sql)
%>
<form name="form9" method="post" action="">
<p><select name="bild" onChange="javascript:ToTextBox();">
<option selected>Framsida.jpg</option>
<%
do until Rst.EOF
Response.Write "<option>" & Rst("M_Bild") & "</option>"
Rst.MoveNext
Loop

Rst.Close
Set Rst=Nothing

Connect.Close
Set Connect=Nothing
%>

Försök med:
<code>
<%
Dim Connect, sql, Rst
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("DB/media.mdb")&";"

sql = "SELECT DISTINCT M_Bild FROM media WHERE M_Bild IS NOT NULL ORDER BY M_Bild desc;"
Set Rst = connect.Execute(sql)
%>
<form name="form9" method="post" action="">
<p><select name="bild" onChange="javascript:ToTextBox();">
<option selected>Framsida.jpg</option>
<%
do until Rst.EOF
Response.Write "<option>" & Rst("M_Bild") & "</option>"
Rst.MoveNext
Loop

Rst.Close
Set Rst=Nothing

Connect.Close
Set Connect=Nothing
%>
</code>

Jag skulle ha gjort så här:

<code>
do until Rst.EOF
if Rst("M_Bild")<>"" then
Response.Write "<option>" & Rst("M_Bild") & "</option>"
end if
Rst.MoveNext
</code>
eller
<code>
do until Rst.EOF
if len(Rst("M_Bild"))>2 then
Response.Write "<option>" & Rst("M_Bild") & "</option>"
end if
Rst.MoveNext
</code>
Den senare visar inte posten om den inte är större än två tecken.

MVH Jesper

Tack för svaren båda 2, Men jag tog Andreas förslag. Jag skall ha dét andra i åtanke nästa gång jag behöver det.//Jocke

Andreas förslag är nog bättre nu när du ändå har formulerat en select.

MVH J