Checkbox problem....

Jag har en checkbox man kryssar i och allt funkar när man sparar i databasen då sparas det "riktigt" med true och false alttså ikryssad om man har kryssat i den ;)

men när jag skal hämta från databasen och visa i en lista så använder jag nedanstående kod, men allt blir 'ja' i listan under kolumnen |kommer|

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=bdab1;UID=;PWD="
SQL = "SELECT SUM(antal) AS TotSum FROM index"
rs.Open SQL, MinCon
%><br>
		
Totalt antal personer:&nbsp;<%=RS("TotSum")%>	
<%rs.close%><br>
		<br>
		<table border="0" cellpadding="4" cellspacing="0" width="500">
			<tr>
				<td bgcolor="#eaeaea"><span class="bold">F&ouml;retag:</span></td>
				<td bgcolor="#eaeaea"><span class="bold">Namn:</span></td>
				<td bgcolor="#eaeaea"><span class="bold">Antal:</span></td>
				<td bgcolor="#eaeaea"><span class="bold">Kommer:</span></td>
			</tr>

		<!-- Öppnar jobbdatabasen -->
					<%
					Set MinCon = Server.CreateObject("ADODB.Connection")
					Set rs = Server.CreateObject("ADODB.Recordset")
					MinCon.Open "DSN=bdab1;UID=;PWD="
					SQL = "SELECT * From index ORDER BY Foretag ASC"
					rs.Open SQL, MinCon
											
					If rs("Kommer") Then
					kom = "Ja"
					Else
					kom = "Nej"
					End If
					%><!-- Skapar tabellen med posterna --><%
						Do While Not rs.EOF
						%>
							<tr>
								<td><%=rs("Foretag")%></td>
								<td><%=rs("Namn")%></td>
								<td><%=rs("Antal")%></td>
								<td><%=kom%></td>
							</tr>

						<!-- Stänger databasen --><%
						rs.MoveNext
						Loop
						rs.Close
						%></table>	

	</body>

</html>

Snälla hjälp varför fungerar inte if-satsen?????

Tack på förhand

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd