Dropdown - næste ID fra Access

Jeg er ikke helt sikker på hvad du mener, men måske noget i denne stil:

<form name="dinForm">
<select name="dinSelect" onChange="this.form.submit();">
  <option value="1">valg 1</option>
  <option value="2">valg 2</option>
  <option value="3">valg 3</option>
</select>
</form>

Eller er det selecten du ikke kan opbygge:

<select ....>
<%
set rs = conn.execute("select * from DinTabel")
do while not rs.eof
  response.write "<option value='"& rs("id") &"'">& rs("enTekst") &"</option>"
  rs.MoveNext
loop %>
</select>

Mon ikke det er som dit første eksempel .. men hvorn' får jeg den koblet sammen med Access basen.

Kan du lave en hurtig løsning!? (demo)

Du skal nok gøre brug af begge koder:

<%
dim ThisID
ThisID = request.form("dinSelect")
%>
<form name="dinForm">
<select name="dinSelect" onChange="this.form.submit();">
<%
'Lav select
set rs = conn.execute("select * from DinTabel")
do while not rs.eof
  if ThisID = "" then ThisID = rs("id")
  if ThisID = rs("id")&"" then
    response.write "<option value='"& rs("id") &"' selected">& rs("enTekst") &"</option>"
  else
    response.write "<option value='"& rs("id") &"'">& rs("enTekst") &"</option>"
  end if
  rs.MoveNext
loop %>
</select>
</form>
<%
'Udskriv valgte fra dropdown
set rs = conn.execute("select * from DinTabel where id="& ThisID)
response.write rs("Foto")
response.write rs("tekst")
%>

Ved du hvordan man connecter til en database gennem ASP???

øhhhhh .. jooo .. det er ikke der jeg er helt hjemme!
Med dit sidste eksempel blev det ikke mere logisk ;-))

Du har ikke mulighed for at "smide" mig en lille færdig løsning .. så kan det være 10'øren falder!!

Så kan jeg lige så godt lave det rigtigt :o)
Hvordan ser din database ud???

Den er meget simpel..
Felt 1: FOTO
Felt 2: TEKST

Er der ikke også et ID felt (autonummer)???

jo .. sorry!

Prøv med dette.
Du skal have tilrette navnet på databasefilen og navnet på tabellen:

<%
dim ThisID, conn, rs
ThisID = request.form("dinSelect")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("DinDatabase.mdb;")
%>

<!-- Lav en select box med data fra databasen -->
<form name="dinForm" method="post">
<select name="dinSelect" onChange="this.form.submit();">
<%
set rs = conn.execute("select * from DinTabel")
do while not rs.eof
  if ThisID = "" then ThisID = rs("id")
  if ThisID = rs("id")&"" then
    response.write "<option value='"& rs("id") &"' selected">& rs("Tekst") &"</option>"
  else
    response.write "<option value='"& rs("id") &"'">& rs("Tekst") &"</option>"
  end if
  rs.MoveNext
loop %>
</select>
</form>
<!-- Udskriv valgte fra dropdown -->
<%
set rs = conn.execute("select * from DinTabel where id="& ThisID)
response.write rs("Foto")
response.write rs("tekst")
%>