VBScripting problem

[66stever]

Hello,

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))

CODE:
dim strA

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

[curtvprice]

Expression: strA

dim strA

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

I believe "Like" is SQL, not VBScript.

You may have better luck with:

Left([FEATURE],3) = "WTP"

PS Please use [code] tags when posting code.

[66stever]

Hi Curtis,

Thank you for your help. It worked great!

Take care,

Steve