QuerySave-Befehl in WebQuerySave-Agent umwandeln?

    Hallo!


    Kann mir jemand sagen wie ich folgenden QuerySave-Befehl anpassen muss, damit er im Web funktioniert als Webquerysave-Agent o.ä.?
    Ist u.g. Logik überhaupt möglich aus dem Web?
    Vielen Dank!



    Sub Querysave(Source As Notesuidocument, Continue As Variant)
    Dim ss As New NotesSession
    Dim view As NotesView
    Dim doc, docPrev As NotesDocument

    If source.document.nummer(0) = "" Then
    Set view = ss.currentdatabase.GetView("(Nummer)")
    Set doc = view.GetLastDocument
    If doc Is Nothing Then
    source.document.nummer = 1
    Exit Sub
    End If
    Set docPrev = view.GetPrevDocument(doc)
    If Not docPrev Is Nothing Then
    source.document.nummer = doc.nummer(0) + 1
    Else
    source.document.nummer = 2
    End If
    End If
    End Sub

    Vielen Dank für die schnelle Antwort.


    Das Folgende sollte doch eigentlich funktionieren, oder? Tut es aber nicht :(


    Sub Initialize
    Dim ss As New NotesSession
    Dim view As NotesView
    Dim doc, docPrev, doc1 As NotesDocument

    Set doc = ss.DocumentContext

    If doc.nummer(0) = "" Then
    Set view = ss.currentdatabase.GetView("(Nummer)")
    Set doc1 = view.GetLastDocument
    If doc1 Is Nothing Then
    doc.nummer = 1
    Exit Sub
    End If
    Set docPrev = view.GetPrevDocument(doc1)
    If Not docPrev Is Nothing Then
    doc.nummer = doc1.nummer(0) + 1
    Else
    doc.nummer = 2
    End If
    End If

    End Sub