Array problemer.

Dette er koden:

<html><head>
<title></title>
</head>
<body>
<!--#include file="connection.asp"-->
<%
'Put db i array
Sql = "SELECT * FROM tInstallation Where kontraktID = 18 "
Set rs = Conn.execute(Sql)

Dim Array()
i = 1

While Not rs.EOF
Redim Preserve Array(i)
Array(i) = rs("id") & "," & rs("KontraktID")
i = i + 1
rs.MoveNext
Wend
'Her tælles antal records
Query = "Select count(*) as Antal from tInstallation Where kontraktID = 18 "
Set Rs=Conn.Execute(Query)
Antal = Rs.Fields("antal")

For i = 1 to Antal
id = Instr(array(i),",")
KontraktID = Mid(array(i),id+1)
id = Mid(array(i),1,id-1)
gemSql="Update tInstallation set InstNr = " & request("InstNR")&" Where id = " & id
response.write gemSQL & "<br>"
Next

Sql = "SELECT * FROM tInstallation Where kontraktID = 18 "
Set rs = Conn.execute(Sql)%>
<form method="post" action="test.asp">
<table>
<%do while not (rs.eof)%>
<tr>
  <td><input type="text" name="kontraktID" value="<%= rs("kontraktid") %>"></td>
  <td><input type="text" name="InstID" value="<%= rs("id")%>"></td>
  <td><input type="text" name="InstNr" value="<%= rs("Instnr")%>"></td>
</tr>
<%rs.movenext
Loop %>
</table>
<input type="Submit" value="test"></form>
</body>
</html>

Dette er problemet:
Update tInstallation set InstNr = 1, 2, 3, 4 Where id = 38
Update tInstallation set InstNr = 1, 2, 3, 4 Where id = 39
Update tInstallation set InstNr = 1, 2, 3, 4 Where id = 40
Update tInstallation set InstNr = 1, 2, 3, 4 Where id = 37

InstNR kommer alle gangene, så jeg ikke kan opdatere.
???????

Stig