<% ' Map Viewer (Third Edition) by Howie Sternberg at howies@snet.net. ' Map Viewer is placed in the public domain and is "Freeware". ' Map Viewer may be freely used and redistributed, is provided "AS-IS" ' without warranty of any kind, and there is no technical support provided. ' --------------------- ' Map Feature Functions ' --------------------- Function getFeaturesAXL(sServiceType, sId, dFltrMinX, dFltrMinY, dFltrMaxX, dFltrMaxY, sField, sFieldVal, sFieldDataType, sOperator, sLogicalOperator, sSubFields, sFeatureLimit, sBeginRecord, sDoAttrib, sDoGeom, sDoEnv, sDoGlobEnv, sDoCompact, SDoSkip) ' Return request Dim i, sAXL, sWhere, sLogical, sRecordRange, aField, aFieldVal, aFieldDataType, aOperator, aLogicalOperator aField = split(sField,"|") aFieldVal = split(sFieldVal,"|") aFieldDataType = split(sFieldDataType,"|") aOperator = split(sOperator,"|") aLogicalOperator = split(sLogicalOperator,"|") If ((IsNumeric(sFeatureLimit)) and (IsNumeric(sBeginRecord))) Then sRecordRange = "featurelimit=""" & sFeatureLimit & """ beginrecord=""" & sBeginRecord & """" End If sAXL = "" sAXL = sAXL & "" sAXL = sAXL & "" sAXL = sAXL & "" sAXL = sAXL & "" For i = 0 to Ubound(aField) If (i > 0) Then sLogical = " " & aLogicalOperator(i) & " " End If If (strComp(aFieldDataType(i),"text",1) = 0) Then If (strComp(aOperator(i),"like",1) = 0) Then sWhere = sWhere & sLogical & "UPPER(" & aField(i) & ") " & aOperator(i) & " '%" & Ucase(aFieldVal(i)) & "%'" Else sWhere = sWhere & sLogical & "UPPER(" & aField(i) & ") " & aOperator(i) & " '" & Ucase(aFieldVal(i))& "'" End If Elseif (strComp(aFieldDataType(i),"number",1) = 0) Then sWhere = sWhere & sLogical & aField(i) & aOperator(i) & (aFieldVal(i)) Elseif (strComp(aFieldDataType(i),"boolean",1) = 0) Then If (strComp(aFieldVal(i),"true",1) = 0) Then sWhere = sWhere & sLogical & "(" & aField(i) & ")" Else sWhere = sWhere & sLogical & "(not " & aField(i) & ")" End If Elseif (strComp(aFieldDataType(i),"date",1) = 0) Then sWhere = sWhere & sLogical & aField(i) & aOperator(i) & getDateFormatForQuery(aFieldVal(i),sServiceType) End If Next sAXL = sAXL & "" If ((IsNumeric(dFltrMinX)) and (IsNumeric(dFltrMinY)) and (IsNumeric(dFltrMaxX)) and (IsNumeric(dFltrMaxY))) Then If ((dFltrMinX <> 0) and (dFltrMinY <> 0) and (dFltrMaxX <> 0) and (dFltrMaxY <> 0)) Then sAXL = sAXL & "" sAXL = sAXL & "" sAXL = sAXL & "" End If End If sAXL = sAXL & "" sAXL = sAXL & "" sAXL = sAXL & "" sAXL = sAXL & "" getFeaturesAXL = sAXL End Function %>