Duffbert's Random Musings

1 - Hi,
I desperately need help.
On the browser I need to access control documents, based on a particular field value. The user should be a member of a group defined in another database. If he is not then the document will not open for him.
This concept works fine on the client but am not able to make it work on the web. Am new to scripting browser applications. So what am doing is pasting the code that I used in the client application and please help me with the browser version.

Thank u in advance

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Dim doc As NotesDocument
Set doc = Source.Document
' On Error Goto lblErrs
If Left(doc.SegmentType(0), 12) = "Naval Vessel" Then
Dim s As New notessession
Const NotesMacro$ = "@Name([ABBREVIATE]; @UserName)"
l_username = Evaluate(NotesMacro$, doc)

Dim dlcdb As notesdatabase
Dim ccdb As New Notesdatabase("","")
Dim view As Notesview
Dim ccdoc As Notesdocument

Dim path As String

Dim key1 As String
Dim key2 As String
Dim TargetDb As String
Set dlcdb = s.CurrentDatabase

path = Left$(dlcdb.FilePath,Instr(1,dlcdb.FilePath,"\xl",2)-1)
TargetDb=path+"/db.nsf"
Opentest = ccdb.Open ( dlcdb.Server, TargetDb)
If Not Opentest Then
Print "The database could not be opened. "
Continue = False
Exit Sub
End If

key1 = "Access Group"
Set view = ccdb.GetView("Group")
Set ccdoc = view.GetdocumentbyKey(key1,True)

If ccdoc Is Nothing Then
Messagebox "The access group could not be found in the Database. ", MB_OK, "Document Locked."
Continue = False
Exit Sub
End If

Dim dc As Notesitem
Set dc = ccdoc.GetFirstItem("Group_Members")
Forall l_names In dc.Values
If l_names = l_username(0) Then
Continue = True
Exit Sub
End If
End Forall
Messagebox "This document contains technical data whose export is restricted"+Chr(10)+Chr(10)+"Please contact TQM Department if you are receiving the message in error.", MB_OK, "WARNING !!!!!"
Continue = False
Exit Sub
End If

End Sub

2 - Is it possible to use @Command([ToolsRunMacro]; "agentname") to run an agent in another database? for example:
temp:= "dbname" + /+ "agentname";
@command([ToolsRunMacro]; temp);

3 - Will that redirection be a 301/302?