関数aspを作る？

Question

私は、有効な秋のような学期####または春をチェックする機能を作成しようとしています####と私は

マイクロソフトのVBScriptコンパイルエラー「800a03f6」
予想される「終了」このエラーを取得しておきます
エルス
^

ここ

私のコードがある...

Function IsSemester(UserInput) 
' Validation: Spring, Fall 

Temp=UserInput 

If Len(Temp)=9 Then IsSemester=True 

For P=1 to 4 

If Left(Temp,P,1)<>"Fall" Then IsSemester=False 

Next 

If Mid(Temp,5,1)<>" " Then IsSemester=False 

For P=6 to 9 

If Not IsInteger(Mid(Temp,P,9)) Then IsSemester=False 

Next 

Else 

IsSemester=True 

End If 

If Len(Temp)=11 Then IsSemester=True 

For C=1 to 6 

If Left(Temp,C,6)<>"Spring" Then IsSemester=False 

Next 

If Mid(Temp,7,1)<>" " Then IsSemester=False 

For C=8 to 11 

If Not IsInteger(Mid(Temp,8,11)) Then IsSemester=False 

Next 

Else 

IsSemester=True 
End If 
End Function 

Answer 1

コードをインデントしすぎると、問題が見つかるでしょう。

Function IsSemester(UserInput) 
' Validation: Spring, Fall 

    Temp=UserInput 

    If Len(Temp)=9 Then IsSemester=True 

    For P=1 to 4 

     If Left(Temp,P,1)<>"Fall" Then IsSemester=False 

    Next 

    If Mid(Temp,5,1)<>" " Then IsSemester=False 

    For P=6 to 9 

     If Not IsInteger(Mid(Temp,P,9)) Then IsSemester=False 

    Next 

    Else 

     IsSemester=True 

    End If 

    If Len(Temp)=11 Then IsSemester=True 

    For C=1 to 6 

     If Left(Temp,C,6)<>"Spring" Then IsSemester=False 

    Next 

    If Mid(Temp,7,1)<>" " Then IsSemester=False 

    For C=8 to 11 

     If Not IsInteger(Mid(Temp,8,11)) Then IsSemester=False 

    Next 

    Else 

     IsSemester=True 
    End If 
End Function 

あなたは

IF Len(temp)=9 Then IsSemester=True 

文、THENの後に同じライン上の唯一のステートメントは、その条件によって制御される場合は、そのため次の行のForループで、スタンドアロンであることを意味し使用している場合そのIFに関連しない別個の声明。コードを

If Len(Temp)=9 Then 
    IsSemester = True 

    '<whatever your code here> 
End If