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