varieabel hjælp

Jeg har lavet et lille script som der lægger 1 til et feldt i min database som hedder gang. her er det men der er en fejl i som jeg ikke selv kan rette!

        login = CInt(RS.Fields(\"gang\")) + 1
Const adOpenKeyset = 1
Const adLockOptimistic = 3

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From medlemmer\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      alogin = Request.form(\"gang\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing