Timer om til minutter

Jeg er ved at lave et script der laver timer om til minutter, men når jeg kører det sker der absolut ingenting i databasen.Min kode ser sådan her ud:

If Request.Form("WhatWasChosen") = "ConvertNowChosen" 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 Arbejdstimer_IN, Primary_Key_BI FROM WorkProjects_T"
      Set objRS = Server.CreateObject("ADODB.Recordset")
      objRS.Open strSQL, objConn, AdOpenStatic, AdLockOptimistic, AdCmdText
      objRS.MoveFirst
      strSQL = "UPDATE WorkProjects_T SET Arbejdstimer_IN = '" & intMin & "'" & _
              " WHERE Primary_Key_BI = '" & intPrimaryKey & "'"
      While Not ObjRS.EOF
        intHours = objRS("Arbejdstimer_IN")
        intHours = CInt(intHours)
        intMin = intHours * 60
        intPrimaryKey = objRS("Primary_Key_BI")
        objConn.Execute (strSQL)
        objRS.MoveNext
      Wend
      objRS.Close
      Set objRS = Nothing
      objConn.Close
      Set objConn = Nothing
  End If

Hvad er der galt?