Re: Web Re-direct in LotusScript

Assuming you've declared everything, try cDoc.Personalized(0) = "Y".  Error
trapping will help you with odd things like this.  I have a routine that
writes notes documents of errors, with a view of just the errors so I can
check for problems from all my web agents.

Sandy

----- Original Message -----
From: <jtechmeier@xxxxxxxxxxxxxx>
To: "Lotus Domino on the iSeries / AS400" <domino400@xxxxxxxxxxxx>
Sent: Wednesday, May 28, 2003 5:19 PM
Subject: Web Re-direct in LotusScript


> I have an agent that is adding documents to a database and depending on
> whether additional information is needed, I want to display one of two
> forms upon it's completion. Here is the code snippet I'm having a problem
> with:
>
>
>         Dim vPath As Variant
>         Dim vOption As String
>
>         'Set URL path for return
>         vPath=Evaluate({@ReplaceSubstring (@Subset (@DbName; -1); "\\" : "
> "; "/" : "+")})
>
>         If cDoc.Personalized = "Y" Then
>                 vOption="/OrderItemLookup/" & oiDoc.UniversalID &
> "?EditDocument"
>         Else
>                 vOption="/cart?ReadForm"
>         End If
>
>         Print "[" + vPath(0) + vOption + "&CartID=" + vCartID(0) + "]"
>
>
> When I run the agent as listed, I receive the "Agent done" web page. If I
> comment out the "If", "Else", "End If" and either of the "vOption="
> statements, I get the results I want. It doesn't matter which "vOption="
> statements I comment out, they both work.
>
> Can anyone tell me why it doesn't work with the "If" statement activated?
>
> John Techmeier
> IT Director
> The Medalcraft Mint, Inc.
> Phone:  920-499-4249
> Fax:    920-499-7092
> Email:  jtechmeier@xxxxxxxxxxxxxx
> http://www.medalcraft.com
> _______________________________________________
> This is the Lotus Domino on the iSeries / AS400 (Domino400) mailing list
> To post a message email: Domino400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/domino400
> or email: Domino400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/domino400.
>