<codeColoring xmlns:MMString="http://www.macromedia.com/schemes/data/string/">
	<scheme MMString:name="VBScript/scheme/name" id="VBScript" doctypes="VBScript" priority="20">
		<ignoreCase>Yes</ignoreCase>
		<ignoreTags>Yes</ignoreTags>
		<defaultText MMString:name="CodeColor_VBScriptDefaultText/defaultText/name" id="CodeColor_VBScriptDefaultText" />
		<blockStart doctypes="ASP-VB" scheme="customText" MMString:name="CodeColoring/CodeColoring/CodeColor_ASPDirBlock/blockStart/name" id="CodeColor_VBSBlock"><![CDATA[<%]]></blockStart>
		<blockEnd><![CDATA[%>]]></blockEnd>
		<blockStart doctypes="ASP-VB" scheme="outerTag"><![CDATA[<script\s+runat\s*=\s*"server">]]></blockStart>
		<blockEnd><![CDATA[</script>]]></blockEnd>
		<blockStart doctypes="ASP-JS,ASP-VB,ASP.NET_CSharp,ASP.NET_VB" scheme="outerTag"><![CDATA[<script\s+language\s*=\s*"VBScript"\s+runat\s*=\s*"server">]]></blockStart>
		<blockEnd><![CDATA[</script>]]></blockEnd>
		<endOfLineComment MMString:name="CodeColor_CSharpComment/blockStart/name" id="CodeColor_VBSComment"><![CDATA[']]></endOfLineComment>
		<stringStart MMString:name="CodeColor_VBSString/stringStart/name" id="CodeColor_VBSString"><![CDATA["]]></stringStart>
		<stringEnd><![CDATA["]]></stringEnd>
		<brackets MMString:name="CodeColor_VBSBracket/brackets/name" id="CodeColor_VBSBracket"><![CDATA[([])]]></brackets>
		<operators MMString:name="CodeColor_VBSOperator/operators/name" id="CodeColor_VBSOperator"><![CDATA[+-*/%=<>&^]]></operators>
		<numbers MMString:name="CodeColor_VBSNumber/numbers/name" id="CodeColor_VBSNumber" />
		<idChar1>_$abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ</idChar1>
		<idCharRest MMString:name="CodeColoring/CodeColoring/CodeColor_Identifier" id="CodeColor_VBSIdentifier">_$abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789</idCharRest>
		<functionKeyword MMString:name="CodeColoring/CodeColoring/CodeColor_ASRemoteFunction/functionKeyword/name" id="CodeColor_VBSFunction">Function</functionKeyword>
		<functionKeyword>Sub</functionKeyword>
		<keywords MMString:name="CodeColoring/CodeColoring/CodeColor_JavascriptReserved/keywords/name" id="CodeColor_VBSReserved">
			<keyword>And</keyword>
			<keyword>As</keyword>
			<keyword>ByRef</keyword>
			<keyword>ByVal</keyword>
			<keyword>Call</keyword>
			<keyword>Case</keyword>
			<keyword>Class</keyword>
			<keyword>Const</keyword>
			<keyword>Dim</keyword>
			<keyword>Do</keyword>
			<keyword>Each</keyword>
			<keyword>Else</keyword>
			<keyword>ElseIf</keyword>
			<keyword>Empty</keyword>
			<keyword>End</keyword>
			<keyword>Eqv</keyword>
			<keyword>Erase</keyword>
			<keyword>Execute</keyword>
			<keyword>ExecuteGlobal</keyword>
			<keyword>Exit</keyword>
			<keyword>Explicit</keyword>
			<keyword>False</keyword>
			<keyword>For</keyword>
			<keyword>Get</keyword>
			<keyword>Goto</keyword>
			<keyword>If</keyword>
			<keyword>Imp</keyword>
			<keyword>In</keyword>
			<keyword>Is</keyword>
			<keyword>Let</keyword>
			<keyword>Loop</keyword>
			<keyword>Mod</keyword>
			<keyword>Next</keyword>
			<keyword>Not</keyword>
			<keyword>Nothing</keyword>
			<keyword>Null</keyword>
			<keyword>On</keyword>
			<keyword>Option</keyword>
			<keyword>Or</keyword>
			<keyword>Private</keyword>
			<keyword>Preserve</keyword>			 
			<keyword>Public</keyword>
			<keyword>Randomize</keyword>
			<keyword>ReDim</keyword>
			<keyword>Rem</keyword>
			<keyword>Resume</keyword>
			<keyword>Select</keyword>
			<keyword>Set</keyword>
			<keyword>Stop</keyword>
			<keyword>Then</keyword>
			<keyword>To</keyword>
			<keyword>True</keyword>
			<keyword>Until</keyword>
			<keyword>Wend</keyword>
			<keyword>While</keyword>
			<keyword>With</keyword>
			<keyword>Xor</keyword>
		</keywords>
		<keywords MMString:name="CodeColoring/CodeColoring/CodeColor_JavascriptNative/keywords/name" id="CodeColor_VBSNative">
			<keyword>Abandon</keyword>
			<keyword>Abs</keyword>
			<keyword>AbsolutePage</keyword>
			<keyword>AbsolutePosition</keyword>
			<keyword>ActiveConnection</keyword>
			<keyword>ActualSize</keyword>
			<keyword>AddHeader</keyword>
			<keyword>AddNew</keyword>
			<keyword>AppendChunk</keyword>
			<keyword>AppendToLog</keyword>
			<keyword>Application</keyword>
			<keyword>Application_OnEnd</keyword>
			<keyword>Application_OnStart</keyword>
			<keyword>Array</keyword>
			<keyword>Asc</keyword>
			<keyword>Atn</keyword>
			<keyword>Attributes</keyword>
			<keyword>BeginTrans</keyword>
			<keyword>BinaryRead</keyword>
			<keyword>BinaryWrite</keyword>
			<keyword>BOF</keyword>
			<keyword>Bookmark</keyword>
			<keyword>Boolean</keyword>
			<keyword>Buffer</keyword>
			<keyword>CacheControl</keyword>
			<keyword>CacheSize</keyword>
			<keyword>Cancel</keyword>
			<keyword>CancelBatch</keyword>
			<keyword>CancelUpdate</keyword>
			<keyword>CBool</keyword>
			<keyword>CByte</keyword>
			<keyword>CCur</keyword>
			<keyword>CDate</keyword>
			<keyword>CDbl</keyword>
			<keyword>Charset</keyword>
			<keyword>Chr</keyword>
			<keyword>CInt</keyword>
			<keyword>Clear</keyword>
			<keyword>ClientCertificate</keyword>
			<keyword>CLng</keyword>
			<keyword>Clone</keyword>
			<keyword>Close</keyword>
			<keyword>CodePage</keyword>
			<keyword>Command</keyword>
			<keyword>CommandText</keyword>
			<keyword>CommandTimeout</keyword>
			<keyword>CommandType</keyword>
			<keyword>CompareBookmarks</keyword>
			<keyword>Connection</keyword>
			<keyword>ConnectionString</keyword>
			<keyword>ConnectionTimeout</keyword>
			<keyword>Contents</keyword>
			<keyword>ContentType</keyword>
			<keyword>Cookies</keyword>
			<keyword>Cos</keyword>
			<keyword>Count</keyword>
			<keyword>CreateParameter</keyword>
			<keyword>CreateObject</keyword>
			<keyword>CSng</keyword>
			<keyword>CStr</keyword>
			<keyword>CursorLocation</keyword>
			<keyword>CursorType</keyword>
			<keyword>Date</keyword>
			<keyword>DateAdd</keyword>
			<keyword>DateDiff</keyword>
			<keyword>DatePart</keyword>
			<keyword>DateSerial</keyword>
			<keyword>DateValue</keyword>
			<keyword>Day</keyword>
			<keyword>DefaultDatabase</keyword>
			<keyword>DefinedSize</keyword>
			<keyword>Delete</keyword>
			<keyword>Description</keyword>
			<keyword>Dictionary</keyword>
			<keyword>Direction</keyword>
			<keyword>EditMode</keyword>
			<keyword>EOF</keyword>
			<keyword>Err</keyword>
			<keyword>Error</keyword>
			<keyword>Errors</keyword>
			<keyword>Eval</keyword>
			<keyword>Execute</keyword>
			<keyword>Exp</keyword>
			<keyword>Expires</keyword>
			<keyword>ExpiresAbsolute</keyword>
			<keyword>Field</keyword>
			<keyword>Fields</keyword>
			<keyword>File</keyword>
			<keyword>FileSystem</keyword>
			<keyword>Filter</keyword>
			<keyword>Find</keyword>
			<keyword>Fix</keyword>
			<keyword>Flush</keyword>
			<keyword>Form</keyword>
			<keyword>FormatCurrency</keyword>
			<keyword>FormatDateTime</keyword>
			<keyword>FormatNumber</keyword>
			<keyword>FormatPercent</keyword>
			<keyword>GetChunk</keyword>
			<keyword>GetLocale</keyword>
			<keyword>GetObject</keyword>
			<keyword>GetRef</keyword>
			<keyword>GetRows</keyword>
			<keyword>GetString</keyword>
			<keyword>HelpContext</keyword>
			<keyword>HelpFile</keyword>
			<keyword>Hex</keyword>
			<keyword>Hour</keyword>
			<keyword>HTMLEncode</keyword>
			<keyword>Index</keyword>
			<keyword>InputBox</keyword>
			<keyword>InStr</keyword>
			<keyword>InStrRev</keyword>
			<keyword>Int</keyword>
			<keyword>Integer</keyword>
			<keyword>IsArray</keyword>
			<keyword>IsClientConnected</keyword>
			<keyword>IsDate</keyword>
			<keyword>IsEmpty</keyword>
			<keyword>IsNull</keyword>
			<keyword>IsNumeric</keyword>
			<keyword>IsObject</keyword>
			<keyword>IsolationLevel</keyword>
			<keyword>Item</keyword>
			<keyword>Join</keyword>
			<keyword>LBound</keyword>
			<keyword>LCase</keyword>
			<keyword>LCID</keyword>
			<keyword>Left</keyword>
			<keyword>Len</keyword>
			<keyword>LoadPicture</keyword>
			<keyword>Lock</keyword>
			<keyword>LockType</keyword>
			<keyword>Log</keyword>
			<keyword>LTrim</keyword>
			<keyword>MapPath</keyword>
			<keyword>MarshalOptions</keyword>
			<keyword>Match</keyword>
			<keyword>Mid</keyword>
			<keyword>Minute</keyword>
			<keyword>Mode</keyword>
			<keyword>Month</keyword>
			<keyword>MonthName</keyword>
			<keyword>Move</keyword>
			<keyword>MoveFirst</keyword>
			<keyword>MoveLast</keyword>
			<keyword>MoveNext</keyword>
			<keyword>MovePrevious</keyword>
			<keyword>MsgBox</keyword>
			<keyword>Name</keyword>
			<keyword>NativeError</keyword>
			<keyword>NextRecordset</keyword>
			<keyword>Now</keyword>
			<keyword>Number</keyword>
			<keyword>NumericScale</keyword>
			<keyword>NumericScale</keyword>
			<keyword>ObjectContext</keyword>
			<keyword>Oct</keyword>
			<keyword>OnTransactionAbort</keyword>
			<keyword>OnTransactionCommit</keyword>
			<keyword>Open</keyword>
			<keyword>OpenSchema</keyword>
			<keyword>OriginalValue</keyword>
			<keyword>PageCount</keyword>
			<keyword>PageSize</keyword>
			<keyword>Parameter</keyword>
			<keyword>Parameters</keyword>
			<keyword>Pics</keyword>
			<keyword>Precision</keyword>
			<keyword>Prepared</keyword>
			<keyword>Properties</keyword>
			<keyword>Property</keyword>
			<keyword>PropertyGet</keyword>
			<keyword>PropertyLet</keyword>
			<keyword>PropertySet</keyword>
			<keyword>Provider</keyword>
			<keyword>QueryString</keyword>
			<keyword>Raise</keyword>
			<keyword>RecordCount</keyword>
			<keyword>Recordset</keyword>
			<keyword>Redirect</keyword>
			<keyword>RegExp</keyword>
			<keyword>Replace</keyword>
			<keyword>Requery</keyword>
			<keyword>Request</keyword>
			<keyword>Response</keyword>
			<keyword>Resync</keyword>
			<keyword>RGB</keyword>
			<keyword>Right</keyword>
			<keyword>Rnd</keyword>
			<keyword>RollbackTrans</keyword>
			<keyword>Round</keyword>
			<keyword>RTrim</keyword>
			<keyword>Save</keyword>
			<keyword>ScriptEngine</keyword>
			<keyword>ScriptEngineBuildVersion</keyword>
			<keyword>ScriptEngineMajorVersion</keyword>
			<keyword>ScriptEngineMinorVersion</keyword>
			<keyword>ScriptTimeout</keyword>
			<keyword>Second</keyword>
			<keyword>Seek</keyword>
			<keyword>Server</keyword>
			<keyword>ServerVariables</keyword>
			<keyword>Session</keyword>
			<keyword>Session_OnEnd</keyword>
			<keyword>Session_OnStart</keyword>
			<keyword>SessionID</keyword>
			<keyword>SetAbort</keyword>
			<keyword>SetAllRowStatus</keyword>
			<keyword>SetComplete</keyword>
			<keyword>SetLocale</keyword>
			<keyword>Sgn</keyword>
			<keyword>Sin</keyword>
			<keyword>Size</keyword>
			<keyword>Sort</keyword>
			<keyword>Source</keyword>
			<keyword>Space</keyword>
			<keyword>Split</keyword>
			<keyword>SQLState</keyword>
			<keyword>Sqr</keyword>
			<keyword>State</keyword>
			<keyword>StaticObjects</keyword>
			<keyword>Status</keyword>
			<keyword>StrComp</keyword>
			<keyword>String</keyword>
			<keyword>StrReverse</keyword>
			<keyword>Supports</keyword>
			<keyword>Tan</keyword>
			<keyword>Test</keyword>
			<keyword>Time</keyword>
			<keyword>Timeout</keyword>
			<keyword>Timer</keyword>
			<keyword>TimeSerial</keyword>
			<keyword>TimeValue</keyword>
			<keyword>TotalBytes</keyword>
			<keyword>Trim</keyword>
			<keyword>Type</keyword>
			<keyword>TypeName</keyword>
			<keyword>UBound</keyword>
			<keyword>UCase</keyword>
			<keyword>UnderlyingValue</keyword>
			<keyword>Unlock</keyword>
			<keyword>Update</keyword>
			<keyword>UpdateBatch</keyword>
			<keyword>URLEncode</keyword>
			<keyword>URLPathEncode</keyword>
			<keyword>Value</keyword>
			<keyword>VarType</keyword>
			<keyword>Version</keyword>
			<keyword>Weekday</keyword>
			<keyword>WeekdayName</keyword>
			<keyword>Write</keyword>
			<keyword>Year</keyword>
		</keywords>
		<keywords MMString:name="CodeColoring/CodeColor_Constants" id="CodeColor_VBSConstants">
			<keyword>vbArray</keyword>
			<keyword>vbBinaryCompare</keyword>
			<keyword>vbBlack</keyword>
			<keyword>vbBoolean</keyword>
			<keyword>vbBlue</keyword>
			<keyword>vbByte</keyword>
			<keyword>vbCr</keyword>
			<keyword>vbCrLf</keyword>
			<keyword>vbCurrency</keyword>
			<keyword>vbCyan</keyword>
			<keyword>vbDataObject</keyword>
			<keyword>vbDate</keyword>
			<keyword>vbDecimal</keyword>
			<keyword>vbEmpty</keyword>
			<keyword>vbError</keyword>
			<keyword>vbFalse</keyword>
			<keyword>vbFirstJan1</keyword>
			<keyword>vbFirstFourDays</keyword>
			<keyword>vbFirstFullWeek</keyword>
			<keyword>vbFormFeed</keyword>
			<keyword>vbFriday</keyword>
			<keyword>vbGeneralDate</keyword>
			<keyword>vbGreen</keyword>
			<keyword>vbInteger</keyword>
			<keyword>vbLf</keyword>
			<keyword>vbLong</keyword>
			<keyword>vbLongDate</keyword>
			<keyword>vbLongTime</keyword>
			<keyword>vbMagenta</keyword>
			<keyword>vbMonday</keyword>
			<keyword>vbNewLine</keyword>
			<keyword>vbNull</keyword>
			<keyword>vbNullChar</keyword>
			<keyword>vbNullString</keyword>
			<keyword>vbObject</keyword>
			<keyword>vbObjectError</keyword>
			<keyword>vbRed</keyword>
			<keyword>vbSaturday</keyword>
			<keyword>vbShortDate</keyword>
			<keyword>vbShortTime</keyword>
			<keyword>vbSingle</keyword>
			<keyword>vbString</keyword>
			<keyword>vbSunday</keyword>
			<keyword>vbTab</keyword>
			<keyword>vbTextCompare</keyword>
			<keyword>vbThursday</keyword>
			<keyword>vbTrue</keyword>
			<keyword>vbTuesday</keyword>
			<keyword>vbUseDefault</keyword>
			<keyword>vbUseSystem</keyword>
			<keyword>vbUseSystemDayOfWeek</keyword>
			<keyword>vbVariant</keyword>
			<keyword>vbVerticalTab</keyword>
			<keyword>vbWednesday</keyword>
			<keyword>vbWhite</keyword>
			<keyword>vbYellow</keyword>
		</keywords>
		<sampleText><![CDATA[' VBScript sample
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
  MM_tableName = "TeamsExt"
  MM_tableCol = "Id"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_fields = "f_name,Name,',none,'',f_location,Location,',none,'',f_conf,Conference,none,none,NULL,f_div,Division,none,none,NULL,f_logo,Logo,',none,'',f_url,Url,',none,'',f_old,OldMember,none,1,0,f_comments,Comments,',none,''"
  ' create the sql update statement
  MM_updateStr = "update " & MM_tableName & " set "
  MM_fieldsArray = Split(MM_fields, ",")
  For i = LBound(MM_fieldsArray) To UBound(MM_fieldsArray) Step 5
    FormVal = CStr(Request.Form(MM_fieldsArray(i)))
    EmptyVal = MM_fieldsArray(i+4)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fieldsArray)) Then
      MM_updateStr = MM_updateStr & ","
    End If
    MM_updateStr = MM_updateStr & MM_fieldsArray(i+1) & " = " & FormVal
  Next
  MM_updateStr = MM_updateStr & " where " & MM_tableCol & " = " & MM_recordId
  ' finish the sql and execute it
  Set MM_updateCmd = Server.CreateObject("ADODB.Command")
  MM_updateCmd.ActiveConnection = "dsn=Test2000;"
  MM_updateCmd.CommandText = MM_updateStr
  MM_updateCmd.Execute
End If
]]></sampleText>
	</scheme>
</codeColoring>
