---
title: "Dynamisk formulär val ?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/101150-dynamisk-formulär-val"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tomas21"
published: "2004-04-07T22:21:37.000Z"
updated: "2004-04-07T22:21:37.000Z"
replies: 0
views: 188
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/101150-dynamisk-formulär-val"
---

# Dynamisk formulär val ?

## #1 — tomas21, 2004-04-07T22:21Z

Hej!

Jag har gjort ett formulär som dynamiskt skapas. Det formulär som jag har problem med är den som ska ändra saker. Jag loopar ut fomuläret så att den får i innehåll det som finns för den posten. Att få innehållet i type=text och textareas är inte problem. Problemet ligger i select tagar.

Säg att jag har en select med olika val som listas ut ur en databas typ:

Val 1
Val 2
Val 3
Val 4

osv.

Den post jag nu ska ändra säger vi har Val 3. Då vill jag att mitt formulär ska loopas ut så att select ser ut såhär:

Val 3
Val 1
Val 2
Val 4

osv.

Varför jag vill göra detta är för att jag ska slippa ändra i varje select val i formuläret varje gång jag gör en ändring kan vara ganska jobbigt.

Koden är:

```

<form method="POST" action="andra.asp?id=<%=Request.QueryString("id")%>&tabell=<%=Request.QueryString("tabell")%>" name="<%=formName%>">

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../data/etr0n.mdb")

tabell = Request.QueryString("tabell")
myKey = "ID"
lngRecord = Request.QueryString("id")

Set objRS = Connect.OpenSchema(4)
Do Until objRS.EOF
  If objRS("TABLE_NAME") = Request.QueryString("tabell") Then
    strSQL = "SELECT " & objRS("COLUMN_NAME") & " FROM " & Request.QueryString("tabell") & " WHERE " & myKey & "=" & lngRecord
    Set objRS2 = Connect.Execute(strSQL)

    'Response.Write("<b>" & objRS("COLUMN_NAME") & "</b>" & objRS("Description"))
    If NOT objRS2.EOF Then
      i = 0
      Do Until objRS2.EOF
        If i > 0 Then
        End If

desc = objRS("Description")

If desc = "Text" Then
If objRS("Column_Name") = "Bild" Then
Response.Write ""
ElseIf objRS("Column_Name") = "Kampanj" Then
Response.Write "<tr><td valign=top>" & objRS("Column_Name") & "&nbsp;</td>"
Response.Write "<td valign=top><select name=" & objRS("Column_Name") & " size=1>"
Response.Write "<option value=Ja>Ja</option>"
Response.Write "<option value=Nej>Nej</option>"
Response.Write "</select><br><br></td></tr>"
ElseIf objRS("Column_Name") = "Fraktsatt" Then
Response.Write "<tr><td valign=top>" & objRS("Column_Name") & "&nbsp;</td>"
Response.Write "<td valign=top><select name=" & objRS("Column_Name") & " size=1>"
Response.Write "<option value=1>1</option>"
Response.Write "<option value=2>2</option>"
Response.Write "<option value=3>3</option>"
Response.Write "</select><br><br></td></tr>"
Else
Response.Write "<tr><td valign=top>" & objRS("Column_Name") & "&nbsp;</td>"
Response.Write "<td valign=top><input type=text name=" & objRS("Column_Name") & " value=" & objRS2(0) & " size=20><br><br></td></tr>"
End If
End If

If desc = "Tal" Then

If objRS("Column_Name") = "KatId" Then
Response.Write "<tr><td valign=top>" & objRS("Column_Name") & "&nbsp;</td>"
Response.Write "<td valign=top><select name=" & objRS("Column_Name") & " size=1>"

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQLSATS = "SELECT * FROM ProdM3nu WHERE RefIdi = 0"
RecSet.Open SQLSATS, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
Response.Write "<option value=" & RecSet("ID") & ">" & RecSet("Rubrik") & "</option>"
RecSet.MoveNext
Loop
RecSet.Close
Response.Write "</select><br><br></td></tr>"
Else

If objRS("Column_Name") = "UnderMenuID" Then
Response.Write "<tr><td valign=top>" & objRS("Column_Name") & "&nbsp;</td>"
Response.Write "<td valign=top><select name=" & objRS("Column_Name") & " size=1>"

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQLSATS = "SELECT * FROM ProdM3nu WHERE RefIdi <> 0"
RecSet.Open SQLSATS, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
Response.Write "<option value=" & RecSet("ID") & ">" & RecSet("Rubrik") & "</option>"
RecSet.MoveNext
Loop
RecSet.Close
Response.Write "</select><br><br></td></tr>"
Else
If objRS("Column_Name") = "RefId" Then
Response.Write ""
Else
Response.Write "<tr><td valign=top>" & objRS("Column_Name") & "&nbsp;</td>"
Response.Write "<td valign=top><input type=text name=" & objRS("Column_Name") & " value= " & objRS2(0) & " size=20><br><br></td></tr>"
End If
End If
End If
End If
%>
```

Permalänk: https://www.webforum.nu/p/101150

---

Tråden på webben: https://www.webforum.nu/amne/asp/101150-dynamisk-formulär-val