från acessdb till en rullmeny

[Upsidedown]

Hej

Jag har ett problem, säkert jätte enkelt men jag ar kört fast. Jag vill nämligen kunna hämta upp data ifrån en tabell i access och få in den info i en rullmeny så att man ska kunna se vad det finns att välja på. Min tabell heter tblFilmer och fälten heter id, namn och beskrivning. Det jag vill ska hamna i rullmenyn är namn.

Jag vill göra detta in html och asp.

 

Jag behöver verkligen hjälp då jag blir helt galen anars.

Tack på förhand

 

[inlägget ändrat 2003-11-06 16:13:07 av Upsidedown]

[Helge]

Tjena,

 

Vad har du gjort hittils då?

 

enklare att förklara om man ser din kod...

 

/Helge

 

[Upsidedown]

jag har inte gjort så mycket men kan visa lite...

kan ju vara helt fel...

 

<% @LANGUAGE=VBScript %>

<% Option Explicit %>

<!-- #include file="adovbs.inc" -->

<%

Dim objRS

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.Open "SELECT * FROM tblFilmer ORDER BY namn Desc", objConn,adOpenKeyset

 

Do while not objRS.EOF

response.write "<option value=" & objRS("id") & ">" & objRS("namn") & "</option>"

objRS.MoveNext

Loop

%>

 

tacksam för all hjälp...

 

[Dahlgren]

<select>

sql = "SELECT * FROM tblFilmer"
SET oRS = oConn.Execute(sql)

While Not oRS.EOF

<option value="<%=oRS("id")%>"><%=oRS("namn")%></option>

oRS.MoveNext
Wend

</select>

 

Skrev den i all hast nu, kan vara lite fel.

 

Mvh

 

[Magnus Gladh]

Ser rätt ut, vad får du för fel? Du beskriver bara vad du vill, inte hur det ser ut.

 

Enligt din kod borde det fungera.

 

- Magnus

-----------------------------------------------------

Ropen skalla, BBB (eller BOSTREAM) åt alla!!!

 

[Upsidedown]

jag får inte upp någon rullmeny med filmerna i...

 

jag har gjort en html sida där det står en massa saker och sedan är det meningen att rullmenyn ska vara där med filmerna i men den rullmenyn finns inte... hur ska ag göra??

 

 

 

[Magnus Gladh]

??????

 

Du har en HTML-sida. En HTML-sida exekverar inte några ASP-koder, dessa sidor måste sluta på .asp.

 

Sedan så måste du skriva precis i koden var du vill ha din rillmeny, den läggs inte in själv.

 

Följande kod borde fungera:

 

MIN_FILM_SIDA.ASP

Välj film här:
<%
 Dim oConnection
 Dim oRecordSet
 Dim sSQL

 set oConnection = Server.CreateObject("ADODB.Connection")
 sSQL = "SELECT * FROM [Filmer] ORDER By [Namn] DESC"
 set oRecordSet = oConnection.Execute(sSQL)

 response.write "<select name="film">"
 Do until oRecordSet.EOF
   response.write "<option value='"& oRecordSet.Fields("ID").Value &"'">" & oRecordSet.Fields("Namn").Value
   oRecordSer.MoveNext
 Loop  
 Response.write "</select>"

 oRecordSet.Close : Set oRecordSet = nothing
 oConnection.Close : Set oConnection = nothing
%>

 

- Magnus

-----------------------------------------------------

Ropen skalla, BBB (eller BOSTREAM) åt alla!!!