Auto input fra db i Dropdown box

Ved din dropdown boks opretter du en IF sætning:

<%
sql2 = "select distinct subnavn from menu order by subnavn asc"
Set rs2 = Conn.Execute(sql2)
%>
</font><font face="Arial">
<select name="sub" size="1" cols="40">
<option>Vælg submenu</option>
<% IF rs2("subnavn") = rs("sub") then %>
<option SELECTED value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<% else %>
<option value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<% end if %>
<%do while not rs2.EOF%>
  <option value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<%
rs2.movenext
loop
%>
</select></font></td>

rs("sub") skal du bare udskifte med den rigti variabel :-)
<% IF rs2("subnavn") = rs("sub") then %>

cyberkox>>>har paste det ind som du har skrevet, men det er stadig det samme.

Har du rettet det som jeg sagde? Du må gemme den valgte værdi i et felt i en anden tabel, og det er denne du skal erstatte med rs("sub")

Jeg er helt ærlig ikke lige en haj til dette her, men har dette det til dette her nu:

<%
sql3 = "select distinct menunavn from menu order by menunavn asc"
Set rs3 = Conn.Execute(sql3)
%>
</font><font face="Agency FB">
<select name="menu" size="1" cols="40">
<option>Vælg menu</option>
<%do while not rs3.EOF%>
  <option value="<%=rs3("menunavn")%>"><%=rs3("menunavn")%></option>
<%
rs3.movenext
loop
%>
</select></font><font size="2"> </font></font>
</td>
        <td width="190" align="left">
<font face="Arial" size="2">
<%
sql2 = "select distinct subnavn from menu order by subnavn asc"
Set rs2 = Conn.Execute(sql2)
%>
</font><font face="Arial">
<select name="sub" size="1" cols="40">
<option>Vælg submenu</option>
<% IF rs2("subnavn") = rs("sub") then %>
<option SELECTED value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<% else %>
<option value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<% end if %>
<%do while not rs2.EOF%>
  <option value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<%
rs2.movenext
loop
%>
</select></font></td>


Det er både Menu og Submenu dropdown boxen som automatisk skal vælge iforvejen valgte tekst fra dben.

Aha, okay.

Hvordan udskriver du så den gemte menu og den gemte submenu?

<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/db.mdb")
sqlvis = "SELECT * FROM kort WHERE id = " & request.querystring("id") & ""
set rsvis = Conn.Execute(sqlvis)
%>
Sådan her viser jeg begge data:
                                        <font face="Arial" size="2">Navn:</font></td>
                                        <td width="79%">
                                        <font face="Arial" size="2"><%=rsvis("menu")%></font></td>
                                    </tr>
                                    <tr class="produkt-tekst">
                                        <td><font face="Arial" size="2">Mærke:</font></td>
                                        <td><font face="Arial" size="2"><%=rsvis("sub")%></font></td>

Prøv dette her:

<%
sql3 = "select distinct menunavn from menu order by menunavn asc"
Set rs3 = Conn.Execute(sql3)
%>
</font><font face="Agency FB">
<select name="menu" size="1" cols="40">
<option>Vælg menu</option>
<%do while not rs3.EOF%>
<% IF rs3("menunavn") = rsvis("menu") then %>
<option SELECTED value="<%=rs3("menunavn")%>"><%=rs3("menunavn")%></option>
<% else %>
<option value="<%=rs3("menunavn")%>"><%=rs3("menunavn")%></option>
<% end if %>

  <option value="<%=rs3("menunavn")%>"><%=rs3("menunavn")%></option>
<%
rs3.movenext
loop
%>
</select></font><font size="2"> </font></font>
</td>
        <td width="190" align="left">
<font face="Arial" size="2">
<%
sql2 = "select distinct subnavn from menu order by subnavn asc"
Set rs2 = Conn.Execute(sql2)
%>
</font><font face="Arial">
<select name="sub" size="1" cols="40">
<option>Vælg submenu</option>
<%do while not rs2.EOF%>
<% IF rs2("subnavn") = rsvis("sub") then %>
<option SELECTED value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<% else %>
<option value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<% end if %>
<%
rs2.movenext
loop
%>
</select></font></td>

