Val i drop

     Response.Write("<Form name=""Pos"" action="""& Request.ServerVariables("SCRIPT_NAME") & "?Sasong1=" & Sasong1 &""" method=""post"">")
     Response.Write("<SELECT name=""Position"" OnChange=""this.form.submit();"">")
     Response.Write("<OPTION value=""x"">-- VÄLJ --</OPTION>")
     Response.Write("<OPTION value=0>Alla</OPTION>")
     Response.Write("<OPTION value=1>Alla anfallare</OPTION>")
     Response.Write("</SELECT>")
If request.form("Pos") <> "" then
Pos=request.form("Pos")
End If
If Isnumeric(Pos) then
If Pos=0 Then
strSQL = "SELECT * FROM Nästa_säsongs_trupp WHERE Sasong='"&Sasong1&"' ORDER BY Nr ASC"
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Open strSQL,objConn
    strSQL1 = "SELECT * FROM Nästa_säsongs_trupp WHERE Sasong='"&Sasong1&"' ORDER BY Nr ASC"
	Set objRS1 = Server.CreateObject("ADODB.Recordset")
	objRS1.Open strSQL1,objConn
End If
End If
If request.form("Pos") <> "" then
Pos=request.form("Pos")
End If
If Isnumeric(Pos) then
If Pos=1 Then
    strSQL = "SELECT * FROM Nästa_säsongs_trupp WHERE (Position='F.' OR Position='CE.') AND Sasong='"&Sasong1&"' ORDER BY Nr ASC"
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Open strSQL,objConn
End If
End If

Jag får inte den inte att välja "Alla anfallare" när jag tar valet i drop'en. Den tar första valet.

Vad gör jag för fel?