Udskrivning fra acces database i en form select boks

Du kan lave et loop, eller i to loop et til hver select box, et eks med et loop:

<%
do while not krs.EOF
  icqOption = icqOption & "<option value=""" & KRS("icq") & """>" & KRS("icq") & "</option>"
  navnOption = navnOption & "<option value=""" & KRS("navn") & """>" & KRS("navn") & "</option>"
  KRS.Movenext
loop
%>
<select name="icq" multible><%=icqOption%></select>
<select name="navn" multible><%=navnOption%></select>

hmm hvor skal jeg angive icqOption og navnOption variablerne?

evt lige før loopet:

<%
dim icqOption, navnOption
icqOption=""
navnOption=""
do while not krs.EOF
  icqOption = icqOption & "<option value=""" & KRS("icq") & """>" & KRS("icq") & "</option>"
  navnOption = navnOption & "<option value=""" & KRS("navn") & """>" & KRS("navn") & "</option>"
  KRS.Movenext
loop
%>

hhmm tror jeg ska ha en lidt mere færdig løsning... er ik helt super haj...får følgende fejl "Object required"

arg sorry jeg tror jeg har den... vent lidt... :)

ok

jow nu er den der... den udskriver godt nok ikke navn, men hvis jeg ber' den om at udksrive noget andet end navn fra databasen kan den godt... det må jeg lige arbejde lidt med...

Jeg siger mange tak, smider du et svar?

Ok et svar fra mig :)

Det lyder måske lidt underligt det jeg skriver nu, men der kan være kan faktisk være et problem med at en kolonne kun kan bruges en gang fra et recordset så man må ligge det over i en variable først, så denne:
navnOption = navnOption & "<option value=""" & KRS("navn") & """>" & KRS("navn") & "</option>"

Bliver:
navn = KRS("navn")
navnOption = navnOption & "<option value=""" & navn & """>" & navn & "</option>"

hmm hvor skal det så stå henne?

Det er den linje der er inde i loop så det bliver til dette:


<%
dim icqOption, navnOption
icqOption=""
navnOption=""
do while not krs.EOF
  icqOption = icqOption & "<option value=""" & KRS("icq") & """>" & KRS("icq") & "</option>"
  navn = KRS("navn")
  navnOption = navnOption & "<option value=""" & navn & """>" & navn & "</option>"
  KRS.Movenext
loop
%>

hmm så får jeg en fejl: Variable is undefined: 'navn'
line 64

line 64 indeholder følgende: navn = KRS("navn")

variablen  skal så lige ind i linje med dim :)

dim icqOption, navnOption, navn

hehe nårh jah... perfekt nu er den der!!! :D