Hurtige point.....

select kategori.tekst,produkter.tekst,produkter.varenummer from kategori inner join produkter on kategori.kategori = produkter.kategori order by kategori.kategori

ehh..???

:o)

-Anders

og så skifter du bare overskrift, hver gang kategori.tekst ændre sig i dit recordset.

Et lille eksempel er vel på sin plads..??

_Andes

set rs= cn.execute(\"select kategori.tekst as overskrift,produkter.tekst,produkter.varenr from kategori inner join produkter on kategori.kategori = produkter.kategori order by kategori.kategori \")
dim overskrift

do while not rs.eof
  if rs(\"overskrift\") <> overskrift then
    overskrift=rs(\"overskrift\")
    response.write \"<b>\" & overskrift & \"</b><br>\"
  end if
  response.write rs(\"tekst\") & \" - \" rs(\"varenr\") & \"<br>\"
  rs.movenext
loop

<%
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

set rs= Con.execute(\"select kategori.tekst as overskrift,produkter.tekst,produkter.varenr from kategori inner join produkter on kategori.kategori = produkter.kategori order by kategori.kategori \")
dim overskrift

do while not rs.eof
  if rs(\"overskrift\") <> overskrift then
    overskrift=rs(\"overskrift\")
    response.write \"<b>\" & overskrift & \"</b><br>\"
  end if
  response.write rs(\"tekst\") & \" - \"& rs(\"varenr\") & \"<br>\"
  rs.movenext
loop
%>


Den giver  en uspecificeret fejl...

i databaseen, eller i scriptet?

i scriptet....

Det virker hvis jeg går til adressefeltet og trykker enter...  men går ned hvis jeg opdatere...

adressefeltet?

opdaterer?

Hvis jeg går til browserens adressefelt og trykker enter er den go.. hvis jeg trykker F5 eller opdater i browseren er den skidt...

skriv fejl meddelelsen

Fejltype:
Provider (0x80004005)
Uspecificeret fejl
/area99/samlselv/Default.asp, line 4

det skal fungere lidt ala det her : http://www.midtdata.dk/asp/bestil/pcer.asp

Det tyder mere på din forbindelse til databasen

altså... alt underinfo skal komme i en drop-box.......

_Anders

Kan du ikke lave det..??

Efter en genstart virker det...

men det gør det her ikke..

<%
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

set rs= Con.execute(\"select kategori.tekst as overskrift,produkter.tekst,produkter.varenr from kategori inner join produkter on kategori.kategori = produkter.kategori order by kategori.kategori \")
dim overskrift

do while not rs.eof
  if rs(\"overskrift\") <> overskrift then
    overskrift=rs(\"overskrift\")
    response.write \"<b>\" & overskrift & \"</b> : \"

  end if
  response.write \"<select name=\'\" & overskrift & \"\'>\"
  response.write \"<option value=\'\"& rs(\"tekst\") & \"\'>\"& rs(\"tekst\") & \"</option>\"
  rs.movenext

loop
response.write \"</select>\"
%>


den vil ikke helt liste dem i selects..

-Anders

prøv nu
<%
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

set rs= Con.execute(\"select kategori.tekst as overskrift,produkter.tekst,produkter.varenr from kategori inner join produkter on kategori.kategori = produkter.kategori order by kategori.kategori \")
dim overskrift

do while not rs.eof
  if rs(\"overskrift\") <> overskrift then
    response.write \"<b>\" & rs(\"overskrift\") & \"</b> : \"
if overskrift<>\"\" then
response.write \"</select>\"
end if   
overskrift=rs(\"overskrift\")

response.write \"<select name=\'\" & overskrift & \"\'>\"

  end if
    response.write \"<option value=\'\"& rs(\"tekst\") & \"\'>\"& rs(\"tekst\") & \"</option>\"
  rs.movenext

loop
response.write \"</select>\"
%>

Har selv lavet en :

<%
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

Sql = \"SELECT * FROM kategori\"
Set rs =  Con.Execute(Sql)
Do While Not rs.EOF

response.write rs(\"tekst\") & \":\"
response.write \"<select name=\'\"&rs(\"kategori\")&\"\'>\"

Set Con2 = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
Con2.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

Sql = \"SELECT * FROM produkter Where kategori =\"&  rs(\"kategori\")
Set rs2 =  Con.Execute(Sql)
Do While Not rs2.EOF %>
<option value=\"<%=rs2(\"tekst\")%>\"><%=rs2(\"tekst\")%></option>
<%
rs2.MoveNext
Loop
set rs2 = nothing
response.write \"</select><br>\"
rs.MoveNext
Loop
set rs = nothing
%>


-Anders

PS: Du får 30 for ulejligheden...

_Anders

skumle, nærrige person!

Din løsning virker jo ikke... :o)

Det gjorde den da! Desuden lavede jeg mere end du bad om i spørgsmålet. (jeg vidste ikke at der skulle være select boxe).

Det kan da ikke være mit problem at du ikke kan finde ud af at bygge videre på mit script. Jeg gav et svar på spørsmålet. At du ikke kan finde ud af at formulere dine spørgsmål kan ikke være mit problem. eller at du ikke kan asp eller html. Så burde du måske have købt en bog og læst om det.