Select boxe

Du skal putte værdien ind i values og du kan lave et loop som dette:


SQL = "SELECT * FROM tabel"
set rs = conn.execute(SQL)

Response.write "<select name=""navnet"">
do while not rs.EOF
  Response.write "<option value=""" & rs("ID") & """>" & rs("navn") & "</option>"
  rs.Movenext
loop
Response.write "</select>"



Så kan du hendte værdi i value på siden hvor form'en er send til ved:

selectID = Request.Form("navnet")

lad mig se om jeg forstår det rigtigt...

<%
'Først connecter du til din database... det ved du nok godt i forvejen, så jeg springer direkte til forespørgslen.

Dim strSQL, RS
strSQL = "SELECT * FROM _dintabelher_"
Set RS = objConn.Execute(strSQL)

If Not (RS.EOF Or RS.BOF) Then %>
  <select name="boksen">
<%  Do While Not RS.EOF
      Response.Write("<option value=""" & RS("felt") & """>" & RS("felt") & "</option>")
      RS.MoveNext
    Loop %>
  </select>
<%
Else
  Response.Write("din tabel er tom")
End If

objConn.Close
Set strSQL = nothing
Set RS = nothing
%>

Brian H
http://www.codedesign.dk

yeah - så kan man lære at være så langsom :P

mit foregående skal også opfattes som et svar :)

Brian H
http://www.codedesign.dk

så må i deles om pointz :o) tak for hjælpen