Re: Web Re-direct in LotusScript

[jtechmeier@xxxxxxxxxxxxxx]

That was it. Thank you. 

You also mentioned an error routine and view that you use for 
debugging...would you be willing to share that? I'm just getting into this 
and don't have a lot of re$ource$ available.

John Techmeier
IT Director
The Medalcraft Mint, Inc.
Phone:  920-499-4249
Fax:    920-499-7092
Email:  jtechmeier@xxxxxxxxxxxxxx
http://www.medalcraft.com




"Taza Dog" <tazadog@xxxxxxxxxxxx>
Sent by: domino400-bounces@xxxxxxxxxxxx
05/29/2003 07:52 AM
Please respond to Lotus Domino on the iSeries / AS400

 
        To:     "Lotus Domino on the iSeries / AS400" <domino400@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        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.
>

_______________________________________________
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.