Subversion Repositories DevTools

Rev

Rev 159 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 159 Rev 161
Line 1706... Line 1706...
1706 
      Set rsTemp = nothing
 1706 
      Set rsTemp = nothing
1707 
   End If
 1707 
   End If
1708 
 
 1708 
 
1709 
End Function
 1709 
End Function
1710 
 
 1710 
 
- 
 
 1711 
Function iif(bFlag, sTrueStr, sFalseStr)
- 
 
 1712 
  if bFlag then
- 
 
 1713 
    iif = sTrueStr
- 
 
 1714 
  else
- 
 
 1715 
    iif = sFalseStr
- 
 
 1716 
  end if
- 
 
 1717 
End Function
- 
 
 1718 
 
1711 
 
 1719 
 
1712 
%>
 1720 
%>