selectionsboks vil ikke autoselecte
Hvad går galt?<%
Dim rs_medlem
Dim rs_medlem_numRows
Set rs_medlem = Server.CreateObject("ADODB.Recordset")
rs_medlem.ActiveConnection = MM_my_STRING
rs_medlem.Source = "SELECT * FROM medlemmer Where medlemsnr = " & session("user_id")
rs_medlem.CursorType = 0
rs_medlem.CursorLocation = 2
rs_medlem.LockType = 1
rs_medlem.Open()
rs_medlem_numRows = 0
%>
<select name="select" class="small">
<option value="NULL" selected <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("NULL" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>vælg
fødeår</option>
<option value="1930" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1930" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1930</option>
<option value="1931" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1931" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1931</option>
<option value="1932" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1932" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1932</option>
<option value="1933" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1933" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1933</option>
<option value="1934" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1934" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1934</option>
<option value="1935" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1935" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1935</option>
<option value="1936" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1936" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1936</option>
<option value="1937" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1937" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1937</option>
<option value="1938" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1938" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1938</option>
<option value="1939" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1939" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1939</option>
<option value="1940" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1940" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1940</option>
<option value="1941" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1941" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1941</option>
<option value="1942" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1942" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1942</option>
<option value="1943" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1943" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1943</option>
<option value="1944" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1944" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1944</option>
<option value="1945" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1945" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1945</option>
<option value="1946" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1946" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1946</option>
<option value="1947" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1947" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1947</option>
<option value="1948" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1948" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1948</option>
<option value="1949" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1949" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1949</option>
<option value="1950" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1950" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1950</option>
<option value="1951" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1951" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1951</option>
<option value="1952" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1952" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1952</option>
<option value="1953" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1953" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1953</option>
<option value="1954" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1954" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1954</option>
<option value="1955" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1955" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1955</option>
<option value="1956" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1956" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1956</option>
<option value="1957" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1957" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1957</option>
<option value="1958" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1958" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1958</option>
<option value="1959" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1959" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1959</option>
<option value="1960" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1960" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1960</option>
<option value="1961" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1961" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1961</option>
<option value="1962" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1962" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1962</option>
<option value="1963" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1963" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1963</option>
<option value="1964" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1964" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1964</option>
<option value="1965" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1965" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1965</option>
<option value="1966" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1966" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1966</option>
<option value="1967" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1967" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1967</option>
<option value="1968" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1968" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1968</option>
<option value="1969" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1969" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1969</option>
<option value="1970" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1970" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1970</option>
<option value="1971" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1971" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1971</option>
<option value="1982" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1982" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1972</option>
<option value="1983" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1983" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1973</option>
<option value="1984" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1984" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1974</option>
<option value="1985" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1985" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1975</option>
<option value="1986" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1986" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1976</option>
<option value="1987" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1987" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1977</option>
<option value="1988" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1988" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1978</option>
<option value="1989" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1989" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1979</option>
<option value="1980" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If ("1980" = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1980</option>
<%
While (NOT rs_medlem.EOF)
%>
<option value="<%=(rs_medlem.Fields.Item("foedeaar").Value)%>" <%If (Not isNull((rs_medlem.Fields.Item("foedeaar").Value))) Then If (CStr(rs_medlem.Fields.Item("foedeaar").Value) = CStr((rs_medlem.Fields.Item("foedeaar").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_medlem.Fields.Item("foedeaar").Value)%></option>
<%
rs_medlem.MoveNext()
Wend
If (rs_medlem.CursorType > 0) Then
rs_medlem.MoveFirst
Else
rs_medlem.Requery
End If
%>
</select>
