richfed, change your code here (lines 1116-1119) :
strSql = strSql & ", 1 "
strSQL = strSQL & ", 0 "
strSQL = strSQL & ", 0 "
strSql = strSql & ", " & cLng(Request.Form("strMessageIcon"))
and insert the line to make lines 116-1120 look like this :
strSql = strSql & ", 1 "
strSQL = strSQL & ", 0 "
strSQL = strSQL & ", 0 "
strSQL = strSQL & ", '" & Request.Form("AutoLock") & "'"
strSql = strSql & ", " & cLng(Request.Form("strMessageIcon"))