Use OLE automation stored procedures to send email: DECLARE @SenderAddress varchar(100)DECLARE @RecipientAddress varchar(100)DECLARE @Subject varchar(200)DECLARE @Body varchar(8000)DECLARE @oMail int –Object referenceDECLARE @resultcode intSET @SenderAddress = ‘[email protected]’SET @RecipientAddress= ‘[email protected]’SELECT @Subject =

XMLwhen it is in ASCIIcan be stored as any other literal in one line, but it’s not very readable. Use the following macros to store XML (or any other string

A more elegant approach: use an associative array. If you have more addresses to block, put them together (in this example, using CGI and Perl): #!perlmy %block_ip=(‘172.56.260.71’=>’bad.org’,’172.56.260.72’=>’evil.org’,);my $remote = $ENV{REMOTE_ADDR}

Here’s an old trick from C, which carries over to Java. If you have two intsa and bwhose values you want to swap, the obvious way to do so is

‘ Get the path of a Windows application or an empty string if the application ‘ isn’t registered” This routine only works for those applications that register themselves under ‘

‘ Clear the IE’s HistorySub ClearIEHistory() Dim keyName As String = “SoftwareMicrosoftInternet ExplorerTypedURLs” ‘ delete the key that contains the URLs the history Microsoft.Win32.Registry.CurrentUser.DeleteSubKey(keyName, False) ‘ recreate the key, empty

‘ Test whether a font name and size is supported’ Returns True if the font is supported, False otherwise” If the font is supported but the size is not, it

Shared Function _ SHEmptyRecycleBin(ByVal hWnd As Integer, ByVal pszRootPath As String, _ ByVal dwFlags As Integer) As IntegerEnd Function’ Empty all the files in the Recycle Bin.” If RootPath is

Shared Function _ LogonUser(ByVal userName As String, ByVal domain As String, _ ByVal password As String, ByVal dwLogonType As Integer, _ ByVal dwLogonProvider As Integer, ByRef phToken As Integer) As

‘ Clear the Run History’ The MRU list is kept available until Explorer is restartedSub ClearRunHistory() Dim keyName As String = “SoftwareMicrosoftWindowsCurrentVersionExplorer” _ & “RunMRU” ‘ delete the key that

‘ Returns the nesting level of a TreeView’s Node object’ (returns zero for root nodes)Function GetNodeNestingLevel(ByVal node As TreeNode) As Integer Do Until (node.Parent Is Nothing) GetNodeNestingLevel += 1 node

‘ Hiding a form with an implosion effect.’ the numSteps parameter is the number of steps to decrease the form size from ‘ the current size to 0’ the stepDuration

Shared Function _ GetWindowLong(ByVal hWnd As Integer, ByVal nIndex As Integer) As IntegerEnd Function Shared Function _ SetWindowLong(ByVal hWnd As Integer, ByVal nIndex As Integer, _ ByVal dwNewLong As Integer)

‘ Moves an item of a listbox to another index’ If FROMINDEX = -1 then it moves the current highlighted item’ ‘ Example:’ ‘ move up the selected item’ MoveListboxItem(ListBox1,

‘ Returns a value >0 if node1 is a parent (or grandparent) of node2’ Returns a value node2.FullPath.Length Then ‘ if the two nodes belong to the same subtree, ‘

‘ Show a form with an explosion effect.’ the numSteps parameter is the number of steps to increase the form size from ‘ 0 to the original size’ the stepDuration

Global objects and objects declared in a namespace scope are constructed before main() starts. The implementation runs special startup code that constructs such objects (including cin and cout) and performs