Avatar billede bremer Nybegynder
05. april 2006 - 10:55 Der er 5 kommentarer og
2 løsninger

Mulighed for at indsæte dynamiskenavne i en jumpmenu

Hej alle sammen,

Ville høre om I kunne hjælpe mig her! Mit ønske er at kunne indsætte <%=fonavn%> i en jumpmenu, så når der kommer flere "produkter" i min database skulle den gerne fremkomme herunder... hvad skal der til, for for at kunne lave dette?

Jeg har bruger en databasekode som ser sådan ud:
(Det er vel nok min strSQL som skal laves om!?)

                        <%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../database/database.mdb")
Conn.Open DSN

strSQL = "Select * From produkter Where navn"
Set rs = Conn.Execute(strSQL)

  fornavn = rs("fornavn")

Conn.Close
Set Conn = Nothing
%>


Sådan her ser min form kode ud hvor jeg gerne ville kunne indsæt <%=fornavn%> som vist herunder:

<form name="form1" id="form1">
<img src="images/9x9.gif" width="9" height="9" /><br />
<select name="select" class="tekst" onchange="MM_jumpMenu('parent',this,0)">
<option selected="selected">V&aelig;lg en produktnavn</option>
<option value="www.domænenavn.dk/underside.asp?id=<%=id%>"><%=fornavn%></option>
</select>
</form>
Avatar billede eagleeye Praktikant
05. april 2006 - 11:02 #1
Du skal havde bygget udskrivening af option ind i et loop som løber gennem recordsetet eks på koden:


<%                     
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../database/database.mdb")
Conn.Open DSN
%>

<form name="form1" id="form1">
<img src="images/9x9.gif" width="9" height="9" /><br />
<select name="select" class="tekst" onchange="MM_jumpMenu('parent',this,0)">
<option selected="selected">V&aelig;lg en produktnavn</option>
<% 'henter og udskriver alle options til select'en
strSQL = "Select * From produkter Where navn"
Set rs = Conn.Execute(strSQL)
do while not rs.EOF 
  fornavn = rs("fornavn")
  id = rs("id")
  %>
<option value="www.domænenavn.dk/underside.asp?id=<%=id%>"><%=fornavn%></option>
  <%
  rs.Movenext
loop
%>
</select>
</form>

<%
Conn.Close
Set Conn = Nothing
%>
Avatar billede mitbrugernavn Praktikant
05. april 2006 - 11:02 #2
er det sådan du mener

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../database/database.mdb")
Conn.Open DSN
%>
<form name="form1" id="form1">
<img src="images/9x9.gif" width="9" height="9" /><br />
<select name="select" class="tekst" onchange="MM_jumpMenu('parent',this,0)">
<option selected="selected">V&aelig;lg en produktnavn</option>

<%

strSQL = "Select * From produkter Where navn" ' du mangler noget her
Set rs = Conn.Execute(strSQL)
if not rs.eof then
do
id = rs("id")
  fornavn = rs("fornavn")
%>
<option value="www.domænenavn.dk/underside.asp?id=<%=id%>"><%=fornavn%></option>

<%
rs.movenext
loop while not rs.eof
set rs = nothing
end if

%>
</select>
</form>
<%
Conn.Close
Set Conn = Nothing
%>
Avatar billede mitbrugernavn Praktikant
05. april 2006 - 11:04 #3
;-))))  det var da vist med split sekunder i forskel
Avatar billede bremer Nybegynder
06. april 2006 - 10:55 #4
Hej,

Det virker så og sige fint, men det er KUN et produkt som fremkommer i min liste...
kan det være noget galt med denne her?
Det skulle jo gerne være alle de sammen...:)

strSQL = "Select * From produkter Where navn

Kh- Bremer
Avatar billede mitbrugernavn Praktikant
06. april 2006 - 10:59 #5
lige umiddelbart ser det ud til at du mangler noget her

strSQL = "Select * From produkter Where navn" ' du mangler noget her
Set rs = Conn.Execute(strSQL)

f.eks.

strSQL = "Select * From produkter Where navn <> '" & "" & "'"
Set rs = Conn.Execute(strSQL)
Avatar billede bremer Nybegynder
06. april 2006 - 11:37 #6
TAK for hjælpen!
Avatar billede mitbrugernavn Praktikant
07. april 2006 - 11:26 #7
selv tak og god weekend
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester