Re: Forms and Agents

["Taza Dog" <tazadog@xxxxxxxxxxxx>]

You must allow anonymous access unless you plan to force the user to login
to this database...

Sandy

----- Original Message -----
From: <clib@gptruck.com>
To: <domino400@midrange.com>
Sent: Wednesday, July 31, 2002 9:41 AM
Subject: Re: Forms and Agents


>
>
> Anyone have ideas as to what could be wrong with the code and/or database?
> I could have sworn this has worked in the past, but I cant even get any
> result from a print statement in the Initialize section of a page, nor a
> form. Is there something in the database or server settings that could be
> causing it not to execute that code at all? Currently it is set to
disallow
> anonymous access and it runs all agents as the web user.
>
> The following items also appear in the Domino server log:
>
> 07/31/2002 08:14:09 AM  You are not authorized to perform this operation
> [/apps/saleswee.nsf/PrepareStatement]
> 07/31/2002 08:14:19 AM  You are not authorized to perform this operation
> [/apps/expenses.nsf/ExpenseStatement?OpenForm&CLIB_20020731]
>
> They have only appeared once in the log, but I've attempted getting this
> working several times this morning.
>
> Any ideas?
>
> Thanks,
>
> Brian A. Cline
> G&P Trucking Company
> 800.922.1147 x6068
> clib@gptruck.com
>
>
>
>
>
>                     clib@gptruck.com
>                     Sent by:                 To:
domino400@midrange.com
>                     domino400-admin@mi       cc:
>                     drange.com               Subject:     Re: Forms and
Agents
>
>
>                     07/29/2002 05:03
>                     PM
>                     Please respond to
>                     domino400
>
>
>
>
>
>
>
>
>
> So far, I have the following in the WebQueryOpen section of the form:
>
>      @Command([ToolsRunMacro]; "PopulateFields")
>
> and the following code in the PopulateFields agent. On a side note, even
if
> I remove all this code from Initialize and simply put a Print statement in
> there, it doesnt even show the text that I print.
>
> -----
> Uselsx "*LSXODBC"
> Sub Initialize
>      On Error Goto ErrorHandler
>
>      Dim DBC As New ODBCCOnnection
>      Dim DBQ As New ODBCQuery
>      Dim DBR As New ODBCResultSet
>
>      Set DBQ.Connection = DBC
>      Set DBR.Query = DBQ
>
>      Dim NS As New NotesSession
>      Dim ND As NotesDocument
>      Set ND = NS.DocumentContext
>
>      Dim dbUser As String, dbPass As String, qStr As String, qDat As
> String, qUsr As String
>      dbUser = "notesdb"
>      dbPass = "notesdb"
>
>      qStr = ND.Query_String(0)
>      If Instr(qStr, "&") = 0 Then
>           Print "<B>Invalid document identifier.</B>"
>           Exit Sub
>      End If
>
>      qLen = Len(qStr)
>      qPos = Instr(qStr, "&")
>      qUsr = Mid(DocID, 1, qPos - 1)
>      qUsr = Ucase(qUsr)
>      qDat = Mid(DocID, qPos + 1, qLen - qPos)
>
>      If Not DBC.ConnectTo("COLUMBIA", dbUser, dbPass) Then
>           Print "<B>CRITICAL ERROR ENCOUNTERED while connecting to
> database:</B>"
>           PrintDBErrors DBC, DBQ, DBR
>           Exit Sub
>      End If
>
>      startDate = GetSunday( qDat )
>      endDate = GetSaturday( qDat )
>
>      DBQ.SQL = "SELECT * FROM ITSR5CSTM.SLSPLANPF WHERE SPUSER='" & qUsr &
> "' AND SPDAT >= " & startDate & " AND SPDAT <= " & endDate
>
>      Print DBQ.SQL & "<P>"
>
> ErrorHandler:
>      Print "Script error (initialize): " & Error & "<P>"
>      Exit Sub
>
> End Sub
> -----
>
> Any ideas?
>
> Thanks,
>
> Brian Cline
> G&P Trucking Company
> clib@gptruck.com
> 800.922.1147
>
> _______________________________________________
> This is the Lotus Domino on the iSeries / AS400 (DOMINO400) mailing list
> To post a message email: DOMINO400@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/domino400
> or email: DOMINO400-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/domino400.
>
>
>
>
>
> _______________________________________________
> This is the Lotus Domino on the iSeries / AS400 (DOMINO400) mailing list
> To post a message email: DOMINO400@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/domino400
> or email: DOMINO400-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/domino400.
>