VBScripting problem

Discussion created by 66stever on May 3, 2012
Latest reply on May 4, 2012 by 66stever

I am in the process of moving over to ArcGIS 10.0 and my old scripts are not working in VBscript. Over the long-run I will be learning Python and converting all my scripts to that language. However, right now I just need to get this one script to run using VBscript. I have very little scripting experience and any help in getting this code to work in VBscript would be most appreciated. Thank-you! The following error is produce when it tries to run the calculate field tool in the model:

General error executing calculator.
ERROR 999999: Error executing function.
Sub or Function not defined
Failed to execute (Calculate Field (4))

dim strA

if [STATUS] = " " then
if [LOGYEAR] <> " " and [FEATURE] like "WTP*" then
strA = [STATUS]
elseif [LOGYEAR] = " " then
strA = "CP"
strA = "NSR"
end if
elseif [STATUS] = " " and [LOGYEAR] = " " then
strA = "CP"
strA = [STATUS]
end if