anchor.diff:  %s
     ) RETURNING %s;
   "
  +%s
     use connection = connection connectionString
     use command = command connection sql
     command
   %s
     |> executeScalar
     |> string |> int
  -  """ page.AsType page.AsVal page.AsType site.AsDatabase page.AsTable (insertColumns page) (insertValues page) idField.AsDBColumn (insertParamsTemplate page)
  +  """ page.AsType page.AsVal page.AsType site.AsDatabase page.AsTable (insertColumns page) (insertValues page) idField.AsDBColumn (passwordTemplate page) (insertParamsTemplate page)
   
   (*
   
  
positive.code:   |> List.map (pad 2)
    |> flattenWith ","
  
  let insertValues page =
    let format field =
      if field.FieldType = Id
  
negative.code:   |> List.map (pad 2)
    |> flattenWith ","
  
  let insertParamTemplate page field =
    if field.FieldType = Password
    then sprintf """|> param "%s" password""" field.AsDBColumn
    else sprintf """|> param "%s" %s.%s""" field.AsDBColumn page.AsVal field.AsProperty
  
  let insertParamsTemplate page =
    page.Fields
    |> List.filter (fun field -> field.FieldType <> Id && field.FieldType <> ConfirmPassword)
    |> List.map (insertParamTemplate page)
    |> List.map (pad 1)
    |> flatten
  
  