Rullning problem

Jag håller på med en sida där jag vill att den skalll hämta värde från en kolumn i databasen, säg att den heter namn. Då vill jag att den ska hämta det och lägga det i en rullningslista typ option value. Så här ser koderna ut. Det jag också vill skall funka det är när man väljer ett alternativ så skall den komma till kalle.asp och nästa komma till lisa.asp osv hoppas jag har förklarat mig hyfsat.

<%

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("databas/main.mdb")
          sqlstmt = "SELECT * FROM sommar order by id desc"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 500
	If rs.eof then
		Exit For
	Else

		id = rs("id")
		email = rs("namn")

   %>

						
<select name="position" size="1" tabindex="5">
         

 <option><% =email %></option>

<%
rs.MoveNext
End If
next%>
 </select>