作成者	カテゴリ	返答の対象		公開
なりたて管理者 09/25/2002 04:38 PM		Webエージェントで文書の参照回数を算出（複数サーバでレプリカ）

実行権限についてはめでたく！解決しました。

エージェントを作ったわけですが、下のエージェントが動きません。（Notesでは正常に動作します）
Web用のエージェントを作ったのは初めてで、デバッグさえできない状態です。

ローカルで実行したときのエラーは確認できたのですが、さっぱり分かりません。
＜エラー＞
HTTP Web Server: 例外 - ロータスノーツの例外。 - 文書の識別名が無効です。


どなたか、こんな私にアドバイスをください。

Sub Initialize
'フォームのWebQueryOpenイベントで実行
　　Dim Session As New NotesSession
　　Dim Countdoc As NotesDocument
　　Dim doc As NotesDocument
　　Dim Number As Double
　　Dim ChkNum As Double
　　Dim DocIDStr As String
　　Dim Server As String
　　Dim Db As NotesDatabase
　　Dim View As Notesview
　　
'現在のDBを取得
　　Set Db = Session.CurrentDatabase
　　Set View = db.getview("CounterView")
　　Server = Db.Server

　　'ローカルのDBの場合は処理を抜ける
　　if Server = Null Then
　　　　Exit Sub
　　End if

'集計対象の文書を取得
　　Set Doc = Session.DocumentContext

'新規文書のときは処理を抜ける
　　If doc Is Nothing Then
　　　　Exit Sub
　　End If

'集計用の文書を取得する
　　DocIDstr=doc.UniversalID
　　Set Countdoc = View.Getdocumentbykey(Server & "~" & Cstr(DocIDstr))

'集計用の文書が存在しない場合は、文書を作成し、処理を抜ける
　　If Countdoc Is Nothing Then
　　　　Set Countdoc = New NotesDocument(db)
　　　　Countdoc.Counter = 1
　　　　Countdoc.Form="CountForm"
　　　　Countdoc.SearchKey = Server & "~" & Cstr(DocIDstr)
　　　　Call Countdoc.appenditemvalue("SearchKey2", Cstr(DocIDStr))
　　　　Countdoc.Code = Doc.Code

'作成者に対して編集権限を与える。
　　　　Set FromItem = New NotesItem(CountDoc, "From", "[Reader]",AUTHORS )
　　　　Call Countdoc.save(False , False)
　　　　Exit Sub
　　End If

　　ChkNum = Countdoc.Counter(0)
　　If Cstr(ChkNum) = "" Then
　　　　Number = 1
　　Else
　　　　Number = ChkNum + 1
　　End If
　　
　　Countdoc.Counter = Number
　　Call Countdoc.save(False,False)
End Sub