Moderator |
|
ok opgelost thanks....
Set Upload = Server.CreateObject("persits.Upload")
Upload.Save "c:\upload"
for each File in upload.files
Dim RS
Set RS = Server.CreateObject("ADODB.Recordset")
query = " SELECT * FROM [table] WHERE [id] = '1' "
RS.Open query, connstring, 2, 2
RS("content_type") = File.ContentType
RS("image") = File.Binary
RS.Update
RS.Close
File.Delete
Next
Set Upload = Server.CreateObject("persits.Upload") Upload.Save "c:\upload" for each File in upload.files Dim RS Set RS = Server.CreateObject("ADODB.Recordset") query = " SELECT * FROM [table] WHERE [id] = '1' " RS.Open query, connstring, 2, 2 RS("content_type") = File.ContentType RS("image") = File.Binary RS.Update RS.Close File.Delete Next
dit is de uiteindelijke code.. kan mensen helpen! |