Når jeg overwriter min kode med ovenstående, så laver den fuldstændig (fuckup) i hele siden.

Wups, denne linie står dobbelt:
<option value="<%=rs3("menunavn")%>"><%=rs3("menunavn")%></option>
------------------------------------
<%
sql3 = "select distinct menunavn from menu order by menunavn asc"
Set rs3 = Conn.Execute(sql3)
%>
</font><font face="Agency FB">
<select name="menu" size="1" cols="40">
<option>Vælg menu</option>
<%do while not rs3.EOF%>
<% IF rs3("menunavn") = rsvis("menu") then %>
<option SELECTED value="<%=rs3("menunavn")%>"><%=rs3("menunavn")%></option>
<% else %>
<option value="<%=rs3("menunavn")%>"><%=rs3("menunavn")%></option>
<% end if %>

<%
rs3.movenext
loop
%>
</select></font><font size="2"> </font></font>
</td>
        <td width="190" align="left">
<font face="Arial" size="2">
<%
sql2 = "select distinct subnavn from menu order by subnavn asc"
Set rs2 = Conn.Execute(sql2)
%>
</font><font face="Arial">
<select name="sub" size="1" cols="40">
<option>Vælg submenu</option>
<%do while not rs2.EOF%>
<% IF rs2("subnavn") = rsvis("sub") then %>
<option SELECTED value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<% else %>
<option value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<% end if %>
<%
rs2.movenext
loop
%>
</select></font></td>

Den laver samme nummer som før.

Melder den fejl? Har du evt. et link jeg ska se det på?

Sådan her ser den ud nu:
http://basket-kort.dk/not_working.jpg

Og sådan her ser den ud normalt:
http://basket-kort.dk/working_version.jpg

Så du kan godt se af tabelerne er fuckup osv.

Er det ikke muligt at jeg kan se kildekoderne? Hmm, Selecter den ellers de rigtige punkter?

Siden ser sådan her ud:
<html>
<% if session("login") <> "True" then Response.Redirect("adminlogin.asp") end if %>
<% session.lcid = 1030 %>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Kort</title>
</head>
<%
If Request.Form("B2") <> "" Then
    Set conn = server.CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db.mdb")
    sql = "UPDATE kort SET menu = '" & request.form("menu") & "', sub = '" & request.form("sub") & "', beskrivelsestitel = '" & request.form("titel") & "', beskrivelse = '" & request.form("beskrivelse") & "', intern_note = '" & request.form("intern") & "', antal = '" & request.form("antal") & "', nummer = '" & request.form("nummer") & "', forside = '" & request.form("forside") & "', bagside = '" & request.form("bagside") & "', settype = '" & request.form("settype") & "', dato = now() where id = "& request.form("menuid") &""
    Set rs = Conn.Execute(sql)
    %>
    <script>
    alert("Følgende kort er rettet \n<%=request.form("titel")%> (<%=request.form("menu")%> -> <%=request.form("sub")%> ID: <%=request.form("menuid")%>)");
    </script>
    <%   
    End If
    %>
<%
If Request.form("B3") <> "" Then
    Set conn = server.CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db.mdb")
    conn.Execute = "Delete * FROM kort where id = "& request.form("menuid") &""
    %>
<script>
    alert("Følgende kort er slettet \n<%=request.form("titel")%>");
    </script>
