<%
Dim ld, Sql, ConStr, TargetCol
Set ld = Server.CreateObject("NetMan.Uploader.1")
ConStr = "Provider=MSDAORA;Data Source=srv1;User ID=scott;Password=tiger;"
TargetCol = "image"
With ld
.FilePath = "c:\temp"
.SaveFile
For Each f In .Files
Sql = "insert into imagetest(fname,image) values (" & f.FileName & ",?)"
f.InsertToDataBase(ConStr,Sql,TargetCol)
Next
End With
Set ld = Nothing
%>
|
|