Submit knap der ikke virker.

Min ene submit knap virker ikke, kan i finde fejlen, her er noget af mit script:

If Request.Form("WhatWasChosen") = "InsertDataChosen" Then
      Set objConn = Server.Createobject("ADODB.Connection")
      strConnString = "Provider=SQLOLEDB;" & _
                      "Persist Security Info=FALSE;" & _
                      "User ID=sa;" & _
                      "Password=pb16950;" & _
                      "Initial Catalog=WorkStatistics;" & _
                      "Initial File Name = C:\Programmer\Microsoft SQL Server\MSSQL\" & _
                      "DATA\WorkStatistics_Data.mdf;"
      objConn.Open strConnString
      strSQL = "SELECT Projekt_Navn_VC FROM WorkProjects_T"
      Set objRS = Server.Createobject("ADODB.Recordset")
      objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
      Response.Write "<FORM NAME='InsertData' ACITON='index.asp' METHOD='POST'>"
      Response.Write "<B>Projekt Navn: </B>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
      Response.Write "<SELECT NAME='ProjektNavn'>"
      qsStrProjectName = Request.Form("NewProject")
      If qsStrProjectName <> "" Then
        Response.Write "<OPTION>" & qsStrProjectName & "</OPTION>"
      End If
      Do While Not objRS.EOF
        strProjectName = objRS("Projekt_Navn_VC")
        If strProjectName <> lastProjectName Then
            Response.Write "<OPTION VALUE='" & strProjectName & "'>"
            Response.Write strProjectName & "</OPTION>"
            lastProjectName = strProjectName
        End If
        objRS.MoveNext
      Loop
      Response.Write "</SELECT><BR>"
      Response.Write "<FORM NAME='AddProject' ACTION='index.asp' METHOD='POST'>"
      Response.Write "<B>Tilføj Projekt: </B>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
      Response.Write "<INPUT TYPE='Text' NAME='NewProject'>"
      Response.Write "<INPUT TYPE='hidden' NAME='WhatWasChosen' VALUE='InsertDataChosen'>"
      Response.Write "&nbsp;&nbsp;&nbsp;<INPUT TYPE='submit' VALUE='Behandel'></FORM>"
      Response.Write "<B>Dato: </B>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
      Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
      Response.Write "<INPUT TYPE='Text' Value='" & Date & "' NAME='Date'><BR>"
      Response.Write "<B>Arbejdstimer: </B>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
      Response.Write "<INPUT TYPE='Text' NAME='WorkHours'><BR>"
      Response.Write "<INPUT TYPE='checkbox' NAME='ReadProject'>&nbsp;"
      Response.Write "<B>Læse Projekt</B><BR>"
      Response.Write "<B>Læst fra side:&nbsp;</B>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
      Response.Write "&nbsp;<INPUT NAME='ReadFrom' TYPE='Text'><BR>"
      Response.Write "<B>Læst til side:&nbsp;</B>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
      Response.Write "&nbsp;&nbsp;<INPUT NAME='ReadTo' TYPE='Text'><BR>"
      Response.Write "<B>Antal sider i alt:&nbsp;</B>&nbsp;&nbsp;&nbsp;"
      Response.Write "<INPUT TYPE='Text' NAME='PagesTotal'>"
      Response.Write "<INPUT TYPE='hidden' NAME='WhatWasChosenX' VALUE='InsertData'>"
      Response.Write "&nbsp;&nbsp;&nbsp;


'Det er denne her knap det er galt med:


<INPUT TYPE='submit' VALUE='Behandel'></FORM>"
  objRS.close
  Set objRS = Nothing
  objConn.close
  Set objConn = Nothing
  End If


Hvad er der galt?