'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Function LoadListRecordset(Cnn, sp_SQL, ParametersName, ParametersValue, cmdType, selectedValue)
	Dim cm
	Set mRst = CreateObject("ADODB.Recordset")
	Set cm = Server.CreateObject("ADODB.Command")
	
	mRst.CursorLocation = 3
	mRst.CursorType = 1
	
	Dim mArrayParametersName
	Dim mArrayParametersValue
	Dim mIdx
	mArrayParametersName = Split(ParametersName, ";")
	mArrayParametersValue = Split(ParametersValue, ";")
	
	With cm
		.ActiveConnection = Cnn
		.CommandText = sp_SQL
		.CommandType = cmdType    
		.Parameters.Refresh
		For mIdx =lbound(mArrayParametersName) to ubound(mArrayParametersName) 

			if mArrayParametersValue(mIdx) = "<NULL>" then
				.Parameters("@" & mArrayParametersName(mIdx)) = null
			else
				.Parameters("@" & mArrayParametersName(mIdx)) = mArrayParametersValue(mIdx)
			end if
		Next	
	'	 exit function
	End With
	mRst.Open cm
	
	Dim mListTempo
	Do While Not mRst.EOF
		if cstr(mRst(0)) = cstr(nz(selectedValue, "")) then
			mListTempo = mListTempo & "<OPTION selected value=""" & writeHTML(mRst(0)) & """>" & writeHTML(mRst(1)) 
		else
			mListTempo = mListTempo & "<option value=""" & writeHTML(mRst(0)) & """>" & writeHTML(mRst(1))
		end if
		mRst.MoveNext
	Loop
	mRst.Close
	Set mRst = Nothing
	LoadListRecordset = mListTempo
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function DLookup(Domain, Expression, Where, ConnectionString)
	Dim mRst
	Set mRst = Server.CreateObject("ADODB.Recordset")
	
	If Where <> "" Then
		mRst.Open "SELECT TOP 1 " & Expression & " FROM " & Domain & " WHERE " & Where, ConnectionString
	else
		mRst.Open "SELECT TOP 1 " & Expression & " FROM " & Domain, ConnectionString
	end if
	if not mRst.eof then DLookup = mRst(0) else DLookup = null
	mRst.Close 
	
	Set mRst = Nothing
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function DMin(Domain, Expression, Where, ConnectionString)
  Dim mRst
  Set mRst = CreateObject("ADODB.Recordset")
  
  If Where <> "" Then
    mRst.Open "SELECT MIN(" & Expression & ") FROM " & Domain & " WHERE " & Where, ConnectionString
  Else
    mRst.Open "SELECT MIN(" & Expression & ") FROM " & Domain, ConnectionString
  End If
  If Not mRst.EOF Then DMin = mRst(0) Else DMin = Null
  mRst.Close
  
  Set mRst = Nothing
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function DMax(Domain, Expression, Where, ConnectionString)
  Dim mRst
  Set mRst = CreateObject("ADODB.Recordset")
  
  If Where <> "" Then
    mRst.Open "SELECT MAX(" & Expression & ") FROM " & Domain & " WHERE " & Where, ConnectionString
  Else
    mRst.Open "SELECT MAX(" & Expression & ") FROM " & Domain, ConnectionString
  End If
  If Not mRst.EOF Then DMax = mRst(0) Else DMax = Null
  mRst.Close
  
  Set mRst = Nothing
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function DCount(Domain, Where, ConnectionString)
  Dim mRst
  Dim Expression
  
  Expression = "*"
  Set mRst = CreateObject("ADODB.Recordset")
  
  If Where <> "" Then
    mRst.Open "SELECT COUNT(" & Expression & ") FROM " & Domain & " WHERE " & Where, ConnectionString
  Else
    mRst.Open "SELECT COUNT(" & Expression & ") FROM " & Domain, ConnectionString
  End If
  If Not mRst.EOF Then DCount = mRst(0) Else DCount = Null
  mRst.Close
  
  Set mRst = Nothing
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function DLookup(Domain, Expression, Where, ConnectionString)
  Dim mRst
  Set mRst = CreateObject("ADODB.Recordset")
  
  If Where <> "" Then
    mRst.Open "SELECT TOP 1 " & Expression & " FROM " & Domain & " WHERE " & Where, ConnectionString
  Else
    mRst.Open "SELECT TOP 1 " & Expression & " FROM " & Domain, ConnectionString
  End If
  If Not mRst.EOF Then DLookup = mRst(0) Else DLookup = Null
  mRst.Close
  
  Set mRst = Nothing
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function DCountDistinct(Domain, Expression, Where, ConnectionString)
  Dim mRst
  Set mRst = CreateObject("ADODB.Recordset")
  
  If Where <> "" Then
    mRst.Open "SELECT COUNT(DISTINCT " & Expression & ") FROM " & Domain & " WHERE " & Where, ConnectionString
  Else
    mRst.Open "SELECT COUNT(DISTINCT " & Expression & ") FROM " & Domain, ConnectionString
  End If
  If Not mRst.EOF Then DCountDistinct = mRst(0) Else DCountDistinct = Null
  mRst.Close
  
  Set mRst = Nothing
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/
Public Function createSearchResult(Table, PK, Sort, PageNumber, PageSize, Fields, Filter, Group, mRst, mCnn)
	Dim mCm
	Set mCm = Server.CreateObject("ADODB.Command")
	
	mRst.CursorLocation = 3
	mRst.CursorType = 1
	
	
	With mCm
		.CommandTimeout = 300
		.ActiveConnection = mCnn
		.CommandText = "upCreateSearchResult"
		.CommandType = 4
	   
		.Parameters.Refresh
		.Parameters("@Tables") = Table
		.Parameters("@PK") = PK
		.Parameters("@Sort") = Sort
		.Parameters("@PageNumber") = PageNumber
		.Parameters("@PageSize") = PageSize
		.Parameters("@Fields") = Fields
		.Parameters("@Filter") = Filter
		.Parameters("@Group") = Group
	End With
		
	mRst.Open mCm
End Function
'/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/