sorry !
jeg skal prøver at omformulere
Problemet er som nævnt at jeg ikke på forhånd kender antal af poster og hvilket id (prod_id) de har og at jeg gerne skulle kunne opdatere hele dynen i et hug (det ville være lidt mere elegant en hver post for sig)
Her er hele mit script:
\'-----------------------------------------
<%@ Language=VBScript %>
<%
set conn=server.CreateObject (\"ADODB.Connection\")
conn.Open (\"kaspro\")
if Request.Form(\"gem\")=\"GEM\" then
\' her skulle der være noget der splitter
sql=\"update products set prod_number=\'\"&Request.Form(\"prod_number\")&\"\', prod_name=\'\"&Request.Form(\"prod_name\")&\"\', prod_desc=\'\"&Request.Form(\"prod_desc\")&\"\', prod_image=\'\"&Request.Form(\"prod_image\")&\"\', prod_inactiv=\'\"&Request.Form(\"prod_inactiv\")&\"\' where prod_id=\"&Request.Form(\"prod_id\")&\"\"
conn.execute(sql)
end if
%>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>
<table border=1 width=100% height=100%>
<tr>
<td valign=middle align=center>
<h3>Her kan du redigere dit varekatalog</h3>
<table border=1 width=200px>
<tr>
<td>Varenummer</td>
<td>Navn</td>
<td>Beskrivelse</td>
<td>Billede</td>
<td>Pris</td>
<td>Udgået</td>
<td></td>
</tr>
<form action=\"\" method=post name=form1>
<%
set ProdSet=server.CreateObject(\"ADODB.RecordSet\")
sql=\"select * from products\"
ProdSet.Open sql, conn,3,,1
while not ProdSet.EOF
%>
<tr>
<td><input type=hidden name=prod_id value=\"<%= ProdSet(\"prod_id\")%>\"><INPUT type=\"text\" id=text1 name=prod_number value=\"<%=ProdSet(\"prod_number\")%>\"></td>
<td><INPUT type=\"text\" id=text2 name=prod_name value=\"<%= ProdSet(\"prod_name\")%>\"></td>
<td><TEXTAREA rows=2 cols=20 id=textarea1 name=prod_desc><%=ProdSet(\"prod_desc\")%></TEXTAREA></td>
<td><INPUT type=\"text\" id=text3 size=7 name=prod_image value=\"<%= ProdSet(\"prod_image\")%>\"></td>
<td><input type=text size=7 name=prod_price value=\"<%= ProdSet(\"prod_price\")%>\"></td>
<td>
<select name=prod_inactiv>
<option selected> <% if ProdSet(\"prod_inactiv\")=No then
Response.Write \"NEJ\"
else
Response.Write \"JA\"
end if %></option>
<option value=\"yes\">Ja</option>
<option value=\"no\">Nej</option>
</select>
</td>
<td></td>
</tr>
<%
ProdSet.MoveNext
wend
%>
<tr>
<td colspan=8 align=right><input type=submit name=\"gem\" value=\"GEM\"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>
\'--------------------------
håber du kan hjælpe
