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

HOW TO DELETE BLANK CELLS IN A COLUMN (WITHOUT DELETING ENTIRE ROW) and SHIFT CELLS UP

Dim rDataArea As Range
Set rDataArea = ActiveCell.CurrentRegion

Dim iTotalRows As Integer
iTotalRows = rDataArea.Rows.Count

Dim i As Integer
i = 3 'set to row you wish to start with..looked like row 3 from your post

Cells(i, 2).Select '2 is the column, B

Do Until ActiveCell.Row >= iTotalRows Or i >= iTotalRows
If ActiveCell.Text = "" Then
Selection.Delete Shift:=xlUp
i = i + 1
Else
ActiveCell.Offset(1, 0).Select
End If
Loop