Re: Web Re-direct in LotusScript

[JDSchimansky@xxxxxxxxxxxxxxxx]

This wont solve your problem, but it may help you with more detailed error
information.

Add this to the first line of your script:

On Error Goto ErrorHandler

Then, at the bottom of the script, add:

ErrorHandler:
      Print "Error on line " & Cstr( Erl ) & " :: " & Cstr( Err ) & " :: "
& Cstr( Error )

This will show some detailed info on the error that is be encountered.

HTH

Jeremy S.


                                                                           
             jtechmeier@xxxxxx                                             
             raft.com                                                      
             Sent by:                                                   To 
             domino400-bounces         Lotus Domino on the iSeries / AS400 
             @midrange.com             <domino400@xxxxxxxxxxxx>            
                                                                        cc 
                                                                           
             05/28/2003 05:19                                      Subject 
             PM                        Web Re-direct in LotusScript        
                                                                           
                                                                           
             Please respond to                                             
              Lotus Domino on                                              
               the iSeries /                                               
                   AS400                                                   
             <domino400@xxxxxx                                             
                  ge.com>                                                  
                                                                           
                                                                           




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.