PDA

View Full Version : Weird Errors


RobbyH
01-27-2003, 05:16 PM
When previewing my project, I get a weird error. It syas nothing except "error", with a exclamation mark picture in a triangle.
I have had this problem twice now, although one seems to have disappeared. Both times seem to be in action lists using if, else, and end if statements. I have gone over this stuff in the help, and see nothing I have done wrong. I have at least 5-10 of these statements, that look like this.

if something= something
do this
else
do this
if something2=something2
else
do this

And it continues like this. At the end I have an end if.
Have I done something wrong?
eric_darling
01-27-2003, 05:34 PM
Each if statement needs its own endif, I think.
RobbyH
01-27-2003, 05:56 PM
The actions are completed, despite the errors. I am not sure if that would be the reason.
TJ_Tigger
01-27-2003, 07:30 PM
Can you do a Ctrl+Shft+C and copy and paste the actions here?
RobbyH
01-27-2003, 08:37 PM
Yes. I noticed that when if it gets all the way to the part where it pops up a message box saying you can only have "10 questions", it doesn't do it. I'm trying to work with that to figure it out, but I could use the help, I've tried everything.

The actions are

<IR_ACTIONS_LIST>
<Action name="Get Information">
<Type>136</Type>
<Function>0</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<DialogTitle>Holley Easy Diary</DialogTitle>
<FieldTitle>Please enter your question</FieldTitle>
<DefaultText>Example: What was a good thing that happened to you today?</DefaultText>
<BrowseType>0</BrowseType>
<Mask>0</Mask>
<Variable>%newquestion%</Variable>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%newquestion% = ""</Condition>
</Action>
<Action name="Message Box">
<Type>5</Type>
<Function>0</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<DialogTitle>Holley Easy Diary</DialogTitle>
<DialogMessage>You did not type anything.</DialogMessage>
<Icon>2</Icon>
<Variable>%Result%</Variable>
<DialogType>0</DialogType>
<DefaultButton>0</DefaultButton>
</Action>
<Action name="END IF">
<Type>201</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%newquestion% = CANCEL</Condition>
</Action>
<Action name="RETURN">
<Type>207</Type>
<Function>1</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="END IF">
<Type>201</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Get Value">
<Type>100</Type>
<Function>0</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%makequestion%</Variable>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question1</ValueName>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%makequestion% = ""</Condition>
</Action>
<Action name="Remove">
<Type>120</Type>
<Function>0</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<TargetListBox>ListBox1</TargetListBox>
<RemoveType>1</RemoveType>
<Index/>
<IndexDelimiter>;;</IndexDelimiter>
</Action>
<Action name="Set Value">
<Type>20</Type>
<Function>0</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question1</ValueName>
<ValueData>%newquestion%</ValueData>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Get Value">
<Type>100</Type>
<Function>0</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%makequestion%</Variable>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question2</ValueName>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%makequestion% = ""</Condition>
</Action>
<Action name="Remove">
<Type>120</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<TargetListBox>ListBox1</TargetListBox>
<RemoveType>1</RemoveType>
<Index/>
<IndexDelimiter>;;</IndexDelimiter>
</Action>
<Action name="Set Value">
<Type>20</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question2</ValueName>
<ValueData>%newquestion%</ValueData>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>1</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Get Value">
<Type>100</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%makequestion%</Variable>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question3</ValueName>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%makequestion% = ""</Condition>
</Action>
<Action name="Remove">
<Type>120</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<TargetListBox>ListBox1</TargetListBox>
<RemoveType>1</RemoveType>
<Index/>
<IndexDelimiter>;;</IndexDelimiter>
</Action>
<Action name="Set Value">
<Type>20</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question3</ValueName>
<ValueData>%newquestion%</ValueData>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Get Value">
<Type>100</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%makequestion%</Variable>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question4</ValueName>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%makequestion% = ""</Condition>
</Action>
<Action name="Remove">
<Type>120</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<TargetListBox>ListBox1</TargetListBox>
<RemoveType>1</RemoveType>
<Index/>
<IndexDelimiter>;;</IndexDelimiter>
</Action>
<Action name="Set Value">
<Type>20</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question4</ValueName>
<ValueData>%newquestion%</ValueData>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Get Value">
<Type>100</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%makequestion%</Variable>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question5</ValueName>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%makequestion% = ""</Condition>
</Action>
<Action name="Remove">
<Type>120</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<TargetListBox>ListBox1</TargetListBox>
<RemoveType>1</RemoveType>
<Index/>
<IndexDelimiter>;;</IndexDelimiter>
</Action>
<Action name="Set Value">
<Type>20</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question5</ValueName>
<ValueData>%newquestion%</ValueData>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Get Value">
<Type>100</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%makequestion%</Variable>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question6</ValueName>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%makequestion% = ""</Condition>
</Action>
<Action name="Remove">
<Type>120</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<TargetListBox>ListBox1</TargetListBox>
<RemoveType>1</RemoveType>
<Index/>
<IndexDelimiter>;;</IndexDelimiter>
</Action>
<Action name="Set Value">
<Type>20</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question6</ValueName>
<ValueData>%newquestion%</ValueData>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Get Value">
<Type>100</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%makequestion%</Variable>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question7</ValueName>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%makequestion% = ""</Condition>
</Action>
<Action name="Remove">
<Type>120</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<TargetListBox>ListBox1</TargetListBox>
<RemoveType>1</RemoveType>
<Index/>
<IndexDelimiter>;;</IndexDelimiter>
</Action>
<Action name="Set Value">
<Type>20</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question7</ValueName>
<ValueData>%newquestion%</ValueData>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Get Value">
<Type>100</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%makequestion%</Variable>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question8</ValueName>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%makequestion% = ""</Condition>
</Action>
<Action name="Remove">
<Type>120</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<TargetListBox>ListBox1</TargetListBox>
<RemoveType>1</RemoveType>
<Index/>
<IndexDelimiter>;;</IndexDelimiter>
</Action>
<Action name="Set Value">
<Type>20</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question8</ValueName>
<ValueData>%newquestion%</ValueData>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Get Value">
<Type>100</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%makequestion%</Variable>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question9</ValueName>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%makequestion% = ""</Condition>
</Action>
<Action name="Remove">
<Type>120</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<TargetListBox>ListBox1</TargetListBox>
<RemoveType>1</RemoveType>
<Index/>
<IndexDelimiter>;;</IndexDelimiter>
</Action>
<Action name="Set Value">
<Type>20</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question9</ValueName>
<ValueData>%newquestion%</ValueData>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Get Value">
<Type>100</Type>
<Function>0</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Variable>%makequestion%</Variable>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question10</ValueName>
</Action>
<Action name="IF">
<Type>200</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<Condition>%makequestion% = ""</Condition>
</Action>
<Action name="Remove">
<Type>120</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<TargetListBox>ListBox1</TargetListBox>
<RemoveType>1</RemoveType>
<Index/>
<IndexDelimiter>;;</IndexDelimiter>
</Action>
<Action name="Set Value">
<Type>20</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<FileName>%SrcDir%\files\%username%\%username%options.ini</FileName>
<Section>questions</Section>
<ValueName>question10</ValueName>
<ValueData>%newquestion%</ValueData>
</Action>
<Action name="ELSE">
<Type>206</Type>
<Function>1</Function>
<DTIndentLevel>2</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="Message Box">
<Type>5</Type>
<Function>0</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
<DialogTitle>Holley Easy Diary</DialogTitle>
<DialogMessage>You can only have ten questions.</DialogMessage>
<Icon>3</Icon>
<Variable>%Result%</Variable>
<DialogType>0</DialogType>
<DefaultButton>0</DefaultButton>
</Action>
<Action name="RETURN">
<Type>207</Type>
<Function>1</Function>
<DTIndentLevel>3</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
<Action name="END IF">
<Type>201</Type>
<Function>1</Function>
<DTIndentLevel>0</DTIndentLevel>
<Enabled>1</Enabled>
<ErrorHandling>
<UserNotificationMode>2</UserNotificationMode>
<CustomErrorMessage/>
<OnErrorAction>0</OnErrorAction>
<JumpToLabel/>
</ErrorHandling>
</Action>
</IR_ACTIONS_LIST>

