A macro to add, delete, and find hidden and non-hidden bookmarks in Word

Method 1: Code to Strip All Bookmarks from a Document
Sub StripAllBookmarks()
Dim stBookmark As Bookmark
ActiveDocument.Bookmarks.ShowHidden = True
If ActiveDocument.Bookmarks.Count >= 1 Then
For Each stBookmark In ActiveDocument.Bookmarks
stBookmark.Delete
Next stBookmark
End If
End Sub


Method 2: Code to Strip Only Hidden Bookmarks from a Document

Sub StripHiddenBookmarks()
Dim stBookmark As Bookmark
ActiveDocument.Bookmarks.ShowHidden = True
If ActiveDocument.Bookmarks.Count >= 1 Then
For Each stBookmark In ActiveDocument.Bookmarks
If Left(stBookmark, 1) = "_" Then
stBookmark.Delete
End If
Next stBookmark
End If
End Sub



Method 3: Code to Add a Hidden Bookmark
The following code adds a bookmark named "_HiddenBookmark1" to a document at the location of the insertion point or selection.

Sub AddHiddenBookmark
ActiveDocument.Bookmarks.Add Name:="_HiddenBookmark1"
End Sub

Find all tables that contain a certain column

SELECT c.TABLE_NAME,TABLE_TYPE,COLUMN_NAME,ORDINAL_POSITION,IS_NULLABLE,
DATA_TYPE,NUMERIC_PRECISION FROM INFORMATION_SCHEMA.COLUMNS c
JOIN INFORMATION_SCHEMA.TABLES t ON c.TABLE_NAME = t.TABLE_NAME WHERE COLUMN_NAME ='columnname' ORDER BY TABLE_TYPE ,c.TABLE_NAME

configuring SMTP in windowsserver-2008

http://www.jppinto.com/index.php/2009/03/install-cdonts-mail-component-and-smtp-on-windows-server-2008/

Search String in Stored Procedure

SQL Server 2000
USE AdventureWorks
GO
--Option 1
SELECT DISTINCT so.name
FROM syscomments sc
INNER JOIN sysobjects so ON sc.id=so.id
WHERE sc.TEXT LIKE '%Employee%'
GO
--Option 2
SELECT DISTINCT o.name ,o.xtype
FROM syscomments c
INNER JOIN sysobjects o ON c.id=o.id
WHERE c.TEXT LIKE '%Employee%'
GO

SQL Server 2005
USE AdventureWorks
GO
--Searching for Empoloyee table
SELECT Name
FROM sys.procedures
WHERE OBJECT_DEFINITION(OBJECT_ID) LIKE '%Employee%'
GO
--Searching for Empoloyee table and RateChangeDate column together
SELECT Name
FROM sys.procedures
WHERE OBJECT_DEFINITION(OBJECT_ID) LIKE '%Employee%'
AND OBJECT_DEFINITION(OBJECT_ID) LIKE '%RateChangeDate%'

How to upload files to a Web server by using ASP

http://support.microsoft.com/kb/299692

Save Word Document to Database

set rs=server.CreateObject("ADODB.RecordSet")
set rs1=server.CreateObject("ADODB.RecordSet")
set binObj =server.CreateObject("ADODB.Stream")
set rs=cnn.execute("exec usp_docinsert '1.doc'")
if not rs.EOF then
fileid=rs.Fields(0)
end if
set rs=nothing
sql = "SELECT * FROM doc WHERE fileid=" & fileid
rs1.Open sql, cnn,1, 2, adCmdTableDirect
If Not (rs1.BOF And rs1.eof) Then
binObj.Type = 1
binObj.Open
binObj.LoadFromFile (server.MapPath(".") & "\1.doc")
rs1.Fields("filecontent") = binObj.Read
rs1.Update
binObj.Close
Set binObj = Nothing
End If

set rs1=server.CreateObject("ADODB.RecordSet")
set binObj =server.CreateObject("ADODB.Stream")
sql = "SELECT * FROM doc WHERE fileid=18"
rs1.Open sql, cnn,1, 2, adCmdTableDirect
if Not (rs1.BOF And rs1.eof) Then
binObj.Type = 1
binObj.Open
binObj.Write rs1.Fields("filecontent")
binObj.SaveToFile ("C:docs\2.doc") , 2
binObj.Close
Set binObj = Nothing
End if

Script to automatically reindex all tables in a database

DECLARE @TableName varchar(255)

DECLARE TableCursor CURSOR FOR
SELECT table_name FROM information_schema.tables
WHERE table_type = 'base table'

OPEN TableCursor

FETCH NEXT FROM TableCursor INTO @TableName
WHILE @@FETCH_STATUS = 0
BEGIN
PRINT 'Reindexing ' + @TableName
DBCC DBREINDEX(@TableName,' ',90)
FETCH NEXT FROM TableCursor INTO @TableName
END

CLOSE TableCursor

exec sp_updatestats

DEALLOCATE TableCursor