26 lines
1 KiB
HTML
26 lines
1 KiB
HTML
<SCRIPT LANGUAGE=VBScript>
|
|
<!--
|
|
SUB ShowQueryParams_OnClick
|
|
|
|
DIM MyForm
|
|
set MyForm = Document.CiParams
|
|
Param1="CiRestriction = " & MyForm.CiRestriction.Value & chr(10)
|
|
Param2="CiColumns = " & MyForm.CiColumns.Value & chr(10)
|
|
Param3="CiSort = " & MyForm.CiSort.Value
|
|
|
|
Param5="CiScope = " & MyForm.CiScope.Value & chr(10)
|
|
Param6="CiFlags = " & MyForm.CiFlags.Value & chr(10)
|
|
Param7="CiCatalog = " & MyForm.CiCatalog.Value & chr(10)
|
|
Param8="CiMachine = " & MyForm.CiMachine.Value & chr(10)
|
|
|
|
ParamA="CiDeferNonIndexedTrimming = " & MyForm.CiDeferNonIndexedTrimming.Value & chr(10)
|
|
ParamB="CiForceUseCI = " & MyForm.CiForceUseCI.Value & chr(10)
|
|
ParamC="CiMaxRecordsInResultSet = " & MyForm.CiMaxRecordsInResultSet.Value & chr(10)
|
|
|
|
Msgbox Param1 & Param2 & Param3,,"Query Formulation"
|
|
Msgbox Param5 & Param6 & Param7 & Param8,,"Query Scope"
|
|
Msgbox ParamA & ParamB & ParamC,,"Query Flags"
|
|
END SUB
|
|
-->
|
|
</SCRIPT>
|