hämta en av varje i samma cell

Hej

Behöver lite hjälp med en funktion jag håller på mid. Har följande kod:

						set objRS1=objConn.execute("SELECT * FROM spelare WHERE playAktiv = 1")
												
						landNamn =""						
												
						if not objRS1.eof then
						
						Do While landNamn = objRS1("playNationallite")
							objRS1.Movenext
						Loop
							
						Do While NOT landNamn = objRS1("playNationallite")
							landNamn = objRS1("playNationallite")
							
								response.write "<option value="""&objRS1("playNationallite")&""">"&objRS1("playNationallite")&"</option>"
							objRS1.Movenext
						Loop

						objRS1.close
						else
						objRS1.close
						end if

jag vill att tex finns det flera Sverige i cellen så ska bara en skrivas ut osv. Hur löser jag det? Har provat med denna kod, men det skrivs inget ut. :q