Function UnReplaceChar(sSource)
    Dim sNewSource
        sNewSource = sSource
        sNewSource = Replace(sNewSource, "%22", chr(34))
        sNewSource = Replace(sNewSource, "%27", "'")
        sNewSource = Replace(sNewSource, "%3E", ">")
        sNewSource = Replace(sNewSource, "%3C", "<")
        sNewSource = Replace(sNewSource, "%20", " ")
        sNewSource = Replace(sNewSource, "%26", "&")
        sNewSource = Replace(sNewSource, "%23", "#")
        sNewSource = Replace(sNewSource, "%2B", "+")
        sNewSource = Replace(sNewSource, "%25", "%")
        UnReplaceChar = sNewSource
    End Function
    Function ReplaceChar(sSource)
    Dim sNewSource
        If IsNothing(sSource) Then
        Else
            sNewSource = sSource
            sNewSource = Replace(sNewSource, "%", "%25")
            sNewSource = Replace(sNewSource, " ", "%20")
            sNewSource = Replace(sNewSource, "&", "%26")
            sNewSource = Replace(sNewSource, "#", "%23")
            sNewSource = Replace(sNewSource, "+", "%2B")
            sNewSource = Replace(sNewSource, ">", "%3E")
            sNewSource = Replace(sNewSource, "<", "%3C")
            sNewSource = Replace(sNewSource, "'", "%27")
            sNewSource = Replace(sNewSource, "chr(34)", "%22")
            ReplaceChar = sNewSource
        End If
    End Function
   Function ReQuerySpecs(MyField, Max)
    Dim X, Y, sSQL, sOrder
    Dim sFldName, sFldVal
        document.formSpec.submit()
        document.formSpec.blur(MyField) 
        Exit Function
        sSQL = UnReplaceChar(document.formSpec.elements("SQL").value)
        'response.end
        sOrder = Mid(sSQL, InStr(sSQL, "ORDER BY "))
        sSQL = Replace(sSQL, sOrder, "")
        For X = 1 To Max
            If document.formSpec.elements("SearchText" & X).value & "" <> "" Then
                sFldVal = "'" & document.formSpec.elements("SearchText" & X).value & "'"
                sFldName = "[" & document.formSpec.elements("SearchList" & X).value & "]"
                sSQL = sSQL & " AND " & sFldName & " = " & sFldVal & ", "
            End If
        Next
        sSQL = Left(sSQL, Len(sSQL) - 2)
    End Function