Frågan#1
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") & " </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") & " </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") & " </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") & " </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") & " </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") & " </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
%>