<%   
End If
%>
<body style="text-align: center">
<form method="post" action="admin.asp?side=kort&funk=retkort">
<div align="center">
<table border="1" width="711" id="table1" bordercolor="#000000" height="429">
    <tr>
        <td width="400">
        <font face="Arial" style="font-size: smaller" color="#000066">Vælg et
        kort </font></td>
        <td width="295" align="left" colspan="2">
            <%
            Set conn = server.CreateObject("ADODB.Connection")
              conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db.mdb")
            sql = "select * from kort order by beskrivelsestitel asc"
            Set rs = Conn.Execute(sql)
            %><select name="Vælg en menu" size="1" cols="40" onChange="location.href=this.value;">
            <option>Vælg et kort</option>
            <%do while not rs.EOF%>
              <option value="admin.asp?side=kort&funk=retkort&id=<%=rs("id")%>"><%=rs("beskrivelsestitel") & " / " & rs("menu")%>-><%=rs("sub")%></option>
            <%
            rs.movenext
            loop
            %>
            </td>
    </tr>
        <%
        if request.querystring("id") <> "" then
        sql = "select * from kort where id = "& request.querystring("id") &""
        Set rs = Conn.Execute(sql)
        %>
    <tr>
        <td width="400" rowspan="2">
        <p align="left">
    <font face="Arial" style="font-size: smaller" color="#000066">Hoved &amp; </font>
        <font face="Arial" color="#000066"><small>Sub
    Kategori</small></font></td>
        <td width="99" align="left">
            <font face="Arial" size="2">
            <%=rs("menu")%></font></td>
        <td width="190" align="left">
            <font face="Arial" size="2">
            <%=rs("sub")%></font></td>
    </tr>
    <tr>
        <td width="99" align="left">
<font face="Arial"><font size="2">
<%
sql3 = "select distinct menunavn from menu order by menunavn asc"
Set rs3 = Conn.Execute(sql3)
%>
</font><font face="Agency FB">
<select name="menu" size="1" cols="40">
<option>Vælg menu</option>
<%do while not rs3.EOF%>
  <option value="<%=rs3("menunavn")%>"><%=rs3("menunavn")%></option>
<%
rs3.movenext
loop
%>
</select></font><font size="2"> </font></font>
</td>
        <td width="190" align="left">
<font face="Arial" size="2">
<%
sql2 = "select distinct subnavn from menu order by subnavn asc"
Set rs2 = Conn.Execute(sql2)
%>
</font><font face="Arial">
<select name="sub" size="1" cols="40">
<option>Vælg submenu</option>
<% IF rs2("subnavn") = rs("sub") then %>
<option SELECTED value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<% else %>
<option value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<% end if %>
<%do while not rs2.EOF%>
  <option value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
<%
rs2.movenext
loop
%>
</select></font></td>
    </tr>
    <%
sql = "SELECT * FROM kort WHERE id = " & request.querystring("id") & ""
Set rs = Conn.Execute(sql)
%>
    <tr>
        <td width="400"><font face="Arial" color="#000066"><small>Titel #</small></font></td>
        <td width="295" align="left" colspan="2"><font face="Arial" color="#000066">
        <input type="text" name="titel" size="39" value="<%=rs("beskrivelsestitel")%>"><input type="hidden" name="menuid" size="20" value="<%=rs("id")%>"></font></td>
    </tr>
    <tr>
        <td width="400" valign="top">
        <font face="Arial" style="font-size: smaller" color="#000066">Beskrivelse<br>
        <img border="0" src="billeder/produkt_billeder/<%=rs("forside")%>" width="200" height="251"><img border="0" src="billeder/produkt_billeder/<%=rs("bagside")%>" width="200" height="251"></font></td>
        <td width="295" align="left" valign="top" colspan="2"><font face="Arial" color="#000066">
    <textarea COLS="70" ROWS="5" Name="beskrivelse" style="width:100%; height:100%"><%=rs("beskrivelse")%></textarea></font></td>
    </tr>
    <tr>
        <td width="400" valign="top"><font face="Arial" color="#000066"><small>
        Intern note</small></font></td>
        <td width="295" align="left" colspan="2"><font face="Arial" color="#000066">
    <textarea COLS="71" ROWS="3" Name="intern" style="width:287; height:81"><%=rs("intern_note")%></textarea></font></td>
    </tr>
    <tr>
        <td width="400">
        <font face="Arial" style="font-size: smaller" color="#000066">Antal kort</font></td>
        <td width="295" align="left" colspan="2">
        <font face="Arial" color="#000066">
        <input name="antal" size="40" value="<%=rs("antal")%>"></font></td>
    </tr>
    <tr>
        <td width="400">
        <font face="Arial" style="font-size: smaller" color="#000066">Set type</font></td>
        <td width="295" colspan="2">
        <font face="Arial" color="#000066">
        <input name="settype" size="40" value="<%=rs("settype")%>"></font></td>
    </tr>
    <tr>
        <td width="400">
        <font face="Arial" style="font-size: smaller" color="#000066">Nr</font></td>
        <td width="295" colspan="2">
        <font face="Arial" color="#000066">
        <input name="nummer" size="41" value="<%=rs("nummer")%>"></font></td>
    </tr>
    <tr>
        <td width="400">
        <font face="Arial" style="font-size: smaller" color="#000066">Vælg
        billeder</font></td>
        <td width="295" align="center" colspan="2">
