Felmeddelande som inte är stabilt ;)

Hej
Jag håller på med en applikation som hanterar ett nyckelregister (för femtio-elfte gången) ;)

Nu håller jag på och fnular med en grejj som i slutändan kommer funkaså att man kan välja ut ett antal adresser, så många man vill för att sedan skriva ut dessa man valt.

If Request.Querystring("a") = "form" OR Request.Querystring("a") = "" Then

SQL = "Select ID, Adress, Gatunummer FROM nycklar ORDER BY Adress, Gatunummer ASC;"

Set oRec = oConn.Execute(SQL)

%>
<table border='0' bordercolor='#000000' cellpadding='0' cellspacing='0'>
<tr><td colspan='3'><form action='bes_adr.asp?a=make' target='_self' method='post'><input type='submit' value='Vidare ==>'>
<%

Response.Write("</td></tr><tr><td height='15' colspan='3'></td></tr>")

Do until oRec.EOF

  
cnt = cnt + 1
strColor = "#FCFDC7" 
If cnt Mod 2 = 0 then strColor = "#FEFEDE"
%>
<tr bgcolor="<%= strColor%>">
	<td><Input type='checkbox' name='kId' value="<%=oRec("ID")%>" style="border: 0px; background-color: <%= strColor%>;"></td><td style="width:60%;"><a href="javascript:openwinsize('visa_adr.asp?action=show&id=<%=oRec("ID") & "&b=" & b%>',width=380,height=180);"><%=oRec("Adress") & "</td><td  style='width:10%;'>" & oRec("Gatunummer")%></a></td><td style="width:50%;"></td>
</tr>
<tr>
	<td colspan='3' height='5'></td>
</tr>
<%
oRec.MoveNext
Loop%>

<tr><td height='15' colspan='3'></td></tr><tr><td colspan='3'><input type='submit' value='Vidare ==>'></form></td></tr></table>

Det är koden för utskrift av själva formuläret, som i sig är mkt simoelt, det finns bara en kryssruta framför varje adress, man väljer och trycker "Vidare ==>".

Då kommer man till:

ElseIf Request.Querystring("a") = "make" Then

SQL = "SELECT * FROM nycklar WHERE ID in(" & Request.Form("kId")  & ") ORDER BY Adress, Gatunummer ASC;"

Set oRec = oConn.Execute(SQL)

If NOT oRec.EOF Then

Do Until oRec.EOF
Response.Write("<table border='0' bordercolor='#000000' cellpadding='0' cellspacing='0'><tr><td><font size='1'>ID#: " & oRec("ID") & "</font></td><td>" & oRec("Adress") & " " & oRec("Gatunummer") & "</td><td>" & oRec("Portkod") & "</td></tr><tr><td style='height: 50px;text-align: left; vertical-align: middle;' colspan='3'><font size='1'><u>Nycklar:</u></font><br>" & oRec("Nycklar") & "</td></tr><tr><td style='height: 50px;text-align: left; vertical-align: middle;' colspan='3'><font size='1'><u>Övrigt</u>:</font><br>" & oRec("Övrigt") & "</td></tr><tr><td colspan='3' style='height:20px;'></td></tr></table>")

oRec.MoveNext
Loop%>

<tr><td height='15' colspan='3'></td></tr><tr><td colspan='3'><input type='submit' value='Vidare ==>'></form></td></tr></table>
<%
Else
	Response.Write("Du har inte valt några adresser, gå <a href='javascript:history.go(-1);'>Tillbaka</a> och försök igen.")
End If
End If
End If
Set oConn = NOTHING
Set oRec = NOTHING
Set strSQL = NOTHING

Det är här det börjar spöka, för har man inte markerat ngra adressen, blir allt som det ska, men väljer man ngn / ngra, så:

Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/hissen_nycklar/bes_adr.asp, line 91

Vad beror detta på, hoppas verkligen kunna få hjälp med detta.
Jag kommer inte så bra överens med sökfunktionen på wF, så lite hjälp vore toppen ;)