multi opdatering
Hvad kan der være galt her<html>
<%Response.Buffer = True%>
<head>
<title></title>
</head>
<body bgcolor="A0B3C8">
<div align="center"><center>
<table border="0" width="675" cellpadding="0" cellspacing="1" bordercolor="#000000"
height="216">
<tr>
<td valign="middle" width="633" bordercolor="#000000" style="border: 1px solid rgb(0,0,0)"
bgcolor="#A0B3C8" height="163"><a </tr><form method="POST" action="update.asp">
<input type="hidden" name="id" value="<%=rs("id")%>"><%
set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")%>
<%
strSQL = "select * from barometer"
Set rs = Conn.Execute(strSQL)
%>
<div align="center"><center><table
border="0" width="930">
<tr>
<td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Navn</strong></td>
<td width="110" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Alder</strong></td>
<td width="109" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Klasse</strong></td>
<td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Patter</strong></td>
<td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Røv</strong></td>
<td width="107" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Krop</strong></td>
<td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><strong>Charme</strong></td>
<td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><strong>AKSP</strong></td>
</tr>
<tr>
<td width="154" align="center"></td>
<td width="110" align="center"></td>
<td width="109" align="center"></td>
<td width="108" align="center"></td>
<td width="108" align="center"></td>
<td width="107" align="center"></td>
<td width="106" align="center"></td>
<td width="106" align="center"></td>
</tr>
<% do while not rs.EOF %>
<tr>
<td width="154" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text"
name="fornavn<%=rs("id")%>" size="15"
value="<% Response.write rs("fornavn") & " " & rs("mellemnavn") & " " & rs("efternavn")%>"
disabled></td>
<td width="110" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text"
name="alder<%=rs("id")%>" size="10" value="<%Response.write rs("alder")%>"></td>
<td width="109" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text"
name="klasse<%=rs("id")%>" size="10" value="<%Response.write rs("klasse")%>"></td>
<td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text"
name="patter<%=rs("id")%>" size="10" value="<%Response.write rs("patter")%>"></td>
<td width="108" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text"
name="roev<%=rs("id")%>" size="10" value="<%Response.write rs("roev")%>"></td>
<td width="107" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text"
name="krop<%=rs("id")%>" size="10" value="<%Response.write rs("krop")%>"></td>
<td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text"
name="cme<%=rs("id")%>" size="10" value="<%Response.write rs("cme")%>"></td>
<td width="106" align="center" style="border: 1px solid rgb(0,0,0)"><input type="text"
name="aksp<%=rs("id")%>" size="10" value="<%Response.write rs("aksp")%>"></td>
</tr>
<% rs.movenext %>
<% loop %>
</table>
</center></div><div align="center"><center><p></a><input type="submit" value="Opdater"
name="B1"><a </tr></p>
</center></div>
</form>
</a></td>
</tr>
</table>
</center></div>
</body>
</html>
den melder fejlen :
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'rs'
/opdater.asp, line 16
