Opdatere outlook Kalender virker ikke hos alle...?

Hvorfor virker dette kun hos nogle og giver fejl hos andre ???? ---->

<html><head>

<script language=\"VBScript\">
Sub NewAppointment(strSubject, strLocation, strBesked, strTid, strDato, strVari)
    Dim App as Object
    Set App = CreateObject(\"Outlook.Application\")
    Set MyNameSpace = App.GetNamespace(\"MAPI\")
    MyNameSpace.Logon

    Set AppointmentFolder = MyNameSpace.GetDefaultFolder(9)
    Set AppointmentItem = AppointmentFolder.Items.Add

    AppointmentItem.Subject = strSubject
    AppointmentItem.Location = strLocation
    AppointmentItem.Body = strBesked
    Temp_start = (strDato & \" \" & strTid)
   
    AppointmentItem.Start = Temp_start
    AppointmentItem.Duration = strVari
    AppointmentItem.Save

    Msgbox Chr(34) & strSubject & Chr(34) & \" er nu føjet til din OutLook kalender, den \" & strDato & \" klokken \" & strTid
End Sub

Sub UpdateOutlook()
    Set myForm = Document.OutLookForm
    strEmne = Trim(myForm.Emne.Value)
    strSted = Trim(myForm.Sted.Value)
    strTid = Trim(myForm.Tid.Value)
    strDato = Trim(myForm.Dato.Value)
    strVari = Trim(myForm.Vari.Value)
    strBeskrivelse = Trim(myForm.Beskrivelse.Value)
    If Len(strEmne) = 0 Or Len(strSted) = 0 Or Len(strBeskrivelse) = 0 Or Len(strTid) = 0 Or Len(strDato) = 0 Or Len(strVari) = 0 Then
        MsgBox \"Du skal skrive i alle felterne.\"
    Else
        NewAppointment strEmne, strSted, strBeskrivelse, strTid, strDato, strVari
    End If
End Sub
</script>

</head><body>
<p><TABLE WIDTH=\"468\" CELLSPACING=0 CELLPADDING=0 BORDER=0><TR><TD align=\"center\">

<ILAYER ID=ad1 VISIBILITY=hidden HEIGHT=60></ILAYER></CENTER>
</TD></TR></TABLE></p>
<form method=\"POST\" name=\"OutLookForm\">
  <p>Emne:<br>
  <input type=\"text\" name=\"Emne\" size=\"20\"></p>
  <p>Sted:<br>
  <input type=\"text\" name=\"Sted\" size=\"20\"></p>
  <p>Dato:<br>
  <input type=\"text\" name=\"Dato\" size=\"20\" value=\"31-12-2001\"></p>
  <p>Tid:<br>
  <input type=\"text\" name=\"Tid\" size=\"5\" value=\"12:30\"></p>
  <p>Varighed (i minutter):<br>
  <input type=\"text\" name=\"Vari\" size=\"5\" value=\"60\"></p>
  <p>Beskrivelse:<br>
  <textarea rows=\"4\" name=\"Beskrivelse\" cols=\"50\"></textarea></p>
  <p>
      <input Type=\"button\" Value=\"Opdater Outlook\" OnClick=\"UpdateOutlook\"></p>
</form>

</body></html>