<table border="0" width="49" id="table2">
  <tr>
    <td width="43" align="left">
      <p align="center"><font face="Arial"><font size="2">Forside<br>
      <%
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set folderObject = fso.GetFolder(Server.MapPath("billeder/produkt_billeder"))
      Set filer = FolderObject.Files
      %></font><select name="forside" size="1" cols="40">
      <%For Each File In filer
        if File.Name = rs("forside") then
          response.write "<option value=""" & File.Name & """ selected>" & File.Name & "</option>"
        else
          response.write "<option value=""" & File.Name & """>" & File.Name & "</option>"
        end if
      Next%>
      </select></font><font face="Arial" size="2"><%=rs("forside")%></font></td>
  </tr>
</table>
        <table border="0" width="53" id="table3">
            <tr>
                <td width="47" align="left">
                <p align="center"><font face="Arial"><font size="2">Bagside<br>
    <%
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set folderObject = fso.GetFolder(Server.MapPath("billeder/produkt_billeder"))
      Set filer = FolderObject.Files
      %></font><select name="bagside" size="1" cols="40">
      <%For Each File In filer
        if File.Name = rs("bagside") then
          response.write "<option value=""" & File.Name & """ selected>" & File.Name & "</option>"
        else
          response.write "<option value=""" & File.Name & """>" & File.Name & "</option>"
        end if
      Next%>
      </select></font><font face="Arial" size="2"><%=rs("bagside")%></font></td>
            </tr>
        </table>
        </td>
    </tr>
    <tr>
        <td width="400" valign="top">
        <font face="Arial" style="font-size: smaller" color="#000066">( 1 ) Upload
        billeder (refresh)</font></td>
        <td width="295" align="left" colspan="2">
            <br>
            <iframe name="I1" src="uploadform.asp" height="75" width="100%" border="0" frameborder="0">
            Your browser does not support inline frames or is currently configured not to display inline frames.
            </iframe>
            <br>
&nbsp;</td>
    </tr>
    <tr>
        <td width="701" valign="top" colspan="3">
        <p align="center">
        <input type="submit" value="Opret" name="B2">
        <input type="reset" value="Reset" name="B2">
        <input type="submit" value="Slet kort" name="B3"></td>
    </tr>
</table>
<% end if %>
</div>
</form>
</body>

</html>

Here you go:

<html>
<% if session("login") <> "True" then Response.Redirect("adminlogin.asp") end if %>
<% session.lcid = 1030 %>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Kort</title>
</head>
<%
If Request.Form("B2") <> "" Then
    Set conn = server.CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db.mdb")
    sql = "UPDATE kort SET menu = '" & request.form("menu") & "', sub = '" & request.form("sub") & "', beskrivelsestitel = '" & request.form("titel") & "', beskrivelse = '" & request.form("beskrivelse") & "', intern_note = '" & request.form("intern") & "', antal = '" & request.form("antal") & "', nummer = '" & request.form("nummer") & "', forside = '" & request.form("forside") & "', bagside = '" & request.form("bagside") & "', settype = '" & request.form("settype") & "', dato = now() where id = "& request.form("menuid") &""
    Set rs = Conn.Execute(sql)
    %>
    <script>
    alert("Følgende kort er rettet \n<%=request.form("titel")%> (<%=request.form("menu")%> -> <%=request.form("sub")%> ID: <%=request.form("menuid")%>)");
    </script>
    <%   
    End If
    %>
<%
If Request.form("B3") <> "" Then
    Set conn = server.CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db.mdb")
    conn.Execute = "Delete * FROM kort where id = "& request.form("menuid") &""
    %>
<script>
    alert("Følgende kort er slettet \n<%=request.form("titel")%>");
    </script>
<%   
End If
%>
<body style="text-align: center">
<form method="post" action="admin.asp?side=kort&funk=retkort">
<div align="center">
<table border="1" width="711" id="table1" bordercolor="#000000" height="429">
    <tr>
        <td width="400">
        <font face="Arial" style="font-size: smaller" color="#000066">Vælg et
        kort </font></td>
        <td width="295" align="left" colspan="2">
            <%
            Set conn = server.CreateObject("ADODB.Connection")
              conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db.mdb")
            sql = "select * from kort order by beskrivelsestitel asc"
            Set rs = Conn.Execute(sql)
            %><select name="Vælg en menu" size="1" cols="40" onChange="location.href=this.value;">
            <option>Vælg et kort</option>
            <%do while not rs.EOF%>
              <option value="admin.asp?side=kort&funk=retkort&id=<%=rs("id")%>"><%=rs("beskrivelsestitel") & " / " & rs("menu")%>-><%=rs("sub")%></option>
            <%
            rs.movenext
            loop
            %>
            </td>
    </tr>
        <%
        if request.querystring("id") <> "" then
        sql = "select * from kort where id = "& request.querystring("id") &""
        Set rs = Conn.Execute(sql)
        %>
    <tr>
        <td width="400" rowspan="2">
        <p align="left">
    <font face="Arial" style="font-size: smaller" color="#000066">Hoved &amp; </font>
        <font face="Arial" color="#000066"><small>Sub
    Kategori</small></font></td>
        <td width="99" align="left">
            <font face="Arial" size="2">
            <%=rs("menu")%></font></td>
        <td width="190" align="left">
            <font face="Arial" size="2">
            <%=rs("sub")%></font></td>
    </tr>
    <tr>
        <td width="99" align="left">
<font face="Arial"><font size="2">
<%
sql3 = "select distinct menunavn from menu order by menunavn asc"
Set rs3 = Conn.Execute(sql3)
%>
</font><font face="Agency FB">
<select name="menu" size="1" cols="40">
<option>Vælg menu</option>
<%do while not rs3.EOF%>

    <% IF rs3("menunavn") = rs("menu") then %>
        <option SELECTED value="<%=rs3("menunavn")%>"><%=rs3("menunavn")%></option>
    <% else %>
        <option value="<%=rs3("menunavn")%>"><%=rs3("menunavn")%></option>
    <% end if %>

<%
rs3.movenext
loop
%>
</select></font><font size="2"> </font></font>
</td>
        <td width="190" align="left">
<font face="Arial" size="2">
<%
sql2 = "select distinct subnavn from menu order by subnavn asc"
Set rs2 = Conn.Execute(sql2)
%>
</font><font face="Arial">
<select name="sub" size="1" cols="40">
<option>Vælg submenu</option>
<%do while not rs2.EOF%>

    <% IF rs2("subnavn") = rs("sub") then %>
        <option SELECTED value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
    <% else %>
        <option value="<%=rs2("subnavn")%>"><%=rs2("subnavn")%></option>
    <% end if %>

<%
rs2.movenext
loop
%>
</select></font></td>
    </tr>
    <%
sql = "SELECT * FROM kort WHERE id = " & request.querystring("id") & ""
Set rs = Conn.Execute(sql)
%>
    <tr>
        <td width="400"><font face="Arial" color="#000066"><small>Titel #</small></font></td>
        <td width="295" align="left" colspan="2"><font face="Arial" color="#000066">
        <input type="text" name="titel" size="39" value="<%=rs("beskrivelsestitel")%>"><input type="hidden" name="menuid" size="20" value="<%=rs("id")%>"></font></td>
    </tr>
    <tr>
        <td width="400" valign="top">
        <font face="Arial" style="font-size: smaller" color="#000066">Beskrivelse<br>
        <img border="0" src="billeder/produkt_billeder/<%=rs("forside")%>" width="200" height="251"><img border="0" src="billeder/produkt_billeder/<%=rs("bagside")%>" width="200" height="251"></font></td>
        <td width="295" align="left" valign="top" colspan="2"><font face="Arial" color="#000066">
    <textarea COLS="70" ROWS="5" Name="beskrivelse" style="width:100%; height:100%"><%=rs("beskrivelse")%></textarea></font></td>
    </tr>
    <tr>
        <td width="400" valign="top"><font face="Arial" color="#000066"><small>
        Intern note</small></font></td>
        <td width="295" align="left" colspan="2"><font face="Arial" color="#000066">
    <textarea COLS="71" ROWS="3" Name="intern" style="width:287; height:81"><%=rs("intern_note")%></textarea></font></td>
    </tr>
    <tr>
        <td width="400">
        <font face="Arial" style="font-size: smaller" color="#000066">Antal kort</font></td>
        <td width="295" align="left" colspan="2">
        <font face="Arial" color="#000066">
        <input name="antal" size="40" value="<%=rs("antal")%>"></font></td>
    </tr>
    <tr>
        <td width="400">
        <font face="Arial" style="font-size: smaller" color="#000066">Set type</font></td>
        <td width="295" colspan="2">
        <font face="Arial" color="#000066">
        <input name="settype" size="40" value="<%=rs("settype")%>"></font></td>
    </tr>
    <tr>
        <td width="400">
        <font face="Arial" style="font-size: smaller" color="#000066">Nr</font></td>
        <td width="295" colspan="2">
        <font face="Arial" color="#000066">
        <input name="nummer" size="41" value="<%=rs("nummer")%>"></font></td>
    </tr>
    <tr>
        <td width="400">
        <font face="Arial" style="font-size: smaller" color="#000066">Vælg
        billeder</font></td>
        <td width="295" align="center" colspan="2">
<table border="0" width="49" id="table2">
  <tr>
    <td width="43" align="left">
      <p align="center"><font face="Arial"><font size="2">Forside<br>
      <%
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set folderObject = fso.GetFolder(Server.MapPath("billeder/produkt_billeder"))
      Set filer = FolderObject.Files
      %></font><select name="forside" size="1" cols="40">
      <%For Each File In filer
        if File.Name = rs("forside") then
          response.write "<option value=""" & File.Name & """ selected>" & File.Name & "</option>"
        else
          response.write "<option value=""" & File.Name & """>" & File.Name & "</option>"
        end if
      Next%>
      </select></font><font face="Arial" size="2"><%=rs("forside")%></font></td>
  </tr>
</table>
        <table border="0" width="53" id="table3">
            <tr>
                <td width="47" align="left">
                <p align="center"><font face="Arial"><font size="2">Bagside<br>
    <%
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set folderObject = fso.GetFolder(Server.MapPath("billeder/produkt_billeder"))
      Set filer = FolderObject.Files
      %></font><select name="bagside" size="1" cols="40">
      <%For Each File In filer
        if File.Name = rs("bagside") then
          response.write "<option value=""" & File.Name & """ selected>" & File.Name & "</option>"
        else
          response.write "<option value=""" & File.Name & """>" & File.Name & "</option>"
        end if
      Next%>
      </select></font><font face="Arial" size="2"><%=rs("bagside")%></font></td>
            </tr>
        </table>
        </td>
    </tr>
    <tr>
        <td width="400" valign="top">
        <font face="Arial" style="font-size: smaller" color="#000066">( 1 ) Upload
        billeder (refresh)</font></td>
        <td width="295" align="left" colspan="2">
            <br>
            <iframe name="I1" src="uploadform.asp" height="75" width="100%" border="0" frameborder="0">
            Your browser does not support inline frames or is currently configured not to display inline frames.
            </iframe>
            <br>
&nbsp;</td>
    </tr>
    <tr>
        <td width="701" valign="top" colspan="3">
        <p align="center">
        <input type="submit" value="Opret" name="B2">
        <input type="reset" value="Reset" name="B2">
        <input type="submit" value="Slet kort" name="B3"></td>
    </tr>
</table>
<% end if %>
</div>
</form>
</body>

</html>

For "satan" da bobby, så virker det.. jubii

Kanont, tak for hjælpen.. Den havde jeg aldrig tricket at my own.

Hehe, det var da kanon ;-).. Det ska du nok få lært en dag, selv at regne den ud ;-).

hehe ja, jeg prøver ihærdigt.

Mange tak for point :-)