2 Indexfelter
Jeg har en fin kode som gør det muligt at klikke på mit index [no]. så jeg kan redigere recorden. Men hvordan får jeg omskrevet koden så jeg får 2 knapper. Den som ér der plus en mere. Den ekstra submitknap skal kunne sende knapværdien over i en anden aspside.Min kode.
<%
dim conn,rs,x
set conn=Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("/database.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT ordrer.[no], ordrer.K_nr, ordrer.Betalingsdato, ordrer.Status FROM ordrer ORDER BY ordrer.[no] DESC", conn
%>
<h2><font color="#FFFFFF">Samtlige ordrer - sorteret i
faldende nr orden<br>
Klik på rækkenummeret for at redigere.</font><br>
<font size="3">
</font></h2>
<div align="left">
<table border="1" width="100%" style="font-size: 8 pt; border-collapse: collapse" cellpadding="0" cellspacing="0" height="3" align="left">
<tr bgcolor="#b0c4de">
<%
for each x in rs.Fields
response.write("<th>" & ucase(x.name) & "</th>")
next
%>
</tr>
<%do until rs.EOF%>
<tr bgcolor="#f0f0f0">
<form method="POST" action="index_retur.asp" style="font-size: 8 pt">
<%
for each x in rs.Fields
if x.name="no" then
%>
<td style="font-size: 8 pt" width="100%" height="4">
<input type="submit" name="no" value="<%=x.value%>" style="font-size: 10 pt; position:relative; float:left">
<input type="submit" name="K_nr" value="<%=x.value%>" style="font-size: 10 pt; position:relative; float:left"></td>
<%
else
%>
<td width="100%" height="4"><%Response.Write(x.value)%> </td>
<%
end if
next
%>
</form>
<%rs.MoveNext%>
</tr>
<%
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
