Har en form hvor jeg vil hente data fra en tabel

hvad mener du?

Jeg har listet billeder i en dropdownboks sådan her:

<%
Dim objFSO, objFolder, objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("../cgi-bin/upload"))
%>
<SELECT name="billede" size="1" cols="40">
<option value="">Ingen billede</option>
<% For Each objFile in objFolder.Files %>
  <option value="<%=objFile.Name%>"><%=objFile.Name%>
<% next
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>

Jeg har en database med diverse tabeller. Har en tabel som hedder Sparepart_id. Denne tabel skal danne grundlag for min dropdownboks i formularen.

Det er vel sådan her hvis du bare vil hente fra en tabel

<SELECT name="billede" size="1" cols="40">
<option value="">Ingen billede</option>
<% if not rs.eof then
Do
%>
  <option value="<% rs("DitFelt") %>"><% rs("DitFelt") %>
<% rs.MoveNext
loop while not rs.eof
%>

Ideen er der, men den henter ingen værdier..

Må jeg ikke se din kode?

Dette burde virke ...

<%
response.write "<SELECT name="Sparepart_id" size="1" cols="40">
response.write "<option value="">- choose -</option>"
if not rs.eof then
Do
response.write "<option value='" & rs("Sparepart_id") & "'>" & rs("Sparepart_id")
rs.MoveNext
loop while not rs.eof
%>

Ja altså ...

<%
response.write "<SELECT name='Sparepart_id' size='1' cols='40'>"
response.write "<option value=''>- choose -</option>"
if not rs.eof then
Do
response.write "<option value='" & rs("Sparepart_id") & "'>" & rs("Sparepart_id")
rs.MoveNext
loop while not rs.eof
%>

dette er hele koden:

<!--#include file="dbopen.asp"-->
<form method="POST" action="add2.asp">
<table>
<tr>
<td>Brand-Name:</td><td><input type="text" name="BRAND_ID" size="20"></td>
</tr><tr>
<td>Model:</td><td><input type="text" name="TYPE_ID" size="20"></td>
</tr><tr>
<td>Amount:</td><td><input type="text" name="Amount" size="20"></td>
</tr><tr>
<td>Sparepart_ID:</td><td><input type="text" name="Sparepart_ID" size="20"> Look
  below</td>
</tr>
<tr><td>
<%
response.write "<SELECT name=""Sparepart_ID"" size='1' cols='40'>"
response.write "<option value=''>- choose -</option>"
if not rs.eof then
Do
response.write "<option value='" & rs("Sparepart_ID") & "'>" & rs("Sparepart_ID")
rs.MoveNext
loop while not rs.eof
end if
%>

<tr><td>Sparepart_Type:</td><td><input type="text" name="Sparepart_Type" size="20">
  Look below</td>
</tr><tr>
<td><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></td>
</tr>
</table>
</form>

<table border="1"><tr><td><center>Sparepart-ID</center></td><td><center>Sparepart_Type</center></td></tr>
<%
' SQL forespørgsel
strSQL = "Select Sparepart_ID,Sparepart_Type from StoreRoom group by Sparepart_ID, Sparepart_Type"
Set rs = Conn.Execute(strSQL)
Do until rs.eof
Response.write "<b><tr><td><center>" & " " & rs("Sparepart_ID") & "</center></td>" & "<td><center>" & rs("Sparepart_Type") & "</center></td></tr>"
%>
<% 
rs.movenext
loop   
%>
</table>
</body>

<!--#include file="dbclose.asp"-->

Jeg har flyttet lidt rundt på dine ting, så SQL-sætningen kom op øverst.
Nu skal du bare sætte dine egne ting ind.
Hvis du vil se hvordan det kom til at se ud med min db så er det her:

http://www.vorbasse-marked.dk/asptest.asp

Nå ja okay, så får du koden også :-)

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/database.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from az"
Set rs = Conn.Execute(strSQL)
%>
<form method="POST" action="add2.asp">
<table>
<tr>
<td>Brand-Name:</td><td><input type="text" name="BRAND_ID" size="20"></td>
</tr><tr>
<td>Model:</td><td><input type="text" name="TYPE_ID" size="20"></td>
</tr><tr>
<td>Amount:</td><td><input type="text" name="Amount" size="20"></td>
</tr><tr>
<td>Sparepart_ID:</td><td><input type="text" name="Sparepart_ID" size="20"> Look
  below</td>
</tr>
<tr><td>
<%
response.write "<SELECT name=""Sparepart_ID"" size='1' cols='40'>"
response.write "<option value=''>- choose -</option>"
if not rs.eof then
Do
response.write "<option value='" & rs("overskrift") & "'>" & rs("overskrift")
rs.MoveNext
loop while not rs.eof
end if
%>

<tr><td>Sparepart_Type:</td><td><input type="text" name="Sparepart_Type" size="20">
  Look below</td>
</tr><tr>
<td><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></td>
</tr>
</table>
</form>

<table border="1"><tr><td><center>Sparepart-ID</center></td><td><center>Sparepart_Type</center></td></tr>
<%

Do until rs.eof
Response.write "<b><tr><td><center>" & " " & rs("Sparepart_ID") & "</center></td>" & "<td><center>" & rs("Sparepart_Type") & "</center></td></tr>"
%>
<% 
rs.movenext
loop   
%>
</table>
</body>

<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
response.write "</TABLE>"
%>

takker det ser ud til at virke :)

Velbekomme.

Skulle det være en anden gang :-)