Updateform virker på en profil, men ikke en anden

Hejsa!
Jeg har forsøgt mig på en opdateringsformular i næsten 3 dage nu og kan simpelthen ikke komme videre. Opdateringsformularen er aftestet hos 6 brugere nu og jeg får forskellige resultater.
Eksempelvis har jeg logget mig på samme Citrix-server med 2 forskellige brugere. Den ene bruger kan benytte opdateringen uden problemer, men den anden kan ikke - det forstår jeg bare ikke, når det er ASP.

Formularen:
<% mode = Request.QueryString("mode")%>

<% If mode = "update" then

    '######################################## Start på opgaveopdatering ########################################
    Set dbsupport = CreateObject("ADODB.Connection")
    strConn = "dsn=xxxxxx"
    dbsupport.Open strConn

    'StrDate = Year(Date) & "-" & Right("0" & Month(Date),2) & "-" & Right("0" & Day(Date),2)
    StrDate = Right("0" & Day(Date),2) & "-" & Right("0" & Month(Date),2) & "-" & Year(Date)
    'StrDate = Year(Date) & Month(Date) & Day(Date)

    Tekst = Request.Form("ny_prioritet")
    Priornr = Request.Form("ny_priornr")
    tidsestimat = Request.Form("tidsestimat")
    tidsestimat = CDBL(tidsestimat)

    if StrRekvirentLogon = initialer then
        StrNyDeadline = request.form("ny_deadline")
        deadline = Right("0" & Day(StrNyDeadline),2) & "-" & Right("0" & Month(StrNyDeadline),2) & "-" & Year(StrNyDeadline)
        'deadline = Year(StrNyDeadline) & "-" & Right("0" & Month(StrNyDeadline),2) & "-" & Right("0" & Day(StrNyDeadline),2)
        'deadline = Day(StrNyDeadline) & "-" & Month(StrNyDeadline) & "-" & Year(StrNyDeadline)
      else
        'minvar = StrDeadline
        'dim temp
        'temp = split(minvar, "-")
        'deadline = temp(1)&"-"&temp(0)&"-"&temp(2)

        StrNyDeadline = StrDeadline
        'deadline = Year(StrNyDeadline) & "-" & Right("0" & Month(StrNyDeadline),2) & "-" & Right("0" & Day(StrNyDeadline),2)
        deadline = Right("0" & Day(StrNyDeadline),2) & "-" & Right("0" & Month(StrNyDeadline),2) & "-" & Year(StrNyDeadline)
        'deadline = Day(StrNyDeadline) & "-" & Month(StrNyDeadline) & "-" & Year(StrNyDeadline)
    end if

    Status = Request.Form("ny_status")
    Ansvarlig = Request.Form("ny_ansvarlig")
    StrSlutDate = Right("0" & Day(Date),2) & "-" & Right("0" & Month(Date),2) & "-" & Year(Date)
    'StrSlutDate = Year(Date) & "-" & Right("0" & Month(Date),2) & "-" & Right("0" & Day(Date),2)
    Slutdato = StrSlutdate & " " & time
    lostaf = initialer
    NyKategori = request.form("ny_kategori")

    if request.form("afsluttet") <> "" then
        check_afsluttet = 1    'Eller true
        Status = "Afsluttet"
      else
        check_afsluttet = 0    'Eller false
    end if

    if request.form("Vist") <> "" then
        check_Vist = 1    'Eller true
      else
        check_Vist = 0    'Eller false
    end if

        'SQLstmt = "UPDATE opgave SET Prioritet = '" & Tekst & "',Priornr = '" & Priornr & "',deadline = '" & deadline & "',Tidsestimat = '" & tidsestimat & "',Status = '" & Status & "',Ansvarlig = '" & Ansvarlig & "',Slutdato = '" & Slutdato & "',Afsluttet = '" & check_afsluttet & "', Vist = '" & check_vist & "', lostaf = '" & lostaf & "', kategori = '" & NyKategori & "' WHERE ID ="&request("ID") #Bruges som sikerhedskopi
        SQLstmt = "UPDATE opgave SET Prioritet = '" & Tekst & "',Priornr = '" & Priornr & "',deadline = '" & deadline & "',Tidsestimat = '" & tidsestimat & "',Status = '" & Status & "',Ansvarlig = '" & Ansvarlig & "',Afsluttet = '" & check_afsluttet & "', Vist = '" & check_vist & "', lostaf = '" & lostaf & "', kategori = '" & NyKategori & "' WHERE ID ="&request("ID")
        'SQLstmt = SQLstmt & "VALUES ('" & Request.Form("ny_prioritet") & "','" & Request.Form("ny_priornr") & "','" & deadline & "','" & Request.Form("tidsestimat") & "','" & Afsluttet & "','" & Request.Form("ny_ansvarlig") & "','" & slutdato & "','" & Request.Form("check_afsluttet") & "','" & Request.Form("check_afsluttet") & "','" & lostaf & "','" & request.form("ny_kategori") & "')"
        response.write "<br>" & SQLstmt

        dbsupport.Execute (SQLstmt)
        dbsupport.Close
        Set dbsupport = nothing
        Set SQLstmt = nothing
       
        If check_vist = 1 then
            SQL_viden = "SELECT * from opgave WHERE ID =" & request("ID")
            set rs_viden = Conn.Execute(sql_viden)

            Betegnelse = rs_viden("Betegnelse")
            Betegnelse = replace(Betegnelse,"'","''")
            Kategori = rs_viden("kategori")
            Problem = rs_viden("problem")
            Problem = replace(problem,"'","''")
            Vis_intranet = 1
            refid= request("id")

            set DBCMD1 = Server.CreateObject("ADODB.Connection")
            DBCMD1.Open = "DSN=websupport"
            strCreateNew="Insert into videndeling (Betegnelse,Kategori,Problem,Vis_intranet,dato, refid)VALUES ('" & Betegnelse & "','" & Kategori & "','" & problem & "','" & vis_intranet & "','" & slutdato & "','" & refid & "')"
            'response.write "<br><br>" & strCreateNew
            DBCMD1.Execute strCreateNew
            DBCMD1.Close
            set DBCMD1 = nothing

            rs_viden.Close
            Set rs_viden = Nothing
            Set SQL_viden = Nothing
        End if
   
    '######################################## slut på opgaveopdatering ######################################## %>

<% response.redirect "default.asp" %>

<% End if %>

Når jeg får fejlen er det:
UPDATE opgave SET Prioritet = '98',Priornr = '',deadline = '24-09-2003',Tidsestimat = '0',Status = 'EJ PÅBEGYNDT',Ansvarlig = 'JEJ',Afsluttet = '0', Vist = '0', lostaf = 'JEJ', kategori = 'CSG                                              ' WHERE ID =13065

Microsoft OLE DB Provider for ODBC Drivers
error '80040e07'

[Microsoft][ODBC SQL Server Driver][SQL Server]The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.

/websupport_v2/inc_vis_opgave.asp, line 546

Det driver mig til vanvid!!!