Thanks, Rob
TJ_Tigger
01-28-2003, 08:18 AM
First, I would put an ENDIF after each IF statement. Here are the actions listed in short hand. You only have three END IF statements. Two for the first two statements and one at the very end. I would change this first. Also, can you provide a description of what it is you are trying to do? It looks like you are asking for the user to input questions, is this correct?

thanks
Tigger

%newquestion% = Dialog.GetInformation ("Holley Easy Diary", "Please enter your question")
IF (%newquestion% = "")
%Result% = Dialog.MessageBox ("Holley Easy Diary", "You did not type anything.", Ok, Information)
END IF
IF (%newquestion% = CANCEL)
RETURN
END IF
%makequestion% = INIFile.GetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question1")
IF (%makequestion% = "")
ListBoxObject[ListBox1].Remove (All)
INIFile.SetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question1", "%newquestion%")
ELSE
%makequestion% = INIFile.GetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question2")
IF (%makequestion% = "")
ListBoxObject[ListBox1].Remove (All)
INIFile.SetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question2", "%newquestion%")
ELSE
%makequestion% = INIFile.GetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question3")
IF (%makequestion% = "")
ListBoxObject[ListBox1].Remove (All)
INIFile.SetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question3", "%newquestion%")
ELSE
%makequestion% = INIFile.GetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question4")
IF (%makequestion% = "")
ListBoxObject[ListBox1].Remove (All)
INIFile.SetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question4", "%newquestion%")
ELSE
%makequestion% = INIFile.GetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question5")
IF (%makequestion% = "")
ListBoxObject[ListBox1].Remove (All)
INIFile.SetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question5", "%newquestion%")
ELSE
%makequestion% = INIFile.GetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question6")
IF (%makequestion% = "")
ListBoxObject[ListBox1].Remove (All)
INIFile.SetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question6", "%newquestion%")
ELSE
%makequestion% = INIFile.GetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question7")
IF (%makequestion% = "")
ListBoxObject[ListBox1].Remove (All)
INIFile.SetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question7", "%newquestion%")
ELSE
%makequestion% = INIFile.GetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question8")
IF (%makequestion% = "")
ListBoxObject[ListBox1].Remove (All)
INIFile.SetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question8", "%newquestion%")
ELSE
%makequestion% = INIFile.GetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question9")
IF (%makequestion% = "")
ListBoxObject[ListBox1].Remove (All)
INIFile.SetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question9", "%newquestion%")
ELSE
%makequestion% = INIFile.GetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question10")
IF (%makequestion% = "")
ListBoxObject[ListBox1].Remove (All)
INIFile.SetValue ("%SrcDir%\files\%username%\%username%options.ini", "questions", "question10", "%newquestion%")
ELSE
%Result% = Dialog.MessageBox ("Holley Easy Diary", "You can only have ten question...", Ok, Question)
RETURN
END IF
Derek
01-28-2003, 11:01 AM
May be easier to export the page and attach it
RobbyH
01-29-2003, 12:28 AM
How do you attach things anyway? I wanted to do so another time, but couldn't find how to do it.
Derek
01-29-2003, 05:43 PM
Um ... seems to have gone! Corey, what you done with it??
_acecombat_
01-30-2003, 04:25 AM
Corey ate it! Well anywayz u could always upload to a free site server such as tripod while the upload thingy isnt here coz thats the only thing